Hyperlink via Textbox VBA

[Kevinw01]

Goedemorgen,

Nu heb ik een textbox aangemaakt en hier wil ik een bestandlocatie invoeren. Deze schrijft de locatie weg naar het tabblad "data" in excel. Nu zou ik graag willen dat dit gelijk als hyperlink wordt weggeschreven, dus de bestandslocatie moet blauw worden en onderlijnd en klikbaar. Weet iemand hoe ik dit eenvoudig kan toepassen?

 

[snb]

Neem een macro op terwijl je in een cel een hyperlink plaatst.
Bewerk dan die macro.

 

[Kevinw01]

Hoe bewerk ik hem dan met de onderstaande code:

'-- Invoer Button
Private Sub CommandButton1_Click()
'-- Invoeren van de textboxen.
    Sheets(2).Select
    Range("A" & CStr(Rows.Count)).End(xlUp).Select
    ActiveCell.Offset(1, 1).Value = Naam.Text
    ActiveCell.Offset(1, 2).Value = Achternaam.Text
    ActiveCell.Offset(1, 3).Value = Afdeling.Text
    ActiveCell.Offset(1, 4).Value = Onderwerp.Text
    ActiveCell.Offset(1, 5).Value = DatumAanvraag.Text
    ActiveCell.Offset(1, 5).Value = DatumAanvraag.Text
    ActiveCell.Offset(1, 6).Value = DatumEind.Text
    ActiveCell.Offset(1, 7).Value = Doel.Text
    ActiveCell.Offset(1, 8).Value = ComboBox1.Value
    ActiveCell.Offset(1, 9).Value = Opdracht.Text
    ActiveCell.Offset(1, 10).Value = Bestandslocatie.Text
'-- Aanroepen van de code voor het leegmaken van de textboxen.
    Call LeegTextBox
End Sub

Want het gaat om de onderste bestandslocatie.text?

 

[snb]

Ik zie geen macro waarmee je een hyperlink maakt....

 

[Kevinw01]

Nee dat klopt, omdat ik niet weet waar ik hem zou moeten plaatsen?
Het is zo dat de code een userform is met allerlei textboxen die ik invul, die dan door middel van offset in een sheet worden geplaatst.

 

[Warme bakkertje]

Ik zie ook dat je mijn aanbevelingen uit topic http://www.helpmij.nl/forum/showthread.php?t=518335 niet opgevolgd hebt en blijft vasthouden aan je Select en Activecell.Offset

 

[Kevinw01]

ja dat klopt, ik zag dat mijn methode meer werd toegepast en vond dit toch iets overzichtelijker

Weet niet of het voor de rest kwaad kan?

 

[snb]

Waarom vragen stellen als je met de suggesties niets doet ?

 

[Kevinw01]

Die doe ik wel, maar ik gaf al aan dat ik niet waar ik die stuk code van de macro moet plaatsten in mijn huidige code?

 

[Kevinw01]

code van de hyperlink, maar ja weet niet waar ik hem moet plaatsen:

Sub hyperlink()
'
' hyperlink Macro
' De macro is opgenomen op 30-3-2010 door nh74628.
'

'
    Application.WindowState = xlMinimized
    ActiveSheet.Paste
    Columns("J:J").EntireColumn.AutoFit
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "G:\Nederland\Rapporten", TextToDisplay:="G:\Nederland\Rapporten"
End Sub

 

[Kevinw01]

Code van warm bakkertje toegepast, nu werkt dit niet meer:

'-- Autonummering
 Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Cells.Count = 1 And Target.Column = 2 Then
    If Target.Offset(0, -1) = "" Then
      Application.EnableEvents = False
      Target.Offset(0, -1) = Application.WorksheetFunction.Max(Range("A:A")) + 1
      Application.EnableEvents = True
    End If
  End If
End Sub

ps en zoek nog steeds een oplossing voor de hyperlink probleem, thanx!

 

[snb]

Mij lijkt de diskrepantie tussen je ambities en je vaardigheden te groot. Dan kun je suggesties van het forum ook niet toepassen.
Begin bij het begin en neem een goed VBA-boek systematisch (van voren naar achter) goed door.

 

[Kevinw01]

Heb een goed boek gekocht maar dat zijn macro's en vba in excel, dat is net iets anders dan userforms. Maar goed toch bedankt voor de moeite

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
sq = Naam.Text & "|" & Achternaam.Text & "|" & Afdeling.Text & "|" & Onderwerp.Text & "|" & DatumAanvraag.Text & "|" & _
    DatumEind.Text & "|" & Doel.Text & "|" & ComboBox1.Value & "|" & Opdracht.Text
With Sheets(2).[A65536].End(xlUp)
    .Offset(1).Resize(, 9) = Split(sq, "|")
    .Hyperlinks.Add .Offset(, 9), Bestandslocatie.Text, , , Bestandslocatie.Text
End With
End Sub

 

[Kevinw01]

Rudi,

Dank je wel voor je code, maar hoe komt het als ik jouw code toepast dat mijn autonummering niet meer werkt?
Hij doet de autonummering op het invultabblad in kolom A namelijk.

 

[Warme bakkertje]

Private Sub CommandButton1_Click()
sq = Naam.Text & "|" & Achternaam.Text & "|" & Afdeling.Text & "|" & Onderwerp.Text & "|" & DatumAanvraag.Text & "|" & _
    DatumEind.Text & "|" & Doel.Text & "|" & ComboBox1.Value & "|" & Opdracht.Text
With Sheets(2).[A65536].End(xlUp)
    .Offset(1,1).Resize(, 9) = Split(sq, "|")
    .Hyperlinks.Add .Offset(1, 10), Bestandslocatie.Text, , , Bestandslocatie.Text
End With
End Sub

 

[Kevinw01]

Rudi,

Toch bedankt voor de moeite, maar krijg het helaas niet werkend. Ik probeer het zelf wel ff verder uit te vogelen. Nogmaals Thanx

 

[Warme bakkertje]

Post anders eens een voorbeeldbestandje met wat fictieve gegevens, want zo op goed geluk kunnen we je ook niet verder helpen.

 

[Kevinw01]

Rudi,

Bestand is toegevoegd, het is helemaal leeg document. Invoerformulier staat op het eerste tabblad en moet op het tweede tabblad gevuld worden

 

[radelooz]

je kunt een makkelijk .vbs script maken
met een paar commado''s