Automatisch niew werkblad maken bij nieuwe invoer

[LuckyD75]

Hoi,

Ik ben bezig met een excel bestand voor een vereniging en heb begrepen dat het mogelijk is dat excel automatisch een werkblad met de naam van dit nieuwe record aanmaakt. Ik heb deze vraag bekeken

wat ik eigenlijk wil is dat het nieuwe werkbald een kopie is van een bestaand werkblad, wat ik als sjabloon heb gemaakt, zodat je alleen de gegevens nog hoeft in te voeren.

(Ik wil mijn bestand toevoegen, maar krijg keer op keer error 500?)

Ik hoop dat de mensen die dit lezen hier meer verstand van hebben en mij op weg kunnen helpen , ik ben nog nieuw met de programmeer codes

Groetjes Lucy

 

[LuckyD75]

Ow ja en is het misschien moggelijk dat de naam die je invoert in die kolom direct een link krijgt naar het werkblad? Hoef je niet alle tabbladen af en kan je direct vanaf het overzicht klikken

Alvast bedankt

 

[Roncancio]

Antwoord op vraag 1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Target
End If
End Sub

Indien een naam wordt ingevoerd in 1 van de cellen A2 t/m A10 dan wordt het huidige werkblad gekopieerd en achter het laatste werkblad geplaatst.

Antwoord op vraag 2:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A10")) Is Nothing And Target <> "" Then
    Application.Goto Sheets(Target.Value).Range("A1")
End If
End Sub

Indien 1 van de cellen A2 t/m A10 wordt geselecteerd en die cel is niet leeg, dan wordt het gelijknamige werkblad getoond.

----

Toelichting: beide codes dienen achter het te kopieren werkblad geplaatst te worden.

Met vriendelijke groet,


Roncancio

 

[LuckyD75]

Bedankt!
Dit is precies wat ik zocht. En na wat aanpassingen is het ook gelukt...
Super!

 

[Roncancio]

Graag gedaan.
Gaarne nog even de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio

 

[mooske04]

Ander sjabloon vh werkblad

Hoi,

ik vroeg me af of het nieuwe werkblad wat met de programmacodes automatisch aangemaakt wordt ook een andere opmaak kan hebben dan het huidige werkblad.

Als je 2 werkbladen hebt, en bijvoorbeeld in werkblad 1 iets ingevuld wordt en excel maakt automatisch een nieuw werkblad (3) aan, kan dit dan ook op basis van het sjabloon van werkblad 2 ipv obv werkblad 1?

 

[Roncancio]

Hoi,

ik vroeg me af of het nieuwe werkblad wat met de programmacodes automatisch aangemaakt wordt ook een andere opmaak kan hebben dan het huidige werkblad.

Als je 2 werkbladen hebt, en bijvoorbeeld in werkblad 1 iets ingevuld wordt en excel maakt automatisch een nieuw werkblad (3) aan, kan dit dan ook op basis van het sjabloon van werkblad 2 ipv obv werkblad 1?

Uiteraard, maar een voorbeeldbestand zou wel handig zijn.

Met vriendelijke groet,


Roncancio

 

[mooske04]

Het uploaden het bestand lukt niet, mss kan ik je dat evt mailen via een persoonlijk bericht?

Ik wil dus in het blad "overzicht" een klantnummer invoeren, de macro om dan met dat nr een nw blad aan te maken heb ik al gevonden en in de programmacode gezet. Ik wil alleen graag dat het nw blad dezelfde opmaak/kopie van het blad "basis" is.

 

[Haije]

mooske,

wijzig de code van Roncancio

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Target
End If
End Sub

in

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A10")) Is Nothing Then
    [COLOR="red"]Sheets("basis").Copy after:=Sheets(Sheets.Count)[/COLOR]    Sheets(Sheets.Count).Name = Target
End If
End Sub

 

[mooske04]

Helemaal goed! Bedankt!

 

[mooske04]

naam nieuw werkblad

Nog 1 vraag: allse uit bovenstaande werkt perfect, alleen in de programmacode van het te kopieren werkblad, staat de naam van dit blad. Deze naam neemt ie over in de programmacode van het nieuwe, automatish aangemaakte blad.
Hoe krijg ik de programmacode zo, dat in het nieuwe blad, meteen de eigen naam van het werkblad komt?