Veri Doğrulama ile Sayfa Adlarını Alma

[marimar]

Merhaba arkadaşlar a1 hücresine veri doğrulama ile sayfa adlarını bir liste olarak almak istiyorum.
Nasıl bir kod yazmalıyız.
Teşekkürler

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    
    Dim i As Long, deg As String
 
    For i = 1 To Sheets.Count
        deg = deg & "," & Sheets(i).Name
    Next i
    
    deg = Right(deg, Len(deg) - 1)
    
    With Target.Validation
        .Delete
        .Add xlValidateList, xlValidAlertStop, xlBetween, deg
    End With
 
End Sub

.

 

[marimar]

Teşekkür ederim sayın Ömer;
fakat bir sorun var,verileri biçimlendirmek için sol üstteki seçme alanından tüm hücreleri seçili duruma getirince tüm hücrelerde veri doğrulama oluyor, bunu nasıl engelleriz.

 

[Ömer]

For i döngüsünden önce aşağıdaki satırı ekleyin.

If Selection.Count > 1 Then Exit Sub

.

 

[marimar]

teşekkür ederim