PROGRAMAR EN VBA MACROS PARA EXCEL: noviembre 2015

Humor Gráfico Primo ese me molesta




Domina Excel Hoy
Humor Gráfico








Primo ese es el que me molesta











Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Otro forma copiar archivos y carpetas





Anteriormente presenté un ejemplo de macro que permite hacer una copia de seguridad de carpetas y ficheros; copiando en otro directorio; El ejemplo que presente a continuación también permite realizar una copia de seguridad de carpeta y ficheros la diferencia radica en como lo hace, sugiero descargar los dos ejemplos y verás las diferencias; al final del post se expone el código y el link para descargar el fichero; muy relacionado con el tema de backup se encuentra esta macro que comprime archivos en extensión zip.

En este verás otra forma de macro para guardar directorios con sus subdirectorios y carpetas, descarga el ejemplo desde el link del final; al presionar el botón se ejecutará una macro que permite hacer una copia de seguridad de las carpetas FAC y OT coma así también del archivo Libro1.xlsm; siendo la carpeta de destino el directorio denominado Backup; en el siguiente link encontrarás otro ejemplo relacionado guardar carpeta y archivos con nombre variable.

Para poder verificar su funcionamiento debes descargar el archivo comprimido, al descomprimirlo verás un archivo con la macro con extensión xlsm, un archivo denominado Libro1.xlsx y tres carpetas que se usan para mostrar el funcionamiento de la macro, descomprimir dejar todas las archivos y carpetas juntos en el mismo directorio que selecciones, luego ejecuta la macro y verás como la macro realiza lo detallado en el ejemplo.

Recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

Desde el link del final accederás a descargar en forma GRATUITA del ejemplo denominado Macro copiar carpetas subdirectorios y fehceros; ingresando a el sitio web, de cientos de ejemplos de macros y tutoriales que te permitirán automatizar tus hojas de cálculo, en caso de ser útil considera la posibilidad de aportar y con ello ayudarás a seguir manteniendo el sitio.

Suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.






Código que se inserta en un módulo



Sub CopyFol()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim OBJ As Object
Set OBJ = CreateObject("Scripting.FileSystemObject")
folFac = ActiveWorkbook.Path & "\Fac"
folOT = ActiveWorkbook.Path & "\OT"
folBackup = ActiveWorkbook.Path & "\Backup"
myfile = ActiveWorkbook.Path & "\Libro1.xlsm"

OBJ.CopyFolder folFac, folBackup & "\Fac", True
OBJ.CopyFolder folOT, folBackup & "\OT", True
FileCopy myfile, folBackup & "\Libro1.xlsm"

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub




Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro copia carpetas y archivos





Te presento un ejemplo de macro que permite copiar carpetas y archivos y en en este post otra forma de copiar carpetas y ficheros. Es posible que algunas macros deban copiarlos a modo de backup o simplemente copiar archivos, este ejemplo enseña como copiar carpetas completas y archivos solos. Anteriormente se ha presentado como crear carpetas, como copiar hojas activa y guardar archivo, como copiar dos o mas hojas de un libro y crear archivo o quizas si estás realizando un backup sería de utilidad una macro que comprime archivos en extensión zip.

El comando que permite copiar una carpeta es CopyFolder y el que permite copiar archivos es CopyFile, sugiero que descargues el ejemplo desde el link del final del post; encontrarás un botón que permite ejecutar la macro que copia directorios con subdirectorios y ficheros.

El ejemplo de macro copia dos carpetas, sus archivos y subdirectorios que sería el origen a una carpeta denominada Backup que es la de destino; las carpetas copiadas son FAC y OT; el archivo copiado se llama Libro1.xlsm.

Para poder verificar su funcionamiento debes descargar el archivo comprimido, al descomprimirlo verás un archivo con la macro con extensión xlsm, un archivo denominado Libro1.xlsx y tres carpetas que se usan para mostrar el funcionamiento de la macro, descomprimir dejar todas las archivos y carpetas juntos en el mismo directorio que selecciones, luego ejecuta la macro y verás como la macro realiza lo detallado en el ejemplo.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

Es preciso dejar claro que la macro necesita que se tenga habilitada una referencia para que pueda funcionar, caso contrario provocará un error, para ello se debe ingresar al editor de VBA presionando ALT + F11, luego se debe ir al menú herramientas y elegir referencias, del listado de referencias se debe seleccionar tildando la referencia: "Microsoft Scripting Runtime".

