Macro voor nieuw werkblad

[Hylas]

Hallo,

ben een tijdje bezig geweest met een macro voor het kopiëren van een nieuw werkblad, heb een knop gemaakt om in 1 x een kopie te maken van het marterblad en dan een kopie op een nieuw te maken werkblad, de macro werkt wel maar hij maakt eigenlijk een afbeelding en niet zoals ik hem heb opgenomen, wat doe ik nu fout. het zal wel een kleinigheid wezen maar ik zie hem gewoon niet

Alvast bedankt vor het kijken naar mijn probleempje

Groet, Ton

 

[edmoor]

Gebruik dit:

Sub Kopieerwerkblad()
    Sheets("Stam").Copy After:=Sheets(Sheets.Count)
End Sub

 

[Hylas]

Bedankt

Nou zeg simpel toch, zoek te diep denk ik.


Bedankt voor je bijdrage

 

[VenA]

Je andere code kan ook wel een beetje anders.

Sub Printing()
  Union(Columns(6), Columns(12), Columns(18)).Columns.Hidden = True
  With ActiveSheet
    .PageSetup.PrintArea = "$A$1:$S$47"
    .PrintPreview
  End With
  Columns.Hidden = False
End Sub

 

[Hylas]

Dank je, ik ga hem morgen op het werk gelijk uitproberen, degene die er mee werkt zal er dankbaar voor zijn

 

[Ginger]

Snel een tab kopiëren? Hou de Crtl toets ingedrukt terwijl je de bewuste tab versleept. Zo heb je in 1x een copie van het origineel....