Çalışma Sayfalarının Listesinin Oluşturmak

[j_sorel]

Merhaba Arkadaşlar;

Herhangi bir çalışma kitabındaki çalışma sayfalarının listesini tıkladığım hücreye aktaracak bir makroya ihtiyacım var.

Daha doğrusu eski bilgisayarımda böyle bir makrom vardı ancak iş değişikliği nedeniyle apar topar yedekleri alırken personal.xlsb'nin yedeğini almayı atlamışım

Şimdi yeni bilgisayarımda bu makroyu tanımlamak için araştırıyorum ancak bir türlü istediğim hale getiremedim.

Örneğin aşağıdaki gibi bir kod buldum.

Sub ListSheetNames()
    Dim R As Range
    Dim WS As Worksheet
    Set R = ActiveCell
    For Each WS In ThisWorkbook.Worksheets
        R.Value = WS.Name
        Set R = R(2, 1)
    Next WS
End Sub

Bu kod aktif dosyada gayet güzel çalışıyor, ancak şöyle bir sıkıntım var. Tüm workbook'larda çalışması için personal.xlsb'ye kaydediyorum. Daha sonra aktif workbook'ta tıkladığım zaman personal.xlsb'deki worksheet'lerin listesini getiriyor, haliyle her dosya için modül ekleyerek kod girmek gerekiyor. Benim istediğim ise o an önümde açık olan workbook'un herhangi bir yerine tıklayarak liste oluşturmak.

Bu konuda paylaşmak için elinde kod olan veya paylaştığım kodu aktif workbook için çalışacak hale getirecek şekilde düzenleyebilecek arkadaşlar yardımcı olabilirlerse minnettar olurum.

Desteğiniz için teşekkür ederim.

İyi çalışmalar...

 

[veyselemre]

For Each WS In ActiveWorkbook.Worksheets

olarak deneyin.

 

[j_sorel]

Örneğin aşağıdaki gibi bir kod buldum.

Sub ListSheetNames()
    Dim R As Range
    Dim WS As Worksheet
    Set R = ActiveCell
    For Each WS In ThisWorkbook.Worksheets
        R.Value = WS.Name
        Set R = R(2, 1)
    Next WS
End Sub

Kodda yer alan "For Each WS In ThisWorkbook.Worksheets" satırını "For Each WS In ActiveWorkbook.Worksheets" olarak düzeltince istediğim gibi oldu, faydalanmak isteyen arkadaşlar için kodun tamamı aşağıdaki gibidir:

Sub ListSheetNames()
    Dim R As Range
    Dim WS As Worksheet
    Set R = ActiveCell
    For Each WS In ActiveWorkbook.Worksheets
        R.Value = WS.Name
        Set R = R(2, 1)
    Next WS
End Sub

 

[j_sorel]

For Each WS In ActiveWorkbook.Worksheets

olarak deneyin.

Teşekkür ederim Hocam, ben de aynı şekilde çözüm buldum ancak aynı anda yazdık

Böyle kullanışlı oldu.