sayfa isimlerini alt alta yazsın

[udentr2002]

Merhaba arkadaşlar,

Bir butona tıkladığımda o çalışma kitabında ki sayfa adlarını a stünuna alt alta yazabilmesi için nasıl bir kod olabilir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir butona bağlayabilirsiniz.

Sub Sayfa_Ad_Listele()
    
    Dim i As Integer
    
    For i = 1 To Sheets.Count
        Cells(i, "A") = Sheets(i).Name
    Next i
    
End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod_bir()
aa = Sheets.Count

For i = 1 To aa
Cells(i, "a") = Sheets(i).Name
Next i

End Sub

. . .

 

[Murat OSMA]

Çok afedersiniz ama şimdiye kadar 1320 mesajınız var ve Sayfa isimlerini listeleme ile ilgili bir konu açıyorsunuz. İlginç.. :dusun: :dusun:

Aşağıdaki başlıkta kod arşiv programları var. Yeni konu açmak yerine dilerseniz bu programlardan faydalanabilirsiniz...

Excel Eğitim ve Kod Bankası Uygulamaları

İyi günler...

 

[udentr2002]

Hocam aslında çok haklısınız. Şu an arabada bir yere giderken lazım oldu. Otobüste bir yandan da dosyam için gerekli düzenleme yapmaya çalışıyorum. 1 saat sonra bir toplantıya girecem. O yüzden arama yapamadım. Özür.

Ellerinize ve emeğinize sağlık.

 

[Murat OSMA]

Estağfurullah. Siz de haklısınız..

Bir öneri: bir flash disk alın ve kod arşiv programını içine atın. İstediğiniz zaman programı açıp arama yapabilirsiniz. Çok geniş kapsamlıdırlar.
Üyelerin ya da yöneticilerin site olmadığı ya da müsait olmadıkları anda size cevap veremeyebilirler.
Basit, pek alengirli olmayan konularda destek alabilirsiniz. Bu nedenle bence yanınızda bir tane bulunsun.

İyi çalışmalar dileriim..

Hoşça kalın !!!

 

[udentr2002]

kesinlkle bundan sonra dediğinizi yapacam hocam

 

[Murat OSMA]

Peki...