sayfa isimlerini a1 den itibaren listeleme

[hurkanpisirici]

merhaba çalışma kitabımdaki sayfaları 1 sayfada a1 hücresinden aşağıya doğru listelemek istiyorum bunun kodu nedir acaba?

 

[Ayhan Ercan]

merhaba çalışma kitabımdaki sayfaları 1 sayfada a1 hücresinden aşağıya doğru listelemek istiyorum bunun kodu nedir acaba?

Merhaba hrknp

Aşağıdaki kod işini görür sanırım...

For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next

 

[hurkanpisirici]

teşekkür ederim ayhan hocam .kodu sayfanın kod bölümüne yapıştırdım ama bişey olmadı

 

[Orion1]

Sayfanın sheet_activate olayına yazınız.
Sonra başka bir sayfa açıp tekrar bu sayfayı açınız.

 

[Ayhan Ercan]

Kodu bir düğmeye atayarak da yapabilirsiniz...

 

[hurkanpisirici]

hocam worksheet çıkıyor sadece activate bölümü nerde acaba?

 

[hurkanpisirici]

tamamdır hocam hallettim çok iyisiniz sağolun

 

[Ayhan Ercan]

hocam worksheet çıkıyor sadece activate bölümü nerde acaba?

Alttaki kodu kod penceresine yazın...

Private Sub Worksheet_Activate()
For i = 1 To Sheets.Count
Cells(i, 1) = Sheets(i).Name
Next
End Sub

 

[Orion1]

hocam worksheet çıkıyor sadece activate bölümü nerde acaba?

 

[hurkanpisirici]

teşekkür edeirm hocma ellerinize sağlık

 

[hurkanpisirici]

evren hocam zahmet etmişsiniz çok sağolun.

 

[hurkanpisirici]

hocam tekrar rahatsız ettim bu liste oluştuktan sonra sildiğim sayfalar listeden silinmiyor)

 

[Orion1]

hocam tekrar rahatsız ettim bu liste oluştuktan sonra sildiğim sayfalar listeden silinmiyor)

Private Sub Worksheet_Activate()

For i = 1 To Sheets.Count
[B][COLOR="Red"]Range("A1:A65536").clear[/COLOR][/B]
Cells(i, 1) = Sheets(i).Name
Next
End Sub

 

[hurkanpisirici]

sonuç elde edemedim hocam aynen devam ediyor kalamaya

 

[hurkanpisirici]

en son sayfayı gösteriyor bu seferde en son açtığım sayfayı yani

 

[hurkanpisirici]

benim isteidğim bütün sayfaların gösterilmesi eğer aralarından birisni silersem listedende silinmesi

 

[Orion1]

benim isteidğim bütün sayfaların gösterilmesi eğer aralarından birisni silersem listedende silinmesi

Dosyanızı gönderin bakalım.Bir yerde hata yapıyorsunuz?
Veya konuyu anlamtamadınız.

 

[hurkanpisirici]

teşekkür edeirm

Dosyanızı gönderin bakalım.Bir yerde hata yapıyorsunuz?
Veya konuyu anlamtamadınız.

dosyayı ekledim

 

[hurkanpisirici]

yeni sayfa açtığımda liste sayfamda listelenmesi gerekiyor diyelimki sonradan sayfalardan birini silince o listeden çıkması gerekiyor hocam

 

[Halit TÜRK]

Bu şekilde deneyiniz...

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Range("a1:a65500").Select
Selection.ClearContents
For a = 1 To Sheets.Count
Cells(a, 1) = Sheets(a).Name
Next
Application.ScreenUpdating = True
CreateObject("WScript.Shell").Popup _
"Tüm sayfa isimleri yazdırıldı..", 1, "UYARI", vbInformation
End Sub