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