Hyperlink vanuit textbox

[kabebanaan]

Hallo,

Wanneer ik in een textbox verwijs naar een hyperlink (met een makkelijke naam) dan krijg ik als uitvoer op m'n werkblad niet de hyperlink te staan, maar alleen de makkelijke naam.

Weet iemand hoe ik wel de hyperlink als uitvoer krijg?

 

[Demeter]

................

Als ik je goed begrijp wil je:
een tekstvak met daarin tekst en een hyperlink.
als er op deze hyper link wordt geklikt krijg je in een bepaalde cel een waarde.

maar als je op deze link klikt krijg je de verkeerde waarde?
inplaats van http://test.nl alleen maar test.nl?

probeer deze code eens:

Dim hyperlinkstring as String
hyperlinkstring = "=HYPERLINK(""" & cmbGrid.value & """)"
ActiveCell.Offset(0, 18).Value = hyperlinkstring

waar cmbGrid de naam van je textbox is.


Groet,
Ferenc

 

[kabebanaan]

Nee dit was niet de bedoeling.
Ik heb een voorbeeld bestandje gemaakt.
Wanneer je deze opent zal 't duidelijk worden wat ik wil.

 

[Wigi]

Ik zal even de voorzet van Ferenc binnenkoppen:

Wijzig naar:

Range("a" & x).Offset(1, 0) = "=HYPERLINK(""" & TextBox1.Value & """)"

Wigi

 

[kabebanaan]

Ik zal even de voorzet van Ferenc binnenkoppen:

Wijzig naar:

Range("a" & x).Offset(1, 0) = "=HYPERLINK(""" & TextBox1.Value & """)"

Wigi

In dat geval krijg ik in de laatste cel in kolom "A"
=HYPERLINK("klik") in plaats van =HYPERLINK("http://www.moviemeter.nl/";"klik")
(Zoals er in cel F1 staat)

 

[Demeter]

..............

Ferenc op de rebound.............

Probeer deze eens?


Groet,
Ferenc

 

[kabebanaan]

Om de "aanval" compleet te maken ........
Dit bestandje werkt goed, alleen vraag ik me af of het ook mogelijk is in één textbox?

 

[Wigi]

Private Sub CommandButton1_Click()
    Dim x      As Long
    x = Cells(Rows.Count, "A").End(xlUp).Row
    Range("a" & x).Offset(1, 0) = "=HYPERLINK(""" & TextBox1.Value & """,""" & Range("F1").Value & """)"
    Unload Me
End Sub

Goal !!

Alleen zou het een echte WERELDGOAL zijn als we de website kunnen extracten uit cel F1.... Ik kan het niet op dit moment.

Wigi

 

[Demeter]

........

Mmmmmmmmmm,

Misschien is het een oplossing om de data die je in textbox1 invuld te spiltsen.
Zie code, HELAAS WERKT DEZE NOG NIET:

Sub CommandButton1_Click()
    Dim x      As Long
    Dim e      As Range
    Dim delen  As Range
    Dim arr    As Range
    
    x = Cells(Rows.Count, "A").End(xlUp).Row
    delen = TextBox1.Value
    arr = delen.Split(";")
    value_1 = arr(1)
    value_2 = arr(2)
    
    Range("a" & x).Offset(1, 0) = "=HYPERLINK(""" & value_1 & """,""" & value_2 & """)"
    
    Unload Me
End Sub

Hiermee zou je met een invoer als: http:/www.google.com;google kunnen werken.
Maar voor vandaag kun je er niet meer op rekenen, heb ook mijn eigen werk nog liggen.

Misschien iemand anders?


Succes,
Ferenc

ps,
Wigi, netjes gedaan.
Was daar helemaal aan langs gegaan.

Zo helpen we elkaar weer (een wat meer dan de ander maar, what goes around comes around )

 

[kabebanaan]

Mensen bedankt, weer een vraag minder voor mij.

 

[NLPaPe]

Ik zat op dezelfde lijn als Ferenc. Ik heb deze code gemaakt en die werkt wel.

Private Sub CommandButton1_Click()
    Dim x      As Long
    Dim e      As Range
    Dim i      As Long
    Dim stAdrress As String
    Dim stName As String
    
    x = Cells(Rows.Count, "A").End(xlUp).Row
    
    i = InStr(TextBox1.Value, ";")
    
    stAdrress = Left(TextBox1.Value, i - 1)
    
    stName = Right(TextBox1.Value, Len(TextBox1.Value) - i)
    
    Range("a" & x).Offset(1, 0) = "=HYPERLINK(""" & stAdrress & """,""" & stName & """)"
    
    Unload Me
End Sub

Je moet je adres en makkelijke naam scheiden door bijvoorbeeld een ";" teken.

Groeten,
Paul. (Die niet weet of dit "Not done" is om alsnog te reageren)

 

[Demeter]

Paul het is nooit te laat om te reageren (mits het on topic is).
Vaak zijn er meerdere oplossingen de een wat meer efficient dan de ander .

Thanxs voor je oplossing, kwam er zelf niet helemaal meer uit gisteravond.


Groet,
Ferenc

 

[Demeter]

Had deze ochtend nog een idee:
Volgende code toegevoegd: & "http://www."
Nu hoef je alleen maar bv google.com;google in te toetsen. en niet het hele gebeuren ervoor, wel zo makkelijk voor de mensen zonder typecursus .

Private Sub CommandButton1_Click()
    Dim x      As Long
    Dim e      As Range
    Dim i      As Long
    Dim stAdrress As String
    Dim stName As String
    
    x = Cells(Rows.Count, "A").End(xlUp).Row
    
    i = InStr(TextBox1.Value, ";")
    
    stAdrress = Left(TextBox1.Value, i - 1)
    
    stName = Right(TextBox1.Value, Len(TextBox1.Value) - i)
    
    Range("a" & x).Offset(1, 0) = "=HYPERLINK(""" [COLOR="Red"]& "http://www."[/COLOR] & stAdrress & """,""" & stName & """)"
    
    Unload Me
End Sub

Groet,
Ferenc

 

[kabebanaan]

Bedankt voor deze oplossing.
Hoe meer je aan de pc kunt overlaten hoe beter.

 

[Demeter]

Mits er wel i9emand achter zit die weet hoe het werkt als er iets fout gaat .

Mooi dat het werkt, prettig weekend.


Groet,
Ferenc

ps.
je zou natuurlijk ook de linknaam 'hardcoded' in je code kunnen verwerken, dan hoeven ze deze ook niet in te toetsen, nadeel is dan wel dat deze altijd het zelfde is
stName = Right(TextBox1.Value, Len(TextBox1.Value) - i) wordt dan stName = "Klik hier"