Como mostrar o ocultar hojas de Excel




Domina Excel Hoy
En esta oportunidad muestro un par de códigos que nos permitirán ocultar o mostrar hojas de Excel, lo aquí expuesto se ha puesto en práctica en dos ejemplos que es posible te interesen ver como son: formulario de menú que oculta y muestra hojas, este ejemplo se basa en un formulario de inicio o menú que por medio de botones va ocultando y mostrando la hoja en la cual se necesita trabajar; el segundo ejemplo trata sobre ocultar y mostrar hojas en base a criterios.

Si estás leyendo este post es, porque estás desarrollando un proyecto que incluye Macros en Excel; existen en internet un sin número de cursos que enseñan a programar en VBA, codificación necesaria para programar macros, de todos ellos te recomiendo unos de los mejores cursos on line que he visto en internet.






Para ocultar hojas existe dos formas una es usando xlHidden que permite ocultar la hoja, no obstante se puede mostrar la hoja nuevamente desde opciones avanzadas de Excel; sin embargo existe otra forma que solo se puedes desbloquear mediante código y es xlVeryHidden.

Los códigos para ocultar una hoja son los siguientes.

Sheets("Hoja2").Visible = xlVeryHidden
Sheets("Hoja3").Visible = xlHidden

Luego para mostrar las hojas se utiliza el siguiente código:

Sheets("Hoja2").Visible = True

Descarga el ejemplo del link del final. Considera la posibilidad de Aportar a los fines de seguir manteniendo el sitio, descarga desde el link del final el ejemplo; 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.

Código que se inserta en un módulo



Sub OcultarHojas()
Application.ScreenUpdating = False

Sheets("Hoja2").Visible = xlVeryHidden
Sheets("Hoja3").Visible = xlHidden

Application.ScreenUpdating = True
End Sub
Sub MostrarHoja()
Application.ScreenUpdating = False
Sheets("Hoja2").Visible = True
Sheets("Hoja3").Visible = 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      

Como redondear con WorkSheetFunction




Redondear en Excel es algo bastante común, te presento una macro que permite redondear un rango de datos a la cantidad de decimales que se requiera; se realiza a través de WorksheetFunction que tiene como finalidad ejecutar casi todas las funciones que trae incorporadas Excel, si necesitas aprender más sobre WorksheetFunction funciones de Excel en VBA sigue el link; si deseas saber que funciones de Excel se pueden usar en VBA y aplicar en una macro, visita listado de todas las funciones.

Otros ejemplos que quizás te interesen que utilizan WorksheetFunction los encuentras en como se utiliza la función VLookup o BuscarVcomo utilizar BuscarV se explica la utilización de dicha función en Excel, otras funciones Vlookup o BuscarVSumIfs o SumIf.

Este es uno de los mejores cursos on line que he visto en internet donde encontrarás todo lo necesario para aprender o profundizar en programación de macros.






En esta ocasión muestro una macro que utiliza WorksheetFunction.Round que permite redondear un número a una cantidad de decimales específicada, la sintaxis es la siguiente:

WorksheetFunction.Round(Arg1, Arg2)

El significado de los parámetros son:

Arg1 es un dato obligatorio, el número que se desea redondear.
Arg2, es un dato obligatorio y representa la cantidad de decimales que se tiene que tener en cuenta para redondear.

Para llevar a cabo el ejemplo se realiza un bucle desde la primer fila hasta la última fila con datos, en cada uno de los registros se va redondeando el número que se encuentra en la columna C, siendo los decimales requeridos para redondear los que se exponen en la celda G1.

Con el código que se muestra seguidamente permite asignar a la celda de la columna D correspondiente el número redondeado de la columna C correspondiente

Cells(fila, "D") = Application.WorksheetFunction.Round(Cells(fila, "C"), Range("G1"))

