Şablon sayfalarını yeteri kadar çoğaltma

[cayaso]

Elimde 3 adet içinde değişik tablolar bulunan şablon sayfalar var. Bu sayfalarım 1 101 ve 201 sayfalarıdır. 1 ile başlayan sayfayı 1, 2, 3, ...... 90'a kadar, 101 şablon sayfasını ise 102, 103, 104, ............190'a kadar 201 ile başlayanı ise 201, 202, 203, 204 ........290'a kadar çoğaltmak istiyorum.çeşitli denemeler yapmama rağmen yapamadım. Makro ile veya başka bir yol ile pratik bir çözümü varmıdır.

 

[Muhammet Okumuş]

http://www.excel.web.tr/f48/sayfayy-kopyala-ve-ad-ver-t101774.html
linki inceleyiniz.

 

[cayaso]

Belirtilen linkteki açıklamalar malesef işimi görmedi, veya ben anlayamadım.

 

[Muhammet Okumuş]

Kodu deneyiniz

Sub Kopya()
Application.ScreenUpdating = False
For i = 1 To 3
For j = 2 To 9
Sheets(i).Copy After:=Sheets(Worksheets.Count)
x = (i - 1) * 100 + j
ActiveSheet.Name = x
ActiveSheet.DrawingObjects.Delete
Next j
Next i

End Sub