tabbladen copyeren

[rostie-rostelli]

Hallo,

Ik heb een makro gemaakt die een bepaald tabblad moet copyeren, maar de makro plaatst de copy altijd op dezelfde plaats, (tussenin de andere tabbladen) terwijl het nodig is dat hij deze achteraan als laatste plaatst, want een andere makro moet vervolgens hetzelfde doen met een ander tabblad die eveneens achteraan moet aansluiten.

Hierbij de code die ik gebruik,
PS: de (5) weglaten geeft een fout!!
Hoe kan ik dit oplossen aub!!

Private Sub CommandButton1_Click()
' Create blad normale dienst

Sheets("normale dienst").Select
Sheets("normale dienst").Copy after:=Sheets(5)
Sheets("beheer").Select

End Sub

Alvast bedankt,
Rostie

 

[OctaFish]

Dit zou het moeten doen:

Sheets("normale dienst").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)

Michel

 

[Warme bakkertje]

Sheets("normale dienst").Copy After:=Sheets(Sheets.Count)

Mvg

Rudi

 

[snb]

Of

Sheets("normale dienst").Copy ,Sheets(Sheets.Count)

 

[rostie-rostelli]

Hallo,

De code werkt perfect zoals het moet !!! :thumb:

Hartelijk bedankt aan allen die reageerden !!

Groetjes,
Rostie