Ingresando a  la página web de programar Excel http://programarexcel.com/p/home.html, encontrarás cientos de ejemplos de macros y tutoriales que te permitirán automatizar tus hojas de cálculo; en caso de ser útil considera la posibilidad de aportar y con ello ayudarás a seguir manteniendo el sitio.

Suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.









Código que se inserta en un módulo



Sub CopyFol()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim fso As New FileSystemObject

folFac = ActiveWorkbook.Path & "\Fac"
folOT = ActiveWorkbook.Path & "\OT"
folBackup = ActiveWorkbook.Path & "\Backup"
myfile = ActiveWorkbook.Path & "\Libro1.xlsm"

fso.CopyFolder folFac, folBackup & "\Fac"
fso.CopyFolder folOT, folBackup & "\OT"
fso.CopyFile myfile, folBackup & "\Libro1.xlsm"

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro da distintos formato número a celdas





Anteriormente se presentaron post que permitían dar formato a fuentes de Excel, formato a celdas de excel, establecer el alto ancho ocultar filas y columnas, ahora muestro un ejemplo de macro que permite dar a las celdas de Excel distintos tipos de formato de números.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

Al descargar el archivo de ejemplo encontrarás una macro que permite dar distintos tipos de formato de número a las distintas celdas de la columna C; presionando el primer botón se da formato al rango C1:C18, presionando el botón quitar formato, quita el formato establecido.

Los distintos formatos que se usan en el ejemplo, son los más usados, entre ellos tenemos:

Otorga formato de número con separador de miles y tres decimales

a.Range("C2").NumberFormat = "#,##0.000"

Otorga formato de número con separador de miles y cinco decimales y color rojo cuando el número es negativo.

a.Range("C3").NumberFormat = "#,##0.00000_ ;[Red]-#,##0.00000 "

Formato con el símbolo $, separador de miles y tres lugares decimales

a.Range("C4").NumberFormat = "$ #,##0.000"

Formato de doláres estadounidenses, dos lugares decimales y separador de miles

a.Range("C5").NumberFormat = "[$USD] #,##0.00"

Formato de Euro con dos lugares decimales y separador de miles

a.Range("C6").NumberFormat = "#,##0.00 ""€"""

Formato Contabilidad que alinea el símbolo de moneda a la izquierda.

a.Range("C7").NumberFormat = _
"_ [$€-2] * #,##0.00000_ ;_ [$€-2] * -#,##0.00000_ ;_ [$€-2] * ""-""?????_ ;_ @_ "

Formato de fecha que se modifica con los cambios en la configuración regional de fecha de cada País.
a.Range("C8").NumberFormat = "m/d/yyyy"

Formato de fecha que no se modifica con los cambios en la configuración regional de fecha de cada País.
a.Range("C9").NumberFormat = "dd/mm/yyyy;@"

Formato de fecha que no se modifica con los cambios en la configuración regional de fecha de cada País el formato de fecha tiene guiones en vez de barra.

a.Range("C10").NumberFormat = "yyyy-mm-dd;@"

Formato de fecha larga que no se modifica con los cambios en la configuración regional de fecha de cada País.
a.Range("C11").NumberFormat = "[$-2C0A]dddd, dd"" de ""mmmm"" de ""yyyy;@"

Formato de fecha larga que se modifica con los cambios en la configuración regional de fecha de cada País
a.Range("C12").NumberFormat = "dddd, dd"" de ""mmmm"" de ""yyyy"

Formato de hora antes del meridiano (AM), pasado el meridiano (PM)

a.Range("C13").NumberFormat = "[$-F400]h:mm:ss AM/PM"


Formato de hora que no se modifica con los cambios en la configuración regional de fecha de cada País.

a.Range("C14").NumberFormat = "hh:mm:ss;@"

Formato de hora que no se modifica con los cambios en la configuración regional de fecha de cada País.
a.Range("C15").NumberFormat = "[$-2C0A]hh:mm:ss AM/PM;@"

Formato porcentaje.

a.Range("C16").NumberFormat = "0.00000%"

Formato porcentaje.

a.Range("C17").NumberFormat = "# ??/??"

Formato fecha personalizado donde se muestra la fecha y hora del lugar.

a.Range("C18").NumberFormat = "m/d/yyyy h:mm"

Descarga desde el link del final GRATUITAMENTE este ejemplo de macro que da distintos tipos de formato de fecha y hora a celdas de Excel; ingresando a  la página web de programar Excel http://programarexcel.com/p/home.html, encontrarás cientos de ejemplos de macros y tutoriales que te permitirán automatizar tus hojas de cálculo; en caso de ser útil considera la posibilidad de aportar y con ello ayudarás a seguir manteniendo el sitio.

Suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.








Código que se inserta en un módulo



Sub FormatoNumeros()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
nom = ActiveSheet.Name
Set a = Sheets(nom)
On Error Resume Next
a.Range("C2").NumberFormat = "#,##0.000"
a.Range("C3").NumberFormat = "#,##0.00000_ ;[Red]-#,##0.00000 "
a.Range("C4").NumberFormat = "$ #,##0.000"
a.Range("C5").NumberFormat = "[$USD] #,##0.00"
a.Range("C6").NumberFormat = "#,##0.00 ""€"""
a.Range("C7").NumberFormat = _
"_ [$€-2] * #,##0.00000_ ;_ [$€-2] * -#,##0.00000_ ;_ [$€-2] * ""-""?????_ ;_ @_ "
a.Range("C8").NumberFormat = "m/d/yyyy"
a.Range("C9").NumberFormat = "dd/mm/yyyy;@"
a.Range("C10").NumberFormat = "yyyy-mm-dd;@"
a.Range("C11").NumberFormat = "[$-2C0A]dddd, dd"" de ""mmmm"" de ""yyyy;@"
a.Range("C12").NumberFormat = "dddd, dd"" de ""mmmm"" de ""yyyy"
a.Range("C13").NumberFormat = "[$-F400]h:mm:ss AM/PM"
a.Range("C14").NumberFormat = "hh:mm:ss;@"
a.Range("C15").NumberFormat = "[$-2C0A]hh:mm:ss AM/PM;@"
a.Range("C16").NumberFormat = "0.00000%"
a.Range("C17").NumberFormat = "# ??/??"
a.Range("C18").NumberFormat = "m/d/yyyy h:mm"

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Sub BorraFormato()
Range("C1:C18").ClearFormats
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro copia varias hojas y guarda como con Explorador de Windows





En el ejemplo incluido en este post hay una variante de un post presentado anteriormente denominado copiar más de dos hojas y guardar como, a diferencia de aquel el ejemplo de hoy también copia varias hojas, pero guarda como utilizando el Explorador de Archivos de Windows; un ejemplo también presentado con anterioridad hace una copia de la hoja actual y guarda como, pero el nombre está preestablecido en la macro; este nombre puede ser fijo o variable, si requieres aprender como trabajar con nombres variables el post siguiente te puede ser de utilidad guardar carpeta y archivos con nombre variable.

Sugiero descargar el ejemplo para poder observar su funcionamiento, en primer lugar se procede a realizar una copia de varias hojas del libro, lo cual se realiza a través del siguiente código:

Sheets(Array("Hoja1", "Hoja2")).Copy

Realizada la copia se procede a llamar al explorador de Archivos de Windows con el fin de poder guardar, en la casilla correspondiente se elige el nombre y tipo de archivo, tal cual si estuviéramos guardando un archivo, de hecho es el explorador de archivos de Windows que todos conocemos, siendo manipulado desde una macro de Excel.

Elegido el nombre del archivo se procede a guardar y se guardará con el nombre del archivo elegido, cerrando el libro actual que es la copia realizada en el primer paso.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

Descarga desde el link del final GRATUITAMENTE este ejemplo llamado Macro copia varias hojas y guarda como con explorador de archivos de Windows; ingresando a http://programarexcel.com/p/home.html, encontrarás cientos de ejemplos de macros y tutoriales que te permitirán automatizar tus hojas de cálculo, en caso de ser útil considera la posibilidad de aportar y con ello ayudarás a seguir manteniendo el sitio.

Suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.









Código que se inserta en un módulo



Sub GuardarComoExplorador()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets(Array("Hoja1", "Hoja2")).Copy
With Application.FileDialog(msoFileDialogSaveAs)
     .Title = "Guardar archivo como"
     .AllowMultiSelect = False
     .Show
      myfile = .SelectedItems(1)
      ActiveWorkbook.SaveAs Filename:=myfile, FileFormat:=xlOpenXMLWorkbook
      ActiveWorkbook.Close False
End With

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub



Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro copia hoja guarda como con explorador archivo





En este ejemplo se presenta una macro que copia una hoja y luego guarda como utilizando explorador de archivos, este es una variante de un anterior ejemplo donde la macro copia la hoja actual y guardar como, pero el nombre se encontraba dado por la macro, un ejemplo relacionado es copiar más de dos hojas y guardar comoguardar carpeta y archivos con nombre variable.

