Código VBA vínculo hipertexto desde un textbox hacia una pestaña de libro.xlsm

Hola,

un ejemplo:

poner el enlace en la celda A1 de la hoja que se abrirá el UserForm

Option Explicit Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Range("A1").Hyperlinks.Count > 0 Then If TextBox1.Text = Range("A1").Hyperlinks(1).TextToDisplay Then With Selection.Hyperlinks(1) .Follow NewWindow:=False, AddHistory:=True If .SubAddress <> "" Then Sheets(Split(.SubAddress, "!")(0)).Select Range(Split(.SubAddress, "!")(1)).Select End If End With End If End If End Sub Private Sub UserForm_Initialize() TextBox1.Text = Range("A1").Value End Sub 

A adapter

--
@+ Le Pivert

hola cs_le pivert!
estoy probando tu código y te mantendré al tanto. mientras tanto aquí está mi codificación el enlace de hipertexto funciona para google maps pero no para mi libro.

Dim f, choix(), Rng, Ncol

Private Sub TextBox6_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ThisWorkbook.FollowHyperlink link & Me.TextBox6.Text

End Sub

Private Sub TextBox7_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ThisWorkbook.FollowHyperlink link & Me.TextBox7.Text
End Sub

Private Sub UserForm_Initialize()
Set f = Sheets("bd")
Set Rng = f.Range("A3:G" & f.[a65000].End(xlUp).Row)
TblTmp = Rng.Value
Ncol = Rng.Columns.Count
For i = LBound(TblTmp) To UBound(TblTmp)
ReDim Preserve choix(1 To i)
For k = LBound(TblTmp) To UBound(TblTmp, 2)
choix(i) = choix(i) & TblTmp(i, k) & " * "
Next k
Next i
Me.ComboBox1.List = Rng.Value
'---
For i = 1 To Ncol
temp = temp & f.Columns(i).Width * 0.8 & ";"
Next
Me.ComboBox1.ColumnCount = Ncol
Me.ComboBox1.ColumnWidths = temp
'-- encabezados TextBox
For i = 1 To Ncol
Set Lab = Me.Controls.Add("Forms.Label.1")
Lab.Caption = f.Cells(2, i)
Lab.Top = Me("textbox" & i + 1).Top - 17
Lab.Left = Me("textbox" & i + 1).Left

Next
End Sub

Private Sub comboBox1_Change()
If Me.ComboBox1 <> "" Then
If Me.ComboBox1.ListIndex = -1 Then
mots = Split(Trim(Me.ComboBox1), " ")
Tbl = choix
For i = LBound(mots) To UBound(mots)
Tbl = Filter(Tbl, mots(i), True, vbTextCompare)
Next i
n = 0: Dim b()
For i = LBound(Tbl) To UBound(Tbl)
a = Split(Tbl(i), "*")
n = n + 1: ReDim Preserve b(1 To Ncol, 1 To n)
For k = 1 To Ncol
b(k, i + 1) = a(k - 1)
Next k
Next i
If n > 0 Then
ReDim Preserve b(1 To Ncol, 1 To n + 1)
Me.ComboBox1.List = Application.Transpose(b)
Me.ComboBox1.RemoveItem n
End If
Me.ComboBox1.DropDown
Else
For k = 0 To Ncol - 1
Me("textBox" & k + 2) = Me.ComboBox1.Column(k)
Next k
End If
End If
End Sub

ok gracias por la procedimiento ... me salté un paso!

https://www.cjoint.com/c/JGCrqKkoHDj

He revisado bien tu código. Es perfecto y exactamente lo que necesito, pero no logro adaptarlo. Quiero conservar la búsqueda intuitiva en mi combobox y, por eso, no sé cómo hacerlo...

hola El Castor.gracias por tus investigaciones.
tengo un error de ejecución 9. al lanzar el dblclick.¿no sería necesario cambiar la forma en que muestro mis enlaces hipertexto?

Bueno, entonces aquí no se entiende nada ... ¡no funciona en mi casa!!!

extraño ... lo miro comprobando todo! te mantendré informado.
muchas gracias por la ayuda!!!

Y bueno, lo siento... nada funciona. Intentaré en otra máquina por si acaso...

Hola, El Castor.
Pues tampoco funciona...¡también había intentado cambiar el nombre de los enlaces para que no aparecieran comillas simples y parece que nada funciona! es realmente un problema porque no veo qué es lo que falla.