Humor Gráfico Daño al caer





Humor Gráfico




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


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


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

Inserta imagen en comentario de excel





En varios post se ha tratado el tema de insertar imágenes en celdas de Excel, no obstante nunca se publicó como insertar una imagen en un comentario de Excel, siendo algo rebuscado, no obstante a varios lectores les puede ser de ayuda.


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 podrás  bajar el archivo de ejemplo y adaptarlo a tus necesidades, el código es libre y no tiene ningún tipo de restricción.

Al descargar el ejemplo de macro o código de VBA, verás que existe un botón insertado que permite correr una macro que inserta una imagen en un comentario de Excel en la celda activa, puede ser útil cuando se tiene una base de datos de productos y se quiere insertar una imagen de los mismos.
MASTERCARD PAYONEER


Presionando el botón que se encuentra en el libro de ejemplo, que puedes descargar en forma gratuita, se ejecuta una macro que primero muestra el explorador de archivos de Windows el cual filtra archivos con extensiones jpg, png y bmp;  solicitando seleccione el archivo que requiere insertar, posteriormente se inserta un comentario en la celda activa, la particularidad  en relación al comentario es  que se inserta una imagen y no texto, siendo la imagen que se inserta, la seleccionada en el explorador de archivos de Windows .

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y 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 seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.



Código que se inserta en un módulo

Sub ImagenComentario_ST()
Dim myfile As String
myfile = Application.GetOpenFilename("Archivos JPG PNG BMP  (*.jpg*;*.png*;*.bmp*), *.jpg*;*.png*;*.bmp*")
With ActiveCell
  .AddComment
  .Comment.Shape.Height = 100 'Alto
  .Comment.Shape.Width = 100 'Ancho
     If ActiveCell <> Empty Then
       ActiveCell.Comment.Shape.Fill.UserPicture myfile
     Else
     ActiveCell.Comment.Text Text:="No hay referencias"
     End If
End With
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 o hipervinculo a Google Maps





En en el post anterior se mostró como crear un hiperlink o hipervínculo y que al hacer click ejecute el programa predeterminado para mandar un correo electrónico o mail,  en esta oportunidad voy a mostrar como realizar un hyperlink o hipervinculo a Google Maps; el tema de como insertar un hyperlink en Excel ha sido tratado en varias oportunidades en esta web, no obstante ello y a pesar de ser similar, agregó este ejemplo que permite insertar un hipervínculo o hyperlink a google maps.


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 podrás  bajar el archivo de ejemplo y adaptarlo a tus necesidades, el código es libre y no tiene ningún tipo de restricción.
MASTERCARD PAYONEER


Al descargar el ejemplo de macro o código de VBA, verás que existe un botón insertado que permite llamar un formulario, este formulario contiene tres textbox uno para nombre, otro para dirección y otro para mail; para convertirá en un hyperlink o hipervínculo de correo electrónico, es decir abrirá el programa predeterminado para el envío de mails, que por lo general es Outlook.

En el segundo textbox se crea un hyperlink o hipervinculo a Google Maps, la ventaja es que al presionar directamente busca en Google Maps el valor del textbox 2.

El formulario tiene dos botones uno para cancelar y cerrar el formulario y el otro que permite guardar en la celda el dato introducido en el textbox, la macro sola determina la última fila con datos o primer fila libre para pegar el dato del textbox; el ejemplo lo puedes descargar sin restricción desde el link del final de este post, el código que se incorpora a continuación es el que encontrarás en el ejemplo, si lo observas tiene una codificación que se deber insertar en un módulo, esto es a los fines de llamar el formulario, el resto de la codificación que se inserta en un userform es el que permite crear el hyperlink o hipervínculo.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y 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 seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.





Código que se inserta en un módulo
Sub mostrar()
UserForm1.Show

End Sub


