Añadir enlace web en una celda con UserForm

He visto un vídeo en youtube que me gusto la idea, ahora quería personalizar un poquito mas pero no logro llegar.

Me gustaría poner en el campo de texto 1, el nombre del sitio web, en el campo 2 el enlace, dando al botón se inserta y cierra el Userforme. Podríamos definir la opción en las celdas a1:a10.

Os dejo en vídeo:Como añadir enlace en una celda con VBA en Excel

1

1 Respuesta

2.081.265 pts. En mi sitio encontraran material de ayuda, ejemplos...

La siguiente macro crea una lista de nombres de sitios y sus links.

Se coloca en el botón 'Guardar' del formulario:

Private Sub CommandButton1_Click()
'x Elsamatilde
'se colocarán los datos en la primer celda libre de col A
x = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & x) = TextBox1   'nombre del sitio
Range("B" & x) = TextBox2   'enlace
'se crea el hipervínculo
ActiveSheet.Hyperlinks.Add Range("B" & x), TextBox2
'opcional: vaciar los campos para continuar la carga
TextBox1 = "": TextBox2 = ""
TextBox1.SetFocus
End Sub

Así se verá en la hoja:

Espero sea lo que necesitas, sino aclara un poco más la idea.

Sdos!

Hola Elsa!

Básicamente es lo que hiciste, con el detalle de ocultar el vinculo a la palabra. 

Gracias por su atención.

Tengo los iconos de correo como botones para llamar al UserForm.

No te comprendo.

¿Necesitas qué el vínculo esté en la misma celda de la col A? sin la col B?

Entonces quedaría así:

Private Sub CommandButton1_Click()
'x Elsamatilde
'se colocarán los datos en la primer celda libre de col A
x = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & x) = TextBox1   'nombre del sitio
     'Range("B" & x) = TextBox2   'enlace no va
'se crea el hipervínculo
ActiveSheet.Hyperlinks.Add Range("A" & x), TextBox2
'opcional: vaciar los campos para continuar la carga
TextBox1 = "": TextBox2 = ""
TextBox1.SetFocus
End Sub

Sdos!

Simplifiquemos.

En la celda B5 tengo un botón (como en la imagen), el botón activa UserForm.

Relleno los campos.

En la celda A5, se envía el enlace o link. 

Lo bonito es que sea como un hypervinculo, en tu ejemplo, la palabra esta separada de la dirección, pero si logramos que la palabra sea el proprio enlace se veía mejor.

Enviame el libro para que pueda tomar el tipo de botón.

Los botones o controles están 'por encima' de las celdas por lo tanto no se puede determinar así de una en qué celda debe ser volcado el dato.

La 2da macro que te envié hace justamente lo que solicitas: que el vínculo se asocie a la celda de la col A, es decir al nombre del sitio. No en una nueva columna.

Lo que faltaría es que lo coloque en la celda donde tenés el botón... pero tu imagen no me permite determinar qué tipo de botón... y si vas a tener 10 botones necesitarás 10 llamadas a la macro... quizás podamos resolverlo de otro modo más simple.

Mis correos aparecen en esos sitios que dejé en mi imagen o en el link que dejo al pie.

Te envié.

Ya devolví libro con arreglos. Si el tema está resuelto no olvides valorar la respuesta para darla por cerrada.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas