Hyperlink maken na invullen userform

[Fransenloes]

Hallo, allemaal

Na veel gelezen te hebben heb ik iets in elkaar gezet.

Tot nu toe is het gelukt, maar bij het laatste stukje wil ik graag hulp vragen.

Ik heb een userform gemaakt en als deze is ingevuld, maakt excel een tabblad met de naam en ingevulde gegevens.

De naam van het laatst gemaakte tabblad kopieërd hij naar het tabblad start.

Nu zou ik willen, dat als de naam naar tabblad start gekopieërd word, dat er gelijk een hyperlink naar het tabblad gemaakt word.

Hier kom ik dus niet uit.

Als bijlage, een voorbeeldbestand.

Alvast bedankt voor de hulp,

Frans.

 

[SjonR]

Hoi Frans,

Werkt dit voor je?. De copytostart kan je dan vergeten.

Sub Aanmaken_Click()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
    Sheets("Template (2)").Name = TextBox1
    [F1] = ActiveSheet.Name
    Range("H1").Value = TextBox2.Value
    Range("N1").Value = TextBox3.Value
    Range("P1").Value = TextBox4.Value
    Range("N5").Value = TextBox5.Value
    Range("H5").Value = TextBox6.Value
    
    With Sheets("Start")
    Lastrow = .Range("A65536").End(xlUp).Row + 1
                .Hyperlinks.Add .Range("A" & Lastrow), "", "'" & ActiveSheet.Name & "'!A1", , ActiveSheet.Name
    End With

End Sub

 

[Fransenloes]

Hoi Frans,

Werkt dit voor je?. De copytostart kan je dan vergeten.

Sub Aanmaken_Click()
Sheets("Template").Copy after:=Sheets(Sheets.Count)
    Sheets("Template (2)").Name = TextBox1
    [F1] = ActiveSheet.Name
    Range("H1").Value = TextBox2.Value
    Range("N1").Value = TextBox3.Value
    Range("P1").Value = TextBox4.Value
    Range("N5").Value = TextBox5.Value
    Range("H5").Value = TextBox6.Value
    
    With Sheets("Start")
    Lastrow = .Range("A65536").End(xlUp).Row + 1
                .Hyperlinks.Add .Range("A" & Lastrow), "", "'" & ActiveSheet.Name & "'!A1", , ActiveSheet.Name
    End With

End Sub

Hoi Sjon.

Jeetje.....ik ben al dagen bezig en nu wordt het even opgelost.

Dit is inderdaad de oplossing.

Heel erg bedankt voor de hulp, chapeau


Frans.