• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
31 Ağustos 2011
Mesajlar
151
Excel Vers. ve Dili
Office Professional Plus 2021- Türkçe
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 ?
 
Selam dostum;
Bu kodu deneyebilirsin:
Çalışma kitabına sayfa_listesi isimli bir sayfa eklemen gerekiyor.

Kod:
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.
 
Merhaba,

Alternatif olsun.

Kod:
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

.
 
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.
 

Ekli dosyalar

  • TSS.rar
    TSS.rar
    121.5 KB · Görüntüleme: 15
Selam Dostum,

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


Dosya ekte.
 

Ekli dosyalar

  • TSS.rar
    TSS.rar
    136.1 KB · Görüntüleme: 76
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.
 
Hocam yardımınız için teşekkür ederim, bunu makro dışında yapabilmemiz mümkün müdür ?
 
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.
 
.

Alternatif...

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

.
 

Ekli dosyalar

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 ..
 
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
 
Geri
Üst