Sayfa İsimlerini Hücrelere Yazdırma

[nailsavas]

merhaba benim sorunum şu;

bir excel çalışma kitabımda yer alan sayfa adlarını nasıl bir çalışma sayfasını yazarız. örneklersek kitabımızda ali, veli, osman sayfaları var dörduncu bir sayfaya ali,veli,osman isimlerini nasıl otomatik olarak yazdırabiliriz (kopyala-yapıştır)

ilgileriniz için şimdiden teşekkürler

 

[AS3434]

Aşağıdaki linki inceleyin. Sn. kombo nun gönderdiği kodlar işinize yarayabilir.

http://excel.web.tr/showthread.php?t=28760

 

[nailsavas]

sevgili as3434 ilgin için öncelikle teşekkür ederim. Yalnız verdiğin linkin sorumla ilgisi yok. benim amacım sayfa yı bulmak için sağ tık yapınca görünen tüm çalışma sayfalarını hücrelere yazmak istiyorum..
sevgiyle kalınız...

 

[tirvana]

makro ile yapabilirsiniz...

Sub sayfaadiyaz()
For a = 1 To Sheets.Count
Cells(a + 4, 2) = Sheets(a).Name
Next

End Sub
örnek dosya ektedir.

 

[baydeniro]

Merhaba nailsavas. Umarım sorunu doğru anlamışımdır. Aşağıdaki formülü ilgili sayfaların A1 hücresine yapıştır.

=RIGHT(CELL("FILENAME";A1);LEN(CELL("FILENAME";A1))-SEARCH("]";CELL("FILENAME";A1);1))

=SAĞDAN(HÜCRE("DOSYAADI";A1);UZUNLUK(HÜCRE("DOSYAADI";A1))-MBUL("]";HÜCRE("DOSYAADI";A1);1))

 

[nailsavas]

Tirvana arkadaşım tam istediğimi bulmuşsun ellerine sağlık..
ayrıca serdarokan bey'e de yardımları konusunda teşekkür ederim....

 

[baydeniro]

Merhaba tirvana. Çok harika bir kod, çok teşekkürler.

 

[AS3434]

AS3434: Aşağıdaki linki inceleyin. Sn. kombo nun gönderdiği kodlar işinize yarayabilir.

Belirtilen kodlar. (Hatta örnek dosyası da var)

Sub Listele()
[A:A].ClearContents
For i = 1 To Sheets.Count
Cells(i + 1, 1) = Sheets(i).Name
Next
End Sub

nailsavas: sevgili as3434 ilgin için öncelikle teşekkür ederim. Yalnız verdiğin linkin sorumla ilgisi yok.

:???: :???: