sayfa isimlerini yazdırma

[maxinus]

Arkadaşlar kitap3.xls deki sayfa isimlerini kitap2.xls nin a1 den başlayarak a2,a3 yanyana kaç tane sayfa varsa onun isimlerin yazmasının istiyorum. Şimdiden teşekkür ederim.

 

[hamitcan]

Aşağıdaki örneği deneyin. (Not:Burada iki dosyanın açık olduğunu varsaydım. Kapalı dosyadaki sayfa isimleri için farklı bir kod gerekir.)

Sub SAYFAISMI()
For t = 1 To Workbooks("kitap3").Worksheets.Count
k = k + 1
Cells(k, 1) = Workbooks("kitap3").Sheets(t).Name
Next
End Sub

 

[maxinus]

bu kod çalışmıyor hata veriyor.

 

[maxinus]

Bu kodlar çalışmıyor yazdım ama bir yerde hata yapıyormuşum.Kodlar düzgün çalışıyor.Birde bunları dikey değilde yatay satırlara (A1,B1,C1...) nasıl yazabilirim.Teşekkür ederim.

 

[hamitcan]

Sub SAYFAISMI()
For t = 1 To Workbooks("kitap3").Worksheets.Count
k = k + 1
Cells(1, k) = Workbooks("kitap3").Sheets(t).Name
Next
End Sub

şeklinde deneyin.

 

[maxinus]

Evet şimdi oldu teşekkür ederim.Bir şey daha soracağım.Ben bunu A sütunudan değilde c sütundan başlayarak yanyana yazmasını istiyorum.

 

[maxinus]

Ben bu sorunumu hallettim başlangıçta k=2 demem yeterli oldu teşekkür ederim.