Sheet adlarını kopyalamak

[msalvarli]

Herkese selam,
Benim bir sorunum var şöyleki; elimde yaklaşık 100 sayfalık(sheet) bir excel dosyası var ve bu sayfa isimlerini biryere yazdırmak veya kopyalamak istiyorum. Tek tek bu sayfa isimlerini yazmak epeyce zor. Bu konuda yardımcı olursanız sevinirim.

 

[hamitcan]

Aşağıdaki kodu deneyin.

Sub NN()
    For i = 1 To 100
    Sayfa1.Cells(i, 1) = Sheets(i).Name
    Next
End Sub

 

[Erdal]

sn hamitcan
çalışma kitabı açıldığında otomatik olarak sayfa ismini yazmasını istediğimden kodlarınızı
Sub Autpen()
For i = 1 To 100
Sayfa1.Cells(i, 1) = Sheets(i).Name
Next
End Sub
şeklinde değiştirerek boş bir modüle kopyaladım. İşlemi yapıyor ama
Sayfa1.Cells(i, 1) = Sheets(i).Name
satırında hata veriyor. Acaba nerde hata yapıyorum. Yardımcı olabilirmisiniz.

 

[hamitcan]

Sayfa sayınız 100 den az mı ? Eğer öyleyse,

Sub NN()
On Error Resume Next'satırını ekleyin
    For i = 1 To 100
    Sayfa1.Cells(i, 1) = Sheets(i).Name
    Next
End Sub

 

[conari]

sayfa1 yoktur.

 

[hamitcan]

Yeni farkettim; Sayın somer, niye iki farklı isim kullanıyorsunuz ?

 

[conari]

+1 neden?

 

[Erdal]

Yeni farkettim; Sayın somer, niye iki farklı isim kullanıyorsunuz ?

 

[Erdal]

Anlamadım sn. hamitcan

 

[conari]

bu ne demek şimdi?

 

[hamitcan]

msalvarli soruyu sormuş, siz de devam ettirmişsiniz. Bundan nasıl bir sonuç çıkarmalıyız.

 

[Erdal]

Konu benimde ilgimi çekince bende soru sordum. Karışıklık için özür dilerim. Yardımlarınız için teşekkürler.

 

[msalvarli]

teşekkürler

Aşağıdaki kodu deneyin.

Sub NN()
    For i = 1 To 100
    Sayfa1.Cells(i, 1) = Sheets(i).Name
    Next
End Sub

gerçekten beni büyük bir işten kurtardınız yardımınız için teşekkür ederim sayın hamitcan arkadaşım...