Como poner mayuscula y minuscula a un rango de datos





Algo bastante común es transformar mayúsculas en minúsculas o en forma inversa minúsculas en mayúsculas, en este post presentó una macro para tener a mano casi siempre que se desea trabajar con cadenas de texto, descargando el ejemplo podrás ver una macro que muestra como poner mayúsculas y minúsculas.

Es posible que quizás sea de interés como poner mayúscula en la primer letra o como dar formato de negrita solo a mayúsculas, como trabajar con cadena de texto, como recorrer una cadena de texto, como buscar y reemplazar una cadena de texto.

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 final podrás descargar el ejemplo de macro denominado como poner mayúsculas y minúsculas, el código es libre y no tiene restricción alguna por lo que se autoriza su uso, descargado el ejemplo se podrá observar al abrir el fichero dos botones uno para pasar a mayúsculas y otro para pasar a minúsculas.

En el caso que puedas considera aportar para sostener el sitio y según incorporando nuevos ejemplos que podrás descargar en forma gratuita, en caso que no puedas solicitó compartas el conocimiento con tus amigos en redes sociales.

La macro es muy simple realiza un bucle entre la primer y última fila con datos recorriendo cada unas de las celdas del rango y transformando en minúscula o mayúscula dependiendo de la macro, el código que realiza esta acción es el siguiente:

Para tansformar en mayúscula se utiliza:

Range("A" & x) = UCase(Range("A" & x))


Para tansformar en minúscula se utiliza:

Range("A" & x) = LCase(Range("A" & x))


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 como ingresar solo números en textbox, macro que copia hoja activa y guarda como, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mailconectar Excel con Access y muchos ejemplos más.







 



Código que se inserta en un módulo

Sub Mayuscula()
Application.ScreenUpdating = False
On Error Resume Next
Set a = Sheets("Hoja1")
uf = a.Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To uf
Range("A" & x) = UCase(Range("A" & x))
Next x
Application.ScreenUpdating = True
End Sub

Sub Minuscula()
Application.ScreenUpdating = False
On Error Resume Next
Set a = Sheets("Hoja1")
uf = a.Range("A" & Rows.Count).End(xlUp).Row
For x = 2 To uf
Range("A" & x) = LCase(Range("A" & x))
Next x
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 crear una coleccion de datos y buscar uno por uno





En esta oportunidad se mostrará como crear un listado o colección de datos para luego poder usar ese listado y hacer un bucle para buscar datos uno por uno de todos los registros de la colección de datos.

Como se verá en el ejemplos de crea una colección de datos con todos los nombres de las aseguradoras listadas, luego se usa esos nombre de aseguradoras para buscar en la base de datos los registros relacionados, a su vez en este ejemplo resalta el nombre de las aseguradoras encontrados y los copia en la hoja2, ello es posible mediante la macro que crea un listado o colección de datos que luego son usados en un bucle.

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.

  

Una vez descargado el ejemplo, se podrá observar en el libro de Excel en la hoja 1, uno que ejecuta la macro el otro que vuelve a borrar los datos y dejarlos en el estado original para poder ejecutar la macro uno y otra vez sin problemas; por supuesto que como siembre se puede descargar el ejemplo en forma gratuita desde el final de post.

Se observa que existe en la columna A un listado de compañías aseguradoras, y en la columna B otro listado de compañías aseguradoras, el ejemplo consiste en hacer un listado o colección de datos únicos, es decir sin duplicados, con las compañías aseguradoras que se encuentran en la columna A.

El código que genera la colección de datos es el siguiente, previamente se cargó en la variable r1 el rango donde se encuentran los datos para crear la colección de datos:

For Each celda In Range(r1)
cod.Add celda.Value, CStr(celda.Value)
Next celda

Quizás también interese:
Como usar la función VLookup o BuscarV al presionar enter
Como usar la función VLookup o BuscarV con base datos en otra hoja
Como buscar datos con Vlookup y conservar los hipervinculos en los datos que ese obtienen de la base de datos

