Nieuw tabblad automatisch starten met gegevens

[AndyC]

Ik heb een excel lijst waarbij er automatisch een tabblad wordt aangemaakt wanneer ik in kolom A op het eerste tabblad iets ingeef. 

Ik zou nu graag hebben dat er op het nieuwe tabblad ook altijd dezelfde checklist te voorschijn komt.

Kan iemand mij helpen?

 

Dit is momenteel de programmacode van het eerste tabblad

 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    Worksheets.Add after:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = Target
End If
End Sub
 

[emielDS]

Zoals dotchie reeds aangaf plaats je in het vervolg beter een voorbeeldbestand, zonder privegegevens, nu is het voor ons raden wat je wil bekomen.

Toch een poging gewaagd.

tabblad_toevoegen (1).xlsm

[AndyC]

Mijn excuses. Het is de eerste keer dat ik iets post op een forum. 

In bijlage het bestand. 

Als ik nu een nummer ingeef in kolom A van het tabblad 'NETWERKEN' dan maakt hij automatisch een tabblad aan met die nummers.

Ik zou willen dat er in elk nieuw tabblad de opmaak komt zoals in tabblad HNW343239.

De naam van het nieuwe tabblad zou ook altijd met HNW...... moeten beginnen.

 

Mijn netwerken.xlsm

[bakerman]

Private Sub Worksheet_Change(ByVal Target As Range)

    If (Target.Column = 1) * (Target.Value <> vbNullString) Then

        Sheets("HNW343239").Copy , Sheets(Sheets.Count)

        Sheets(Sheets.Count).Name = "HNW" & Target.Value
    
    End If
    
End Sub

 

10 juli 2020 aangepast door bakerman

[AndyC]

Bedankt dit werkt al perfect. 

Mijn volgende vraag is. 

Ik zou in de kolom status een dropdown keuzelijst willen zoals ik die nu heb maar waarbij ik meerdere dingen tegelijk kan aanduiden. zodat in de kolom status niet enkel ONTW staat maar BVB Vrij,ONTW,...

 

[AndyC]

Deze werkte maar 1 keer maar nu werkt het niet meer. 

Mijn netwerken.xlsm

[AndyC]

Nu werkt het idd wel. Is het ook mogelijk om ervoor te zorgen dat ik die status ook terug kan verwijderen. Nu kan dit er ook dubbel inkomen en dit zou niet mogen.

[bakerman]

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Column = 1) * (Target.Value <> vbNullString) Then
    Sheets("HNW343239").Copy , Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = "HNW" & Target.Value
End If
If Target.Column = 8 Then
Application.EnableEvents = False
    Newvalue = Target.Value
    Application.Undo
    Oldvalue = Target.Value
    If InStr(1, Oldvalue, Newvalue, vbTextCompare) > 0 Then
        Target.Value = Oldvalue: GoTo Earlyexit
    End If
    If Oldvalue = "" Then
            Target.Value = Newvalue
    Else
            Target.Value = Oldvalue & ", " & Newvalue
    End If
End If
Earlyexit:
Application.EnableEvents = True
End Sub

 

[AndyC]

Dit is wat er nu gebeurd. Iemand een idee om dit op te lossen, Alvast bedankt.

[bakerman]

Kan je misschien ook uitleggen WAT er nu eigenlijk gebeurd ??????