Este ejemplo se procede a realizar en primer lugar una copia de una hoja determinada, en este caso la Hoja1, luego de ello se llama al explorador de archivos de Windows para guardar como, se selecciona o escribe el nombre del archivo y luego se guarda, tal cual si estuviéramos guardando un archivo común.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

Descarga desde el link del final en forma GRATUITA y sin restricciones el ejemplo denominado Macro copia hoja y guarda como con explorador de archivos de Windows; ingresando a http://programarexcel.com/p/home.html, encontrarás cientos de ejemplos de macros y tutoriales que te permitirán automatizar tus hojas de cálculo, en caso de ser útil considera la posibilidad de aportar y con ello ayudarás a seguir manteniendo el sitio.

Suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.








Código que se inserta en un módulo



Sub GuardarComoExplorador()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Hoja1").Copy
With Application.FileDialog(msoFileDialogSaveAs)
     .Title = "Guardar archivo como"
     .AllowMultiSelect = False
     .Show
      myfile = .SelectedItems(1)
      ActiveWorkbook.SaveAs Filename:=myfile, FileFormat:=xlOpenXMLWorkbook
      ActiveWorkbook.Close False
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Humor Gráfico Hermosa Vista




Domina Excel Hoy
Humor Gráfico








Que hermosa vista de la naturaleza











Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends      

Macro copia varias hojas y guarda como





En este post muestro una macro que crea una copia de varias hojas del libro actual y luego guarda como; anteriormente había mostrado como hacer copia de la hoja actual y guardar como.

En este ejemplo se  muestra como copiar una hoja del libro actual y guardar como; dicha copia tendrá un nombre especifico; en primer lugar se crea una variable que contiene el nombre que se le otorgará al archivo; dicha variable toma el path o ruta actual del archivo que contiene la macro y le adiciona el nombre que queramos; también se puede armar mediante variables, en este post enseño como guardar carpeta y archivos con nombre variable.

Posteriormente se hace una copia de las hojas que necesitamos, en este caso se hace una copia de dos hojas, pero puede ser una cantidad mayor, esto se logra con el código Sheets(Array("Hoja1", "Hoja2")).Copy; luego de ello se procede a guardar como el archivo; en este caso se guarda como un archivo xlsx de Excel, no obstante se puede guardar con cualquier extensión admitida por Excel; por último el ejemplo presenta un msgbox donde avisa que se guardó el archivo o fichero con éxito.

Antes de seguir recomiendo leer un excelente libro sobre Excel que te ayudará operar las planillas u hojas de cálculo, haz click acá, si quieres aprender sobre Excel, en inglés, entonces debes hacer click here. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores cursos on line que he visto en internet.

  

Desde el link del final accederás a descargar en forma GRATUITA del ejemplo denominado Macro copia varias hojas del libro actual y guarda como; ingresando a el sitio web, de cientos de ejemplos de macros y tutoriales que te permitirán automatizar tus hojas de cálculo, en caso de ser útil considera la posibilidad de aportar y con ello ayudarás a seguir manteniendo el sitio.

Suscribe al blog para recibir en tu correo todas las actualizaciones, dispones también de un canal de You Tube donde encontrarás explicaciones de macros con mayor detalle.

Suscribe a nuestro canal de You Tube para recibir en tu correo vídeos explicativos sobre macros interesantes, como  por ejemplo formulario que crea un listado de todas las hojas para poder luego seleccionarlas, buscar en listbox mientras escribes en textbox, ordenar hojas libro excel por su nombre, conectar Excel con Access y muchos ejemplos más.






Código que se inserta en un módulo



Sub GuardarComoVsHojas()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
nomarchi1 = ActiveWorkbook.Path & "\tuythtomyleedayracolyruyee.xlsx"
Sheets(Array("Hoja1", "Hoja2")).Copy
ActiveWorkbook.SaveAs Filename:=nomarchi1, FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close True
MsgBox ("El archivo se guardo con éxito en " & nomarchi1), vbInformation, "AVISO"
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Si te fue de utilidad puedes INVITARME UN CAFÉ y de esta manera ayudar a seguir manteniendo la página, CLICK para descargar en ejemplo en forma gratuita.


If this post was helpful INVITE ME A COFFEE and so help keep up the page, CLICK to download free example.


Si te gustó por favor compártelo con tus amigos
If you liked please share it with your friends