Nieuw werkblad bij invullen gegevens

[tommylammerink]

Hoi,

Ik heb dit Excel bestand zo ingesteld dat indien in kolom B tekst geplaatst wordt, een kopie van het tabblad "template" wordt gemaakt met de naam van het ingevoerde record.

Nu wil ik ook graag ook dat dit bestand automatisch het volgende doet, maar daar kom ik niet uit...
1. Op tabblad "invoer" automatisch een hyperlink plaatsen naar het nieuw aangemaakte tabblad.
2. Bovenaan het nieuw aangemaakte tabblad automatisch de naam van het ingevoerde record vermelden.

Zie mijn bestand als bijlage.

Any help?

Groetjes, tommy

 

[SjonR]

ZO?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
    Sheets("Template").Copy After:=Worksheets(Worksheets.Count)
    With ActiveSheet
        .Name = Target
        .Cells(1, 2) = Target
    End With
    Sheets("invoer").Hyperlinks.Add Target, "", "'" & ActiveSheet.Name & "'!A1", , ActiveSheet.Name
End If

End Sub

 

[bowlingman]

Of zo

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Value <> "" Then
    Sheets("Template").Copy After:=Worksheets(Worksheets.Count [COLOR="#FF0000"]- 1[/COLOR]) [COLOR="#008000"]'zo blijft de "Template" achteraan staan[/COLOR]
    With ActiveSheet
        .Name = Target
        .Cells([COLOR="#FF0000"]3[/COLOR], 2).Value = Target[COLOR="#008000"]'zo komt het recordnummer op de juiste plaats te staan[/COLOR]
    End With
    Sheets("invoer").Hyperlinks.Add Target, "", "'" & ActiveSheet.Name & "'!A1", , ActiveSheet.Name
End If

End Sub

Grtjs.
Armand

 

[VenA]

Gewoon alles in 1 tabje laten staan en je even verdiepen in draaitabellen lijkt mij een betere optie.

 

[tommylammerink]

Top bedankt!!