şablon ile çok sayıda otomatik sayfa ekleme

[ennteresan]

iyi günler.
Excel 2007 de bir şablonu 200-300 arası sayfaya uygulamam gerekiyor. şablon ekte var. sayfa isimleri standart olarak sayfa 1, sayfa 2 diye gidecek.

Bu işlemi her ay yapmam gerekiyor. Yardım ederseniz sevinirim.

 

[dEdE]

Merhaba,
Forumumuza hoşgeldiniz.
Aşağıdaki kodu bir modüle yapıştırıp dener misiniz?

Sub SayfaEkle()
SayfaSayısı = Application.InputBox("Lütfen Kaç Sayfa Ekleyeceğinizi Yazınız.", "EKLENECEK SAYFA SAYISI")
    If SayfaSayısı = False Then Exit Sub
    For i = 1 To SayfaSayısı
     Sheets("Şablon").Copy After:=Sheets(Sheets.Count)
     ActiveSheet.Name = "Sayfa" & i
     Next
End Sub

 

[ennteresan]

vakit ayırıp cevap verdiğiniz için teşekkürler. Kodu denedim şu hatayı aldım "subscript out of range"
-düzeltme--
Tamamdır şimdi anladım nasıl çalıştığını. Çok teşekkürler. Büyük zahmetten kurtardınız beni.
Bu arada hoşbulduk. Site çok hoşuma gitti, tam bir bilgi hazinesi.

Şimdi dosyada sayfaya hızlı erişim çin sitede arama yapayım. Bu kod işi iyiymiş gerçekten. ilk sayfaya buton ekleyip ona basıp istediğim sayfayı girip hızlı erişim de yaptım mı tamamdır.

son düzeltme-----(ard arda mesaj olmasın diye mesajı düzenliyorum)
yine sizin forumunuz sayesinde istediğim kitabı hazırladım. Forum paylaşımcılarına teşekkürler...

 

[dEdE]

hızlı erişim çin sitede arama yapayım. Bu kod işi iyiymiş gerçekten. ilk sayfaya buton ekleyip ona basıp istediğim sayfayı girip hızlı erişim de yaptım mı tamamdır.
yine sizin forumunuz sayesinde istediğim kitabı hazırladım....

Merhaba,
İşinize yaradığına sevindim.
Yalnız mesajınızdaki ...sizin... sözüne itirazım var.
Tamam bu forumun bir sahibi var ama burası siz de dahil hepimizin yani bizim.
Kurallara uygun olarak yardımlaşma. bilgiyi paylaşmadan kim zarar görmüş ki?
Hızlı erişim için Köprü yöntemini kullanabilirsiniz.
Hoşçakalın.

 

[ennteresan]

haklısınız. Ancak burada "sizin" ile hitap etmek istediğim tüm forum katılımcıları, forumu ortaklaşa zenginleştiren kitle.
Köprü yerine sizin girdiğiniz koddaki sayı girme kısmını kullandım, forumda yer alan istenen sayfaya butonla gitme ile ilgili kodu birleştirdim.