Código que se inserta en un userform
Private Sub CommandButton1_Click()
Dim uf As Integer
Dim m, dt, d1, dt1 As String
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
Sheets("hoja1").Cells(uf + 1, 1) = TextBox1
Sheets("hoja1").Cells(uf + 1, 2) = TextBox2
d1 = "https://maps.google.es/maps?q=" & TextBox2
dt1 = TextBox2
Sheets("hoja1").Hyperlinks.Add Anchor:=Sheets("hoja1").Cells(uf + 1, 2), Address:=d1, TextToDisplay:=dt1

m = "mailto:" & TextBox3
dt = TextBox3
Sheets("hoja1").Hyperlinks.Add Anchor:=Sheets("hoja1").Cells(uf + 1, 3), Address:=m, TextToDisplay:=dt
TextBox1 = Clear
TextBox2 = Clear
TextBox3 = Clear
End Sub

Private Sub CommandButton2_Click()
Unload Me
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 disputa






Humor Gráfico




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


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


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

Formulario inserta hyperlink en celda





En un foro me preguntan sobre como se puede desde un userform o formulario pasar a una celda un hiperlink o hipervínculo y que al hacer click ejecute el programa predeterminado para mandar un correo electrónico o mail, el tema de como insertar un hyperlink en Excel ha sido tratado en varias oportunidades en esta web, no obstante ello y a pesar de ser similar, agregó este ejemplo que permite insertar un hipervínculo o hyperlink desde un textbox a una celda de excel.

Desde el link del final podrás  bajar el archivo de ejemplo y adaptarlo a tus necesidades, el código es libre y no tiene ningún tipo de restricció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.

  

Al descargar el ejemplo de macro o código de VBA, verás que existe un botón insertado que permite llamar un formulario, este formulario es muy simple, solo tiene un Textbox que inserta el contenido en una celda de Excel, la particularidad es que el dato que se ingrese se convertirá en un hyperlink o hipervínculo de correo electrónico, es decir abrirá el programa predeterminado para el envío de mails, que por lo general es Outlook.

El formulario tiene dos botones uno para cancelar y cerrar el formulario y el otro que permite guardar en la celda el dato introducido en el textbox, la macro sola determina la última fila con datos o primer fila libre para pegar el dato del textbox; el ejemplo lo puedes descargar sin restricción desde el link del final de este post, el código que se incorpora a continuación es el que encontrarás en el ejemplo, si lo observas tiene una codificación que se deber insertar en un módulo, esto es a los fines de llamar el formulario, el resto de la codificación que se inserta en un userform es el que permite crear el hyperlink o hipervínculo.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y 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 seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.




Código que se inserta en un módulo



Sub ir()
UserForm1.Show
End Sub


Código que se inserta en userform

Private Sub CommandButton1_Click()
Dim uf As Integer
Dim m, dt As String
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
m = "mailto:" & TextBox1
dt = TextBox1
Sheets("hoja1").Hyperlinks.Add Anchor:=Sheets("hoja1").Cells(uf + 1, 1), Address:=m, TextToDisplay:=dt
'Sheets("hoja1").Hyperlinks.Add Anchor:=Sheets("hoja1").Cells(uf + 1, 1), Address:="mailto:someone@example.com?subject=hello"
End Sub

Private Sub CommandButton2_Click()
Unload Me
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 la última fila con datos






Todo o casi todo aquel que esté en proceso de realizar o crear una macro, es muy probable que necesite saber como determinar la última fila con datos o como encontrar la primer fila libre, ya sea para determinar un rango para ordenar datos, establecer dicha fila para agregar datos o lo que se requiera hacer.



En el presente ejemplo de macro o código de VBA se muestra como determinar la última fila con datos, para ello existen varias formas la que se usará depende del los datos que tengamos la disposición de los mismos o la que mejor recordemos al momento de crear la macro.

Empecemos por la más sencilla:
uf = Sheets("BY879VbDAYRA10iBIUYT").Range("D" & Rows.Count).End(xlUp).Row

Este código lo que hace es poner en la variable "uf" cual es la última fila con datos de la column D, luego se puede usar así:

Cells(uf, 2). Select

Este código está haciendo referencia o seleccionando la última celda de la columna dos o "B"; o de esta otra forma que también hace referencia o selecciona a la última celda de la columna "D".

Range("D" & uf).Select  