En el ejemplo también se le otorga un formato de número con cinco decimales al resultado obtenido a través de este código Range("B25").NumberFormat = "#,##0.00000", como se puede observar al final de la macro, por último aparece un mensaje a través de un msgbox que avisa que el procedimiento de redondeo se realizó con éxito, recuerda que como siempre la descarga del ejemplo es GRATUITA y se realiza desde el link que se encuentra en el final del post.

Finalizando, el ejemplo de macro que utiliza WorksheetFunction Round o Redondear se puede descargar desde el link del final de este post, una vez descargado el ejemplo se presiona el botón que dice "Redondear" y se ejecuta la macro redondeando las filas correspondientes; para probarla se pueden cambiar la cantidad de decimales de G1 y el resultado se modificará.
Aporta si es posible 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.

Código que se inserta en un módulo



Sub Redondear()
Application.ScreenUpdating = False
On Error Resume Next
DisplayAlerts = False
Dim uf As String
Dim fila As Integer
fila = 2
uf = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row
Range("D2:D" & uf).Clear
While Cells(fila, "A") <> Empty
Cells(fila, "D") = Application.WorksheetFunction.Round(Cells(fila, "C"), Range("G1"))
fila = fila + 1
Wend
Range("C:C").NumberFormat = "#,##0.00000"
Range("D:D").NumberFormat = "#,##0.00000"
MsgBox ("Se redondeo a " & Range("G1") & " decimales con éxito"), vbInformation, "AVISO"
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      

Como establecer alto ancho ocultar mostrar filas y columnas




Hoy muestro como establecer el alto de fila y el ancho de columna; ya anteriormente se expusieron post relacionados con el formato en Excel como dar formato tamaño, tipo, negrita, cursiva, subrayado y color a la fuente de Excel, establecer color y bordes de celdas, determinar color de celdas, sumar celdas de un mismo color.

Si estás leyendo este post es, porque estás desarrollando un proyecto que incluye Macros en Excel; existen en internet un sin número de cursos que enseñan a programar en VBA, codificación necesaria para programar macros, de todos ellos te recomiendo unos de los mejores cursos on line que he visto en internet.






Domina Excel Hoy
Para establecer el alto de una fila se utiliza el código siguiente, que otorga a la fila 4 un alto de fila igual a 20:

Range("C4").RowHeight = 20

Si lo que necesitamos es determinar el ancho de una columna, debes utilizar el siguiente código que permite establecer un ancho de columna de 15.

Range("C5").ColumnWidth = 15

Se puede establecer que el ancho de columna y alto de filas sea automático, es decir la columna y fila se agrandarán hasta el mayor espacio que ocupan los datos contenidos en las celdas, ello se puede logra con el código:

Range("C:E").EntireColumn.AutoFit

Range("2:7").EntireRow.AutoFit


Para ocultar la fila 6 por ejemplo se usa:

Range("A6").EntireRow.Hidden = True


Otro forma de referenciar una fila entera, en este caso la fila 7, se utiliza; si necesitas aprender a seleccionar o referenciar celdas visita el link:

Rows("7:7").EntireRow.Hidden = True


Para ocultar la columna D se utiliza:

Range("D6").EntireColumn.Hidden = True


Otra forma de seleccionar la columna entera se muestra en el código que le sigue:

Columns("F:F").EntireColumn.Hidden = True


Considera la posibilidad de Aportar a los fines de seguir manteniendo el sitio, descarga desde el link del final el ejemplo; 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.

Código que se inserta en un módulo



Sub DarFormato()
Application.ScreenUpdating = False

'Alto de fila
Range("C4").RowHeight = 20

'Alto automático
Range("2:7").EntireRow.AutoFit

'Ancho de columna
Range("C5").ColumnWidth = 15

'Ancho automático
Range("C:E").EntireColumn.AutoFit

'Oculta la fila 6
Range("A6").EntireRow.Hidden = True

'Otro forma de referenciar una fila entera
Rows("7:7").EntireRow.Hidden = True

'Oculta la columna D
Range("D6").EntireColumn.Hidden = True

'Otro forma de referenciar una columna entera
Columns("F:F").EntireColumn.Hidden = True

