Sayfa çoğaltmak

[scartex]

Merhaba arkadaşlar,
Benim sormak istediğim belkide birçoğunuza basit gelecek ancak.
Bir excel dosyasına 1 den 600 e kadar sayfa eklemek istiyorum.
Sayfa isimleride 1 le başlayıp 600 le bitmeli.
Yardımcı olursanız sevinirim.
İyi çalışmalar.

 

[scartex]

İSİMLENDİRME

Merhaba arkadaşlar,

Biraz önceki sorumu değiştiriyorum çok sayıda sayfayı 1 den 600 e kadar otomatik isimlendirme yapabilirmiyiz.
Teşekkürler

 

[Zeki Gürsoy]

Sub isimlendir()
For z = 1 To 600
    c = c + 1
    Sheets(z).Name = c
Next
End Sub

 

[scartex]

KULLANIM

teşekkürler anemos
bu kodu nasıl kullanırım ?

 

[Zeki Gürsoy]

Bir düğmeye bağlayabilirsiniz.

 

[Kemal Demir]

Sn.Scartex

Küçük Bir dosya ekledim.Umarım İstediğniz Gibidir.

 

[scartex]

Çok teşekkür ederim RAKKAS bu dosya işime yaradı.

 

[mr.murat]

RAKKAS BU SORUYU GENİŞLETEREK SORSAM;
SENİN VERDİĞİN ÖRNEK YENİ SAYFALAR EKLİYOR,
BENİM İKİ SAYFAM VAR BUNLARDAN BİRİNDE ŞABLON VAR, İŞTE BU SAYFADAN 200 ADET ÇOĞALTMAK İSTİYORUM.
BÖYLE BİRŞEY YAPABİLİR MİYİZ?? :?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin. Şablon sayfanızın adını "Sayfa1" yazan yere yazın.

[vb:1:d2fe4ae023]Sub cogalt()
For a = 1 To 200
Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = a
Next
End Sub[/vb:1:d2fe4ae023]

 

[mr.murat]

44 tane kopyalıyor sonra hata veriyor??? :?

 

[Levent Menteşoğlu]

Verdiği hata mesajı nedir? dosyanızda "45" isimli bir sayfa önceden mevcutmudur? eğer mevcutsa ismini değiştirin.

 

[mr.murat]

run-time eror "1004":

worksheet sınıfının Copy yönetimi başarısız

yazıyor :?

 

[Kemal Demir]

Sn.mr.murat,

Bende Sn.leventm, in fikrine katılıyorum.

 

[mr.murat]

ikitane sayfam var ilki"....." ikincisi "1"
45 falan yok
???

 

[Kemal Demir]

Sn.mr.murat,

Dosyanızın içeriğini Değiştirerek yollarsanız bakmak isterim.

 

[mr.murat]

EKTE GÖNDERDİM.
MAKROLARDAN MI KAYNAKLANIYOR??

 

[Kemal Demir]

Dosyayı incelermisiniz.

Kendim test ettim problem çıkmadı.



Zannedersem Leventm bey'in Yazmıs oldugu kodda

[vb:1:62501e13a8]Sub cogalt()
For a = 1 To 200
Sheets("Sayfa1").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = a
Next
End Sub [/vb:1:62501e13a8]

sayfa ismini "...." olarak değiştirdiğinizde problem çözülmektedir.

[vb:1:62501e13a8]Sub cogalt()
For a = 1 To 200
Sheets("....").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = a
Next
End Sub [/vb:1:62501e13a8]

 

[Levent Menteşoğlu]

Evet ilginç bir durum, mr1 isimli sayfanın kopyalanması engelleniyor ama sebebini çözemedim. Her iki sayfayıda başka bir excel dosyasına kopyalayınca kod sorunsuz çalışıyor (sekme üzerinden sağklik ile yapılan taşıma değil normal sayfayı copy-paste ile kopyalama)

 

[Kemal Demir]

Evet ilginç bir durum, mr1 isimli sayfanın kopyalanması engelleniyor ama sebebini çözemedim. Her iki sayfayıda başka bir excel dosyasına kopyalayınca kod sorunsuz çalışıyor (sekme üzerinden sağklik ile yapılan taşıma değil normal sayfayı copy-paste ile kopyalama)

Olaya bakış'ım benım cok değişikti.

Gönderdiğim Cevap için Üzgünüm.

 

[Kemal Demir]

İyi günler.

Büyük Ustad Sn.Leventm İzni ile Sn.mr.murat

Ek'teki Örnek Belki Tam anlamıyla istediğiniz gibi değil ama İsteklerinizi Büyük Ölcüde karşılayacağını inandığım için sizlerle paylaşmak istedim.

Umarım faudalı olur.