Nieuw werkblad en optellen

[mariek81]

Hallo,

Ik wilde in Excel een macro maken zodat wanneer een nieuw werkblad gemaakt wordt deze automatisch naar de laatste plaats gaat en het orgineel dat op het eerste werkblad staat gekopieerd word hierin. Ik heb geprobeerd een macro op te nemen en dan de acties uit voeren, maar dan komt ie niet goed uit, hij maakt dan alleen een nieuw werkblad aan.

Ook wilde ik graag dat wat in dit nieuwe blad ingevuld wordt automatisch ingevuld wordt in een totaal blad. Nu doe ik dat nog met een formule, maar deze neemt alleen bladen mee die al bestaan en dus geen “toekomstige”

Is hier iemand die mij hierin kan helpen?

 

[Wigi]

Dag mariek81

Plak deze code eens in ThisWorkbook:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
    
    Dim wb As Workbook
    
    Set wb = ThisWorkbook
    
    Sh.Move after:=wb.Sheets(wb.Sheets.Count)
    
    wb.Sheets(1).Range("A1:H100").Copy Sh.Range("A1")
    
End Sub

Dat zet het tabblad al vanachter, en kopieert bereik A1:H100 naar daar.

Het laatste in je vraag zal lastiger zijn.

Wigi