Sayfa isimlerini veri doğrulama ile listelemek

[ismailuguz]

Merhaba arkadaşlar
makro ile veri doğrulama yaparak sayfa isimlerini nasıl liste şeklinde gösterebilirim ?

 

[veyselemre]

Sayfanın kod modülüne yerleştirin;

Private Sub Worksheet_Activate()
    For Each sh In Worksheets
        shList = shList & "," & sh.Name
    Next sh
    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Mid(shList, 2)
    End With
End Sub

 

[ismailuguz]

ksheet

Sayfanın kod modülüne yerleştirin;

Private Sub Worksheet_Activate()
    For Each sh In Worksheets
        shList = shList & "," & sh.Name
    Next sh
    With Range("A1").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Mid(shList, 2)
    End With
End Sub

Teşekkür Ederim Sn. VeyselEmre