El ejemplo toma cada uno de esos nombres de compañías aseguradoras que forman parte de la colección de datos y hace un bucle con cada uno de ellos, es decir recorre desde el primer elemento de la lista hasta el último, una vez encontrado en la columna B el nombre de la compañía aseguradora que se está buscando lo resalta y lo copia en la hoja2; esto es posible con el siguiente código:

For Each dato In cod
busco = dato
Set codigo = Range(r2).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
dire = codigo.Row
Cells(codigo.Row, "B").Interior.Color = 255
Cells(codigo.Row, "B").Copy Destination:=Sheets("Hoja2").Range("A" & j)
j = j + 1
Sheets("Hoja2").Cells.Interior.Color = xlNone
End If
Next dato

Si se observa el código anterior con "For Each dato In cod"; se le dice a la macro por cada uno de los elementos de la colección, que los resalte en la columna B y los copia a la hoja2; en resumen se crea una colección de datos y luego se busca estos datos en la base de datos uno por uno.

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 guardar un archivo con una fecha en su nombrebuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, como pasar datos de listbox a hoja de Excel y muchos ejemplos más.







 


Código que se inserta en un módulo

Sub BuscaDato()
Dim cod As New Collection, celda, dato
Application.ScreenUpdating = False
On Error Resume Next
Set a = Sheets("Hoja1")
uf = a.Range("B" & Rows.Count).End(xlUp).Row
ufb = a.Range("A" & Rows.Count).End(xlUp).Row
r1 = "A2:A" & ufb
r2 = "B2:B" & uf
For Each celda In Range(r1)
cod.Add celda.Value, CStr(celda.Value)
Next celda
j = 1
For Each dato In cod
busco = dato
Set codigo = Range(r2).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)
If Not codigo Is Nothing Then
dire = codigo.Row
Cells(codigo.Row, "B").Interior.Color = 255
Cells(codigo.Row, "B").Copy Destination:=Sheets("Hoja2").Range("A" & j)
j = j + 1
Sheets("Hoja2").Cells.Interior.Color = xlNone
End If
Next dato

Application.ScreenUpdating = True
End Sub


Sub BorraColor()
Range("B1:B1000").Interior.Color = xlNone
Sheets("Hoja2").Cells.Clear
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 guardar datos en Portapapeles o Clipboard





En este post se muestra una macro que permite guardar datos en el Portapapeles o Clipboard de OFFICE, al presionar el menú del portapapeles de office se puede observar como la macro graba el dato, que en el caso del ejemplo, es el número de serie de la PC; se debe dejar en claro que el portapapeles de office tiene una capacidad de 24 registros luego de ello los registros se van superponiendo.

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 final del post se puede descargar el ejemplo que hemos denominado como guardar datos en portapapeles o clipboard; el archivo es un fichero comprimido .zip, en el se encuentra el archivo con la macro y un archivo de librería denominado FM20.DLL; esta librería es necesaria para que la macro pueda funcionar y manipular el portapapeles de office.

Para que la macro funcione correctamente se debe habilitar una librería denominada "Microsoft Forms 2.0 Object Library", es muy posible que no se encuentre en el listado de referencias disponibles, es por ello que se debe agregar; como se hace eso, sencillo se debe presionar "Examinar" y buscar en "C:\Windows\System32" o en donde esté instalado Windows; la libreria denominada FM20.DLL.

Una vez encontrado el archivo se debe hacer doble click sobre este, posterior a ello veremos que se encontrará incluida en la listas de Referencias disponibles que se encuentran en este cuadro, luego tildar la referencia "Microsoft Forms 2.0 Object Library" y la macro podrá funcionar correctamente.

Si el archivo FM20.DLL no se encuentra en su PC se debe descargar de internet y simplemente guardarlo en la dirección mencionada luego seguir los pasos mencionados; en el archivo comprimido está incluida la librería que requiere la macro para funcionar.



El ejemplo es muy simple con un código se lee el número de serie de la PC y cuyo número de serie se guarda en la variable nom, que luego se utiliza para copiar en el portapapeles de Office, el código que permite cargar al portapapeles es el siguiente:

objData.SetText nom
objData.PutInClipboard

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 como copiar varias tablas de Excel a Wordbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mailconectar Excel con Access y muchos ejemplos más.






 

