Automatisch macro kopieren nieuwe sheet

[angelokonijn]

Hallo iedereen,

Ik ben bezig met een invoerscherm voor twee nieuwe variabelen. Ik heb hier een voorbeeldje van gemaakt (zie bijlage). In het kort:
Ik heb het voor elkaar gekregen dat wanneer er op de button wordt gedrukt de naam in de juiste klas wordt geplaatst (klas 1 of 2). Ook is het me gelukt dat wanneer ik een klas toevoeg (extra werkblad) deze automatisch in de lijst wordt gezet van klassen.

Nu wil ik ervoor zorgen dat wanneer ik een nieuwe klas/werkblad toevoeg (in dit geval klas 3) de code voor het plaatsen van een nieuwe leerling in deze klas automatisch wordt gegenereerd zodat het invoervak up to date blijft. Deze code staat onder de button 'invoegen' in het eerste scherm

Is dit mogelijk?

 

[geep1980]

probeer volgende macro eens:

Welke_Klas = Sheets("totaal overzicht").Range("$C$7").Value

Sheets(Welke_Klas).Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Sheets("totaal overzicht").Select
Range("C4").Select
Selection.Copy
Sheets(Welke_Klas).Select
Range("A3").Select
ActiveSheet.Paste

 

[geep1980]

om te zorgen dat de lijst met klassen automatisch wordt bijgewerkt zou je het volgende kunnen doen:

In totaal overzicht de volgende macro opnemen:
Private Sub Worksheet_Activate()

Call Controleer_Klas_Tabbladen

End Sub

en dan in Module 1 de volgende:
Public Sub Controleer_Klas_Tabbladen()

' execute macros

If ActiveSheet.Name = "totaal overzicht" Then

Range("A40").Select
For i = 1 To Sheets.Count
Cells(i, 13).Value = Sheets(i).Name
Next i

' submit macro to run again in 2 seconds
Application.OnTime Now + TimeValue("00:00:30"), "Controleer_Klas_Tabbladen"


Else
Exit Sub
End If


End Sub

 

[angelokonijn]

Dankjewel! ik ben eruit!