Crear hipervinculo

Denunciar
Message postés
1
Date d'inscription
jueves, 20 de febrero de 2020
Estatus
Miembro
Última intervención
jueves, 20 de febrero de 2020
-
Hola y gracias de antemano a quién se tome un tiempo de leer este mensaje.
Tengo un problema con el cód. que voy entendiendo de apoco e intento ver videos o busco respuesta en foros para resolver algunos errores que se presentan pero en esta situción no encontre nada. Por favor, si alguien podría ayudarme...

El funcionamiento del cód. es seleccionar mediante un combobox la hoja donde quiero que copie lo que ingrese en el userform. También me permite seleccionar el archivo al cual quiero vincular el texbox 3. Hasta ahí funciona bien, pero me salta un error aquí: <<ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Value, _
TextToDisplay:=ActiveCell.Value>> y no copia el vinculo.

El cód. completo es:
Private Sub CommandButton1_Click()

Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer

NombreHoja = Me.ComboBox1.Value
Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("A7").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1 + 6

With ThisWorkbook.Sheets(NombreHoja)

.Cells(NuevaFila, 1).Value = Me.TextBox1.Value
.Cells(NuevaFila, 2).Value = Me.TextBox2.Value
.Cells(NuevaFila, 3).Value = Me.ComboBox1.Value
.Cells(NuevaFila, 4).Value = Me.TextBox3.Value

.Cells(NuevaFila, 4).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=ActiveCell.Value, _
TextToDisplay:=ActiveCell.Value

With Me
.ComboBox1 = ""
.TextBox1 = ""
.TextBox2 = ""
.TextBox3 = ""
End With
MsgBox "Datos Registrados!", vbInformation, ""
Unload Me
UserForm1.Show
End With
End Sub