Código que se inserta en un módulo

Sub NumeroDeSerie()
Dim objData As New MSForms.DataObject, nom
With CreateObject("Scripting.FileSystemObject")
nom = Hex(.Drives.Item("c:").SerialNumber)
MsgBox ("El número de serie de la PC es " & Hex(.Drives.Item("c:").SerialNumber) & " y se grabó en el portapapeles"), vbInformation, "AVISO"
objData.SetText nom
objData.PutInClipboard
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      

Como mostrar un GIF o imagen animada en un formulario Excel





Me preguntan en un foro si es posible poner una imagen gif, es decir animada en un formulario, la respuesta es SI, en este post se expone, como mostrar una imagen animada en un formulario de Excel.

El hecho de colocar una imagen en movimiento en un formulario no hace en si al funcionamiento que pueda llegar a tener el formulario donde se inserta, pero le da un aspecto profesional; si estás aquí leyendo acerca de esto es posible que también sea útil:

Como mostrar un formulario durante unos segundos y que se cierre automáticamente
Como maximizar un formulario al inicializarlo
Como minimizar un formulario al inicializarlo
Como eliminar X botón cerrar del formulario
Como eliminar la barra de formularios y botón X cerrar
Como anular el botón cerrar o X de los formularios de Excel
Como agregar botón maximizar minimizar a formulario de Excel

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 final del post se puede descargar el ejemplo denominado como mostrar un GIF o imagen animada en un formulario de Excel; una vez descargado el ejemplo se observará dos archivos uno con la macro que contiene el formulario donde se insertará la imagen gif y otro archivo que es la imagen gif, no interesa donde se guarde la única restricción es que se guarden los dos archivos en el mismo directorio.

Al iniciar el formulario se podrá observar en el costado superior izquierdo una imagen animada, que es la imagen gif que se encuentra en el archivo comprimido, en este ejemplo la imagen consiste en una imagen de una tarjeta de crédito que gira sobre su eje, por supuesto que cada uno puede poner la imagen que requiera.

Cabe destacar que el formulario que se presenta es completamente funcional y consiste en un formulario que permite generar una factura o sale invoice, si considera que puede ser útil, en el link anterior se encuentra la explicación de su funcionamiento y codificación.

Para lograr que se ejecute una imagen animada o GIF en un formulario de Excel, se apela a un control denominado Webrowser, esto normalmente se usa para insertar páginas web en un formulario, es decir es un navegador de internet, se apela a él para poder abrir la imagen GIF y de esta forma se puede ver la animación.

Es muy posible que en el cuadro de herramientas del editor VBA no aparezca la herramienta Webrowser para ello hay que agregarla, haciendo click con el segundo botón del mouse (botón derecho) sobre el cuadro de herramientas, se debe seleccionar agregar mas controles y luego seleccionar el control Microsoft Web Browser, tal cual se muestra en el cuadro siguiente:




El código que muestra la imagen gif en el formulario es el siguiente:

UserForm2.WebBrowser1.Navigate "about:<html><body scroll=no><img background-color: transparent; src='" & rutagif & "'></img></body></html>"

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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mailconectar Excel con Access y muchos ejemplos más.







 


Código que se inserta en un formulario

Private Sub UserForm_Initialize()
uf = Sheets("DbFac").Range("A" & Rows.Count).End(xlUp).Row
Nfac = Application.WorksheetFunction.Max(Sheets("DbFac").Range("A2" & ":A" & uf + 1)) + 1
Label2.Caption = Format(Nfac, "00000000")
Me.ListBox1.ColumnCount = 7
Me.ListBox1.ColumnWidths = "70 pt;150 pt;60 pt;60 pt;60 pt;60 pt;60 pt"
TextBox3.SetFocus
rutagif = ActiveWorkbook.Path & "\Logo.gif"
'UserForm2.WebBrowser1.Navigate rutagif
UserForm2.WebBrowser1.Navigate "about:<html><body scroll=no><img background-color: transparent; src='" & rutagif & "'></img></body></html>"
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 buscar datos en Excel conservar link y crear hyperlink link hipervinculo al registro





En esta oportunidad se mostrará un ejemplo de busqueda de datos a través de macros de Excel, consistente en buscar un dato y devolver los registros relacionados conservando el link, hyperlink, vínculo o hipervinculo  a la vez que se creará un link al registro de la base de datos que se encuentra en otra hoja del libro de Excel.

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 buscar el dato que se necesita se utiliza el método find, en el ejemplo que se presenta, se debe ingresar en la celda B1 el dato a buscar, luego presionar enter y la macro buscará en la base de datos, una vez encontrado el dato traerá a la fila 4 de la hoja 1 todos los registros relacionados con el dato buscado.

Quizás también interese:

Como usar la función VLookup o BuscarV al presionar enter
Como usar la función VLookup o BuscarV con base datos en otra hoja
Como buscar datos con Vlookup y conservar los hipervinculos en los datos que ese obtienen de la base de datos

Los registros devueltos por la macro conservan los link, hyperlink, hipervinculo o vínculo que contengan, es decir link a la URL que contenga el registro determinado, también crea en la celda A4 un link al registro que está en la hoja "URL MACRO EJEMPLO".

La codificación que permite crear el link al registro en la base de datos es el siguiente:

texhip = a.Cells(codigo.Row, 1)
celhyper = "'" & a.Name & "'" & "!" & "A" & codigo.Row
b.Hyperlinks.Add Anchor:=b.Cells(4, "A"), Address:="", SubAddress:=celhyper, TextToDisplay:=texhip

Recomiendo descargar el ejemplo desde el link del final para poder entender en forma más fácil la explicación del ejemplo que se trata en este post denominado como buscar un dato conservar los hipervinculos y crear link al registro en la base de datos.

La variable texhip guarda el texto que se debe mostrar en el hipervinculo, que en este caso coincide con el número de código buscado, pero se puede poner cualquier texto.

La variable celhyper guarda el nombre de la hoja y celda a donde se debe direccionar al hacer click en el link generado al registro que está en la base de datos.

Se debe tener en cuenta que "Address" es igual a vacío, acá normalmente va la dirección o URL donde debe dirigir el hipervinculo, sucede que en este caso el vínculo es a una celda del mismo libro por eso queda en blanco y se debe dar los paramentos requeridos por el argumento "Subaddress".

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 Recorre fila buscando y comparando datos de dos columnas en hojas distintasbuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mailconectar Excel con Access y muchos ejemplos más.







 



Código que se inserta en un módulo

Sub BuscarMetodoFindEnterCreaHyperlink()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim uf As String, texhip As String
Set a = Sheets("URL MACRO EJEMPLO")
Set b = Sheets("Hoja1")
b.Range("A4:F4").Clear
pf = 2
uf = a.Range("A" & Rows.Count).End(xlUp).Row
r = "A" & pf & ":A" & uf
busco = Cells(1, "B")
Set codigo = a.Range(r).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)

If Not codigo Is Nothing Then
texhip = a.Cells(codigo.Row, 1)
celhyper = "'" & a.Name & "'" & "!" & "A" & codigo.Row
b.Hyperlinks.Add Anchor:=b.Cells(4, "A"), Address:="", SubAddress:=celhyper, TextToDisplay:=texhip
Cells(4, "B") = a.Cells(codigo.Row, 2)

celhyper = a.Cells(codigo.Row, 3)
b.Hyperlinks.Add Anchor:=b.Cells(4, 3), Address:=celhyper, TextToDisplay:=celhyper
celhyper = a.Cells(codigo.Row, 4)
b.Hyperlinks.Add Anchor:=b.Cells(4, 4), Address:=celhyper, TextToDisplay:=celhyper
Cells(4, "E") = a.Cells(codigo.Row, 5)
celhyper = a.Cells(codigo.Row, 6)
b.Hyperlinks.Add Anchor:=b.Cells(4, 6), Address:=celhyper, TextToDisplay:=celhyper
Else
Range("4:4").Clear
Cells(4, "A") = "No se encontraron registros en la base de datos"
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Código que se inserta en el objeto hoja

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row = 1 Then
Application.OnKey "{ENTER}", "BuscarMetodoFindEnterCreaHyperlink"
End If

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 buscar datos en Excel y crear hyperlink link hipervinculo al registro


