Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » Error con Hyperlinks

Visual Basic - Error con Hyperlinks

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:
Mensajes realizados anteriormente (No estaban la última vez que entraste)Error con Hyperlinks
Sandra (19/02/2020 23:33:34)57 visitas
0 respuesta
sin imagen de perfil
Val: 12
Ha aumentado su posición en 5 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Error con Hyperlinks

Publicado por Sandra (5 intervenciones) el 19/02/2020 23:33:34
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:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
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


alguien podría decirme porque no muestra el hipervinculo o porque me arroja error.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder