değişken kaynaklı veri doğrulama

[hdemirc_]

vba kodları ile veri doğrulama kaynağının bir hücreye bağlı olarak değişmesi

 

[Ömer]

Merhaba,

B2 deki veri doğrulamadan liste bölümüne:

=DOLAYLI("'"&A2&"'!A1:A10")

Yazarak deneyin.

.

 

[hdemirc_]

vba kodu ile yapmak istiyorum , yardımcı olabilirmisiniz

 

[Ömer]

Bana göre makrosuz çözüm daha doğru.

Sayfanın kod bölümüne:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim deg As Range
        
    If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
    
    ActiveWorkbook.Names.Add Name:="deg", _
        RefersToR1C1:=Sheets("" & [A2] & "").Range("A1:A10")
    
    With Target.Validation
        .Delete
        .Add xlValidateList, xlValidAlertStop, xlBetween, "=deg"
    End With
 
End Sub

.

 

[hdemirc_]

yardımlarınız için teşekürler ömer bey
makrosuz çözüm çok pratik, ama ben veri doğrulamayı makro ile uygulama mantığını kavramak adına istemiştim.benim için çok faydalı oldu.
saygılarımla