Application.ScreenUpdating = True
End Sub
Sub borraformato()
Application.ScreenUpdating = False
Range("C:E").ColumnWidth = 8
Range("2:7").RowHeight = 12
Range("D6").EntireRow.Hidden = False
Rows("7:7").EntireRow.Hidden = False
Range("D6").EntireColumn.Hidden = False
Columns("F:F").EntireColumn.Hidden = False
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 Esperma Normal




Domina Excel Hoy
Humor Gráfico








Humor Gráfico


Su experma no es normal










Post que quizas te interese



1. Conectar Excel con Access
2. Integrar Excel con Access usar SQL para insertar datos
3. Filtrar datos con Select de SQL
4. Combobox que depende de otro combobox y llena listbox
5. Buscar en listbox mientras se escribe en textbox
6. Buscar datos en Excel a medida que se escribe en textbox



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      

Como sumar celdas de un mismo color




En muchas ocasiones cuando se programa una macro se necesita realizar acciones sobre celdas que contiene un mismo color, en este ejemplo se expone como sumar celdas que contienen el mismo color de relleno.

En esta web encontrarás otros post que explican como como dar formato tamaño, tipo, negrita, cursiva, subrayado y color a la fuente de Excel, establecer color y bordes de celdas, determinar color de celdas, ancho alto ocultar mostrar filas y columnas.


Si 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.






Domina Excel Hoy
En el ejemplo presentado hay dos colores de celdas rojo y celeste, lo primero que se determina es el color de la celda, mejor dicho el número del color de la celdas en este caso rojo, le corresponde el número 255 y celeste el número 15773696.

Para sumar se realiza un bucle hasta la última celda con datos, se va recorriendo las celdas y si son de color rojo hace una suma, si son de color celeste hace otra suma, al final del ejemplo presenta el total de las celdas de color rojo y el total de las celdas de color celeste, aconsejo descargar el ejemplo desde el link del final para poder observar en detalle el funcionamiento.

Aporta a los fines de 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.

Código que se inserta en un módulo



Sub DarFormato()
Application.ScreenUpdating = False
Dim conta1 As Integer, conta2 As Integer
c1 = Range("C2").Interior.Color
c2 = Range("C3").Interior.Color
pf = 2
uf = Range("C" & Rows.Count).End(xlUp).Row
conta1 = 0
conta2 = 0
Do
If Cells(pf, "C").Interior.Color = 255 Then conta1 = conta1 + Cells(pf, "D").Value
If Cells(pf, "C").Interior.Color = 15773696 Then conta2 = conta2 + Cells(pf, "D").Value
pf = pf + 1
Loop While pf <= uf
Range("D16") = conta1
Range("D17") = conta2

Application.ScreenUpdating = True
End Sub
Sub borraformato()
Application.ScreenUpdating = False
Range("D16:D17").Clear
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      

Hyperlink link hipertexto en label y textbox




Domina Excel Hoy
Hoy muestro como asignar un hyperlink link o hipertexto en un label y textbox de un userform de VBA, anteriormente en otros post se trabajo con hyperlink como son: hyperlink o link a google map, como enviar desde Excel mail con un hyperlink, copiar un hyperlink, índice con hyperlink a hojas de un mismo libro, índice o hyperlink a hojas de otro libro, índice con hyperlink a hojas del mimo libro y en cada hoja al menú principal.

Si estás leyendo este post es, porque estás desarrollando un proyecto que incluye Macros en Excel; existen en internet un sin número de cursos que enseñan a programar en VBA, codificación necesaria para programar macros, de todos ellos te recomiendo unos de los mejores cursos on line que he visto en internet.






El ejemplo de macro que se presenta permite crear un hyperlink, link o hipertexto en un label y en un textbox activándose en este último con doble click; presionando el botón aparece un formulario con un link en un label y en un textbox, haciendo click en el label dirige a la página o dirección establecida en el hipervinculo; en el textbox funciona haciendo doble click en el textbox.