También se puede utilizar un bucle para encontrar la última fila con datos, sin embargo supone un proceso mayor, ya que tiene que recorrer todas las filas hasta encontrarla, si son pocas no se nota el tiempo que tarda pero si son muchas la macro para determinar la última fila con datos tardará un poco.

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.


  

Para determinar la fila vacía mediante un bucle se puede usar el siguiente código "ActiveCell.Offset(1, 0).Select"; con este código se irá seleccionando la fila siguiente a la actual, para luego mediante el bucle ir determinando la última fila con datos, ya que el mismo debe recorrer las celdas hasta que encuentre un celda vacía, el problema con este código es que si en medio existe una celda vacía no produciría un error ya que la macro se detendrá y no precisamente en la última celda con datos.

Por último te voy a mostrar un código que utiliza la última celda con datos para determinar hasta cuando realizar un procedimiento de recorrido y proceso de las celdas, lo que hace el código es ir poniendo las celdas en rojo si son menores a 5, el bucle se realiza hasta la última celda con datos, lo cual es determinado por el siguiente código: While ActiveCell <> Empty

Desde el link del final podrás  bajar el archivo de ejemplo para que puedas adaptarlo a tus necesidades, no olvides colaborar para seguir manteniendo esta web.

El vídeo que sigue muestra una explicación más detallada y gráfica de la macro presentada, recomiendo observar para una más fácil comprensión de la macro; suscribe a nuestra web desde la parte superior derecha de la página ingresando tu mail y 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 seleccionarlasbuscar en listbox mientras escribes en textboxordenar hojas libro excel por su nombreconectar Excel con Access y muchos ejemplos más.





Código que se inserta en un módulo



Sub uf()
Dim uf As Integer
uf = Sheets("hoja1").Range("A" & Rows.Count).End(xlUp).Row
MsgBox ("La última fila es la " & uf), vbInformation, "AVISO"
End Sub


Sub ufbucle()
Dim dir
While ActiveCell <> Empty
dir = ActiveCell.Address(False, False)
ActiveCell.Offset(1, 0).Select
Wend
MsgBox ("La dirección de la última fila es " & dir), vbInformation, "AVISO"
End Sub


Sub bucle()
Dim fila, conta As Integer
fila = 2
Range("C:C").Interior.Pattern = xlNone
While Sheets("hoja1").Cells(fila, 3) <> Empty
 If Sheets("hoja1").Cells(fila, 3) < 5 Then
 Sheets("hoja1").Cells(fila, 3).Interior.Color = 255
 conta = conta + 1
 End If
fila = fila + 1
Wend
MsgBox ("Se encontrarón " & conta & " casos"), 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      

Ordena automáticamente en forma personalizada





En este sitio web hay varios post que tratan sobre como ordenar datos ordenar datos por algún criterio y de esta manera contar con un cierto orden para poder trabajar con ellos, esta macro de Excel o procedimiento de VBA un poco sofisticada, lo que hace es determinar el rango a ordenar automáticamente luego de ello aplica un criterio de ordenación personal, este criterio se logra posicionándose en la celda sobre la cual se requiere la ordenación de datos.


Si estás viendo este ejemplo quizás te sirvan los presentados anteriormente como ordenar datos e insertar filas mediante macro de VBA, en ese ejemplo se insertan filas entre cada  registro de proveedor y se hace una suma totalizada por proveedor, a su vez se ordena por el criterio proveedor; un poco más avanzado es el ejemplo donde se ordena automáticamente pero en base a varios criterios, a su vez se ordena en forma descendente y no ascendente que es la forma por defecto; también se puede consultar   userform para ordenar datos que tiene combobox que permite seleccionar el dato por el cual  ordenar, también se presentó una versión que ordena datos en base a varias columnas,.


Uu excelente texto sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.

MASTERCARD PAYONEER

Como se adelantó, el ejemplo de macro o código de VBA denominado ordenar automáticamente en forma personalizada, funciona posicionándose en la celda por la cual se requiere ordenar los datos, una vez seleccionada la celda, la macro sola detecta el rango usado y luego ordena los datos por un criterio personalizado que se obtiene al posicionar el cursor sobre alguna celda que se requiera a los fines que se tenga en cuenta para ordenar