Como se ha explicado la expresión WorksheetFunction  permite a las macros ejecutar casi todas las funciones que vienen integradas en Excel, en este ejemplo se va a mostrar como buscar un dato ingresado y crear un hyperlink, link, vínculo o hipervinculo al registro en la base de datos.

Quizás sea de utilidad post anteriores denominados:
como usar la función VLookup o BuscarV al presionar enter y como usar la función VLookup o BuscarV con base datos en otra hoja o como buscar datos con Vlookup y conservar los hipervinculos en los datos que ese obtienen de la base de datos.

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 que permite buscar datos en Excel y crear link a dicho dato en la base de datos, se podrá observar que en la celda B1 se podrá ingresar el dato a buscar, al presionar enter se ejecuta la macro y en forma automática busca los datos en la base de datos que está en otra hoja y trae los datos encontrados conjuntamente con los registros relacionados a la hoja donde se ingresó el dato a buscar.

Esta forma de búsqueda tiene la particularidad que se crea en la celda A4 un link al registro encontrado que se encuentra en la hoja "URL MACRO EJEMPLO", ello se realiza con el siguiente código:

texhip = a.Cells(codigo.Row, 1)
celhyper = "'" & a.Name & "'" & "!" & "A" & codigo.Row
b.Hyperlinks.Add Anchor:=b.Cells(4, "A"), Address:="", SubAddress:=celhyper, TextToDisplay:=texhip

En la variable texhip es igual al dato encontrado, en este caso corresponde con un código de registro que se encuentra en la columna A, notese que el hyperlink se crea en la columna A fila cuatro.

La variable celhyper recepta un string con la dirección donde se dirigirá el link, hyperlink, hipervinculo o vinculo, siendo usado la sintaxis SubAddress del código que permite generar un link.

Luego la macro sigue agregando los datos correspondientes con el registro buscado y los coloca en la misma fila 4 columna correspondiente.

Considera la posibilidad de aportar al mantenimiento del sitio si consideras que fue útil, el ejemplo se puede descargar en forma gratuita desde el final del post, desde el link destinado a tal efecto.

Para comprender mejor lo expuesto, recomiendo observar vídeo siguiente 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 como guardar un archivo con una fecha en el nombrebuscar en listbox mientras escribes en textbox, como crear una factura o sale invoice y grabar guardar PDF XLS y enviar por mail, como conectar Excel con Word y modificar una plantilla de Word y muchos ejemplos más.









 

Código que se inserta en un módulo

Sub BuscarMetodoFindEnterHyperlink()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
Dim uf As String, texhip As String
Set a = Sheets("URL MACRO EJEMPLO")
Set b = Sheets("Hoja1")
b.Range("A4:F4").Clear
pf = 2
uf = a.Range("A" & Rows.Count).End(xlUp).Row
r = "A" & pf & ":A" & uf
busco = Cells(1, "B")
Set codigo = a.Range(r).Find(busco, LookIn:=xlValues, LookAt:=xlWhole)

If Not codigo Is Nothing Then
texhip = a.Cells(codigo.Row, 1)
celhyper = "'" & a.Name & "'" & "!" & "A" & codigo.Row
b.Hyperlinks.Add Anchor:=b.Cells(4, "A"), Address:="", SubAddress:=celhyper, TextToDisplay:=texhip
Cells(4, "B") = a.Cells(codigo.Row, 2)
Cells(4, "C") = a.Cells(codigo.Row, 3)
Cells(4, "D") = a.Cells(codigo.Row, 4)
Cells(4, "E") = a.Cells(codigo.Row, 5)
Cells(4, "F") = a.Cells(codigo.Row, 6)
Else
Range("4:4").Clear
Cells(4, "A") = "No se encontraron registros en la base de datos"
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Código que se inserta en un objeto hoja del libro

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row = 1 Then
Application.OnKey "{ENTER}", "BuscarMetodoFindEnterHyperlink"
End If
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