Hücrede Sheets leri listeleme.

[alpay1]

Değerli excel tutkunları arkadaşlarım,
Her zaman sizlerin yardımları sayesinde biraz daha excel tutkunu oluyoruz.Tahmin edersinizki insan bir işin altından kalkacak yeterli bilgisi yoksa ve sizler gibi değerli yardımcı hocalrı yoksa pes eder ve vaz geçer.Ama biz takıldığımızda ve tıkandığımızda sizlere müracaat ediyoruz ve sağolun sizler sorunlarımızı elinizden geldiği kadar çözüyorsunuz.İyiki varsınız.

Ben şu anda yeni bir çalışma yapıyorum.Bu nedenle bu sıralar biraz fazla soru sorabilirim.

Sorunum.
Ben aşağıdaki kodlarla ListBox ta Sayfaları(Sheets) listeliyorum.

ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 1
Dim i As Integer
For i = 6 To Worksheets.Count
ListBox1.AddItem Worksheets(i).Name
Next i

Aynı olayı "ANASAYFA","B5" ten sonrada yapmak istiyorum.Yani "ANASAYFA" "B5" ten başlayarak sayfaları listeleyecek.
Yardımcı olursanız sevinirim.Teşekkürler.

 

[zafer]

Merhaba

Sub sayfaadi()
For i = 1 To Worksheets.Count
sayfa = Worksheets(i).Name
Cells(i + 4, 2) = sayfa
Next i
End Sub

 

[alpay1]

Değerli zafer bey,
Kodunuzu aşağıdaki şekilde değiştirerek sorunumu çözdüm.

For i = 6 To Worksheets.Count
sayfa = Worksheets(i).Name
Cells(i - 1, 2) = sayfa
Next i

Size sonsuz teşekkür ederim.
Sağolun.