Los datos se ordenan en forma descendente y dependiendo del criterio personalizado


Desde el link del final podrás bajar el archivo de ejemplo y adaptarlo a tus necesidades, existe un ejemplo presentado anteriormente que es un formulario que permite seleccionar el título de la columna por la cual ordenar, sugiero que observes su funcionamiento.

Código que se inserta en un módulo



Sub OrdenaCriterioPersonalizado()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim uc, wc, r, r1, b, mc, mc1, pf, uf As String
'determines last row with data
b = ActiveSheet.Name
mc = ActiveCell.Text
mc1 = ActiveCell.Address
pf = 2
uf = Sheets(b).Range("A" & Rows.Count).End(xlUp).Row
uc = Sheets(b).Cells(1, Columns.Count).End(xlToLeft).Address
pc = Sheets(b).Cells(1, Columns.Count).End(xlToLeft).End(xlToLeft).Address
wc = Mid(uc, InStr(uc, "$") + 1, InStr(2, uc, "$") - 2)
wc1 = Mid(pc, InStr(pc, "$") + 1, InStr(2, pc, "$") - 2)
wc2 = Mid(mc1, InStr(mc1, "$") + 1, InStr(2, mc1, "$") - 2)
r = wc2 & pf & ":" & wc2 & uf
r1 = wc1 & pf & ":" & wc & uf
'sorts the data
 ActiveWorkbook.Worksheets(b).Sort.SortFields.Clear
 ActiveWorkbook.Worksheets(b).Sort.SortFields.Add Key:=Range(r) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=(mc), DataOption:=xlSortNormal
 With ActiveWorkbook.Worksheets(b).Sort
        .SetRange Range(r1)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
 End With
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      

Como determinar la primer y útlima fila de la selección




Me preguntan en un pos como determinar la primer y última celda de un un rango seleccionado, esto es importante saberlo cuando se requiere hacer un bucle ya se usando for.. next, while ... wend o cualquier otra forma de realizar un bucle o a veces es necesario para aplicar un formato en una selección, en este post te muestro como colocar en una variable la primer y última fila de selección o un rango seleccionado.

Si quieres aprender o profundizar  sobre el manejo de hojas de Excel, te recomiendo que leas un excelente libro sobre Excel el que te ayudará manejar las planillas de cálculo, debes hacer click acá, si quieres un libro sobre Excel, en inglés, entonces debes hacer click acá. Si lo que necesitas es aprender o profundizar sobre la programación de macros con VBA este es unos de los mejores curso que he visto en internet.


MASTERCARD PAYONEER

Desde el link del final podrás  bajar el archivo de ejemplo y adaptarlo a tus necesidades, el código es libre y no tiene ningún tipo de restricción.

Para determinar la primer fila de un rango seleccionado y poner dicho valor en una variable, en este caso es r2; se usa el siguiente código:

 r2 = Selection.Cells(1, 1).Row

Ahora para saber cual es la última fila de la selección, se usa este otro código, también se agrega el valor en una variable en este caso r3:

r3 = Selection.Cells(Selection.Cells.Rows.Count, 1).Row

En el ejemplo macro que se agrega en el post y denominado como determinar la primer y última fila de la selección o rango, primero se determina la primer y última fila luego se pinta el rango seleccionado de color rojo, si se observa el código, éste realiza un bucle que va desde la primer hasta la última fila seleccionada y para pintarla de color rojo, de más está decir que se puede utilizar para un sin número de procedimientos, el fin del post es enseñar como se determina la primer y última fila de la selección.



Código que se inserta en un módulo

Sub selecciona()
Dim r1, r2 As String
 r2 = Selection.Cells(1, 1).Row
 r3 = Selection.Cells(Selection.Cells.Rows.Count, 1).Row
 Range("C:C").Interior.Pattern = xlNone
 For filazzz = r2 To r3
 Cells(filazzz, 3).Interior.Color = 255
 Next filazzz
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