Es útil por ejemplo en un formulario que contenga los datos de un cliente, proveedor, compañía aseguradora, que haciendo clik en el label o textbox que contenga el dato direccionando a la página web.

Otra utilidad puede ser en un formulario que contenga el dato del domicilio de los clientes, proveedores, compañías aseguradoras y haciendo click en el link nos redirija a google maps.

Se me ocurre que también podría servir cuando se requiera tener un link a archivos escaneados de clientes, proveedores, compañías aseguradoras; tiene un sin numero de utilidad, dependiendo de cada uno adaptarlo a las necesidades particulares.

Descarga el ejemplo del link del final. Considera la posibilidad de Aportar a los fines de seguir manteniendo el sitio, descarga desde el link del final el ejemplo; 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.

Código que se inserta en un módulo




Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub Label1_Click()
ActiveWorkbook.FollowHyperlink "http://www.programarexcel.com"
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.FollowHyperlink "" & TextBox1 & ""
End Sub

Private Sub UserForm_Activate()
Me.TextBox1 = "http://www.programarexcel.com"
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      

Como determinar el color de una celda




Recientemente se expuso como dar formato tamaño, tipo, negrita, cursiva, subrayado y color a la fuente de Excelcomo establecer ancho alto mostrar ocultar filas y columnasestablecer color y bordes de celdassumar celdas de un mismo color, como establecer el color y bordes de celdas, en esta oportunidad te presento como determinar cual es el color de una celda.


Si requieres 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.






Domina Excel Hoy
Este  post es bastante corto, pero no por ello importante, ya que muchas veces nos encontramos programando una macro y se nos olvida o requerimos establecer cual es el color de la celda para realizar una determinada acción, eso es lo que muestra este pos

En este ejemplo lo que se realiza es establecer una variable para establecer el número del color correspondiente, luego de determinado ello se puede usar en cualquier parte del código, en este caso solamente aparece un msgbox que nos dice el color y número establecido por el sistema para representar ese color; ello se logra con la siguiente codificación.

c1 = Range("C2").Interior.Color

Descarga este ejemplo desde el link del final, si puedes aporta a los fines de 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.

Código que se inserta en un módulo



Sub DeterminarColorCelda()
c1 = Range("C2").Interior.Color
c2 = Range("C3").Interior.Color
MsgBox ("El color de la celda C2 es Rojo, el número " & c1 & " y el color de la celda C3 es Celeste, siendo el número del color " & c2), vbInformation, "AVISO"
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      

Como dar formato a celdas filas y columnas




Anteriormente se expuso como dar formato tamaño, tipo, negrita, cursiva, subrayado y color a la fuente de Excelcomo establecer ancho alto mostrar ocultar filas y columnasdeterminar color de celdassumar celdas de un mismo color., en esta oportunidad te muestro como dar formato a las celdas, filas y columnas de Excel, consistente en determinar el color del relleno y bordes de la celdas.


Si 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.






Domina Excel Hoy
Descargando el ejemplo que se encuentra al final puedes ver el código y probar su funcionamiento en detalle.

Para establecer el color de relleno de una celda se puede usar el siguiente código que establece el color rojo de relleno.

Range("C2").Interior.Color = 255

Si se requiere que la celda no tenga color de relleno se puede usar:

Range("C4").Interior.Color = xlNone

Para establecer bordes de celdas se pueden usar los siguientes códigos, que otorgan al rango C2:E4 bordes continuos, finos, con bordes internos del mismo formato; con el código Borders(xlEdgeLeft), se establece el formato del borde izquierdo; con Borders(xlEdgeRight) se establecer el formato del borde superior; con Borders(xlEdgeBottom) se establece el formato inferior de la celda y con Borders(xlEdgeTop) se establece el borde superior.

Range("C2:E4").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeLeft).Weight = xlThin
Range("C2:E4").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeTop).Weight = xlThin
Range("C2:E4").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeBottom).Weight = xlThin
Range("C2:E4").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeRight).Weight = xlThin
Range("C2:E4").Borders(xlInsideVertical).LineStyle = xlContinuous
Range("C2:E4").Borders(xlInsideVertical).Weight = xlThin
Range("C2:E4").Borders(xlInsideHorizontal).LineStyle = xlContinuous
Range("C2:E4").Borders(xlInsideHorizontal).Weight = xlThin

