Error con Hyperlinks
Publicado por Sandra (1 intervención) el 19/02/2020 21:17:42
El funcionamiento del cód. es seleccionar mediando un combobox la hoja donde quiero que copie, me permite seleccionar el archivo al cual quiero vincular 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, osea no puedo acceder al archivo que elguí.
Por las dudas el cód. completo es:
alguien podría decirme porque no muestra el hipervinculo o porque me arroja error.
TextToDisplay:=ActiveCell.Value>> y no copia el vinculo, osea no puedo acceder al archivo que elguí.
Por las dudas el cód. completo es:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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.ShowEnd With
End Sub
alguien podría decirme porque no muestra el hipervinculo o porque me arroja error.
Valora esta pregunta
0