sayfa adını yazdırmak

[cihangirkara]

arkadaşlar çalışma kitabındaki sayfaların adını istediğim sayfada a1 dan başlayarak sırayla yazdırmak istiyorum yardımlarınızı bekliyorum teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:557ec04d80]sub sayfaadiyaz()
for a=1 to sheets.count
cells(a,1)=sheets(a).name
next
end sub[/vb:1:557ec04d80]

 

[Kemal Demir]

sub isimver()

Sheets(1).Name = Range("a2").Value
Sheets(2).Name = Range("a3").Value
Sheets(3).Name = Range("a4").Value
Sheets(4).Name = Range("a5").Value
Sheets(5).Name = Range("a6").Value
Sheets(6).Name = Range("a7").Value
Sheets(7).Name = Range("a8").Value
Sheets(8).Name = Range("a9").Value
Sheets(9).Name = Range("a10").Value
Sheets(10).Name = Range("a11").Value

End sub


a2 den a11 e kadar olan değerleri var olan 10 sheet e isimleri verir