Si puedes aporta a los fines de 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.

Código que se inserta en un módulo



Sub DarFormato()
Application.ScreenUpdating = False

'Relleno Rojo
Range("C2").Interior.Color = 255

'Relleno Celeste
Range("C3").Interior.Color = 15773696

'Sin relleno
Range("C4").Interior.Color = xlNone

'Bordes finos, continuos e internos
Range("C2:E4").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeLeft).Weight = xlThin
Range("C2:E4").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeTop).Weight = xlThin
Range("C2:E4").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeBottom).Weight = xlThin
Range("C2:E4").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("C2:E4").Borders(xlEdgeRight).Weight = xlThin
Range("C2:E4").Borders(xlInsideVertical).LineStyle = xlContinuous
Range("C2:E4").Borders(xlInsideVertical).Weight = xlThin
Range("C2:E4").Borders(xlInsideHorizontal).LineStyle = xlContinuous
Range("C2:E4").Borders(xlInsideHorizontal).Weight = xlThin

'Bordes gruesos, continuos e internos
Range("C6:E8").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("C6:E8").Borders(xlEdgeLeft).Weight = xlMedium
Range("C6:E8").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("C6:E8").Borders(xlEdgeTop).Weight = xlMedium
Range("C6:E8").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("C6:E8").Borders(xlEdgeBottom).Weight = xlMedium
Range("C6:E8").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("C6:E8").Borders(xlEdgeRight).Weight = xlMedium
Range("C6:E8").Borders(xlInsideVertical).LineStyle = xlContinuous
Range("C6:E8").Borders(xlInsideVertical).Weight = xlThin
Range("C6:E8").Borders(xlInsideHorizontal).LineStyle = xlContinuous
Range("C6:E8").Borders(xlInsideHorizontal).Weight = xlThin

'Bordes finos, continuos sin bordes internos
Range("C10:E12").Borders(xlEdgeLeft).LineStyle = xlContinuous
Range("C10:E12").Borders(xlEdgeLeft).Weight = xlThin
Range("C10:E12").Borders(xlEdgeTop).LineStyle = xlContinuous
Range("C10:E12").Borders(xlEdgeTop).Weight = xlThin
Range("C10:E12").Borders(xlEdgeBottom).LineStyle = xlContinuous
Range("C10:E12").Borders(xlEdgeBottom).Weight = xlThin
Range("C10:E12").Borders(xlEdgeRight).LineStyle = xlContinuous
Range("C10:E12").Borders(xlEdgeRight).Weight = xlThin

'Bordes finos, con puntos sin bordes internos
Range("C14:E16").Borders(xlEdgeLeft).LineStyle = xlDot
Range("C14:E16").Borders(xlEdgeLeft).Weight = xlThin
Range("C14:E16").Borders(xlEdgeLeft).Color = -16776961
Range("C14:E16").Borders(xlEdgeTop).LineStyle = xlDot
Range("C14:E16").Borders(xlEdgeTop).Weight = xlThin
Range("C14:E16").Borders(xlEdgeTop).Color = -16776961
Range("C14:E16").Borders(xlEdgeBottom).LineStyle = xlDot
Range("C14:E16").Borders(xlEdgeBottom).Weight = xlThin
Range("C14:E16").Borders(xlEdgeBottom).Color = -16776961
Range("C14:E16").Borders(xlEdgeRight).LineStyle = xlDot
Range("C14:E16").Borders(xlEdgeRight).Weight = xlThin
Range("C14:E16").Borders(xlEdgeRight).Color = -16776961

Application.ScreenUpdating = True
End Sub
Sub borraformato()
Application.ScreenUpdating = False
Range("C2: F17").ClearFormats
Range("C4").Interior.Color = 255
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