Çalışma kitabı içerisindeki çalışma sayfalarının listelenmesi

[Cihat KORKMAZ]

Arkadaşlar öncelikle hayırlı günler, hayırlı ramazanlar dilerim...

Benim soruma gelince;

Kullandığımız çalışma kitabı içerisinde onlarca çalışma sayfası bulunmaktadır. Benim sizden isteğime gelince; çalışma sayfalarının isimleri ile sıralarını listelemek istiyorum.

Örneğin; 40 çalışma sayfası olan bir çalışma kitabımızın olduğunu düşünürsek istediğim listeyi yine bu çalışma sayfasının içerisinde

1. sayfa1
2. sayfa2
3. sayfa3
4. sayfa4
40. sayfa40

Şekliyle sıralı listeleyebilmenin bir yolu mevcut mudur ?

 

[Milady Meriç]

Selam dostum;
Bu kodu deneyebilirsin:
Çalışma kitabına sayfa_listesi isimli bir sayfa eklemen gerekiyor.

Public Sub saya_listele()
Dim milady As Worksheet
Dim c As Integer
Worksheets("sayfa_listesi").Activate

c = Worksheets.Count

For i = 1 To c
Cells(i, 1).Value = Worksheets(i).Name
Next
End Sub

Kolay gelsin.

 

[Ömer]

Merhaba,

Alternatif olsun.

Sub SayfalarıListele()
 
    Dim i As Integer, sat As Integer, sut As String
 
    sut = "A" 'hangi sütuna sıralanacağı
    sat = 2 'hangi satırdan başlayacağı
 
    Range(sut & sat & ":" & sut & Rows.Count).ClearContents
 
    For i = 1 To Worksheets.Count
        Cells(sat, sut) = Sheets(i).Name
        sat = sat + 1
    Next i
 
End Sub

.

 

[Cihat KORKMAZ]

Arkadaşlar yardımlarınız için çok ama çok teşekkür ederim fakat ben makro konusunda bilgi sahibi değilim. Kullandığım dosyayı buraya yüklesem makroyu üzerine ekleyebilir misiniz ?

Ayrıca bunu makro ile yapmak zorunda mıyız ? Makro kullanmadan yapmanın yolu var ise bu konuda yardımcı olursanız sevinirim.

 

[Milady Meriç]

Selam Dostum,

Dosyanın en sonuna eklediğim "sayfa_listesi" sayfasına bakman gerekiyor.
her tıklamada otomatik olarak listeyi update eder.


Dosya ekte.

 

[Milady Meriç]

Bu işin en güzel ve hızlı yolu makro. Bana sorarsanız tek yolu da makto ile listelemek. tabi tek tek manual olarak elle girmek istemiyorsanız.

 

[Cihat KORKMAZ]

Hocam yardımınız için teşekkür ederim, bunu makro dışında yapabilmemiz mümkün müdür ?

 

[Milady Meriç]

Hayır yok. ( Bildiğim kadarıyla ).

 

[Cihat KORKMAZ]

Teşekkür ederim hocam sağolasın, oldukça işimize yarayacak bu makro. Bahsi geçen dosyanın index sayfasını doldurmak konusunda bize yardımcı olacaktır.

 

[Merhum İdris SERDAR]

.

Alternatif...

KTF - Kullanıcı Tanımlı Fonksiyonlarla yapılmış örnek ektedir.

.

 

[tokerx22]

Public Sub saya_listele()
Dim milady As Worksheet
Dim c As Integer
Worksheets("sayfa_listesi").Activate

c = Worksheets.Count

For i = 1 To c
Cells(i, 1).Value = Worksheets(i).Name
Next
End Sub



ilk 4 sayfayı görmezden gelmesi için marcoya e eklemeliyiz .. aksi halde döngüsel hata veriyor elle manuel degiştirince düzeliyor ..

 

[Lerdoerna]

Merhabalar; Benim şöyle bir sorunum var:
Ben aynı çalışma kitabı içerisinde farklı yaklaşık 150 adet sayfayla çalışıyorum.Her sayfanın adı değişik.Ve veri girdikçe her sayfa ismi duruma göre yeniden değişiyor.yapmak istediğim şey, isimleri farklı bu 150 sayfanın hepsinde E8 hücresindeki değerleri bir merkez sayfada alt alta sıralamak .. bunu yaparken bu 150 sayfanın arasından belli sayfaları da tanımlayabilmek müthiş olurdu .yani ;
sayfa1=sıva metrajı
sayfa2=tuğla örülmesi
sayfa3=demir metrajı
sayfa4=beton miktarı
.
.
.


sayfa150=ıwejoıwjeoc

hepsinde E8 hücresinde imalat kodu yazmakta.tek bir hamleyle bütün sayflardaki e8 hücresini altalta sıralasın istiyorum..

1.17.144/MK
2.19.050/04
3.
4.
.
.
.
.
150.507-802


gibi bir sonuç vermesini nasıl sağlarım.ifade edebildim mi bilmiyorum.yardımlarınızı bekliyorum.teşekkürler