VBA ile yapılan VeriDoğrulama 1004 hatası veriyor

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub VeriDogrulama()
    With Range("Z2").Validation
        .Add Type:=xlValidateList
        .Range([X1].Text).Value
    End With
End Sub

X1 hücresinde W1:W210 yazıyor. Z2 hücresinde VBA ile VeriDoğrulama yapmak istiyorum. Fonksiyonla yapıyorum. Bu haliyle 1004 hatası veriyor. Bu hata nasıl giderilir?
Saygılarımla

 

[Necdet]

Merhaba,

Aşağıdaki kod çalışıyor, siz ilgili yerleri kendinize göre uyarlayıp, dener misiniz?

Sub Makro1()

    Dim metin As String
    
    metin = "=" & Range("A1")
    
    With Range("A3").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=metin
    End With
    
End Sub

 

[Tevfik_Kursun]

Sayın Necdet Hocam,
İlginize çok teşekkür ederim.
Saygılarımla