Farklı kriterlere göre veri doğrulama listesi

[unur]

İyi geceler arkadaşlar; şöyle bir şeye ihtiyacım var ne derece olur bilmiyorum.
(H8 den başlayarak H1000 e kadar uygulayacağım) sütununa veri doğrulama uygulayacağım, Örn: A8 hücresi dolu ise,K5:K10 arasındaki listeyi seçebileyim.B8 hücresi dolu ise L5:L10 arasındaki listeyi seçebileyim.C8 hücresi doluysa M5:M10 arasındaki listeyi seçebileyim.
Verdiğim örneklerde A8 den A1000 e kadar, B8 ve C8 lerde aynı şekilde olacak.
Ne derece anlatabildim bilmiyorum gerekirse dosya ile destekleyebilirim.
Teşekkürler.

 

[hamitcan]

İlgili sayfanın kod kımına ekleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Range("H8:H100").Validation
        If Target.Address = "$A$8" Then
        If Target <> "" Then
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=$K$5:$K$10"
        End If
        ElseIf Target.Address = "$B$8" Then
        If Target <> "" Then
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=$L$5:$L$10"
        End If
        ElseIf Target.Address = "$C$8" Then
        If Target <> "" Then
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=$M$5:$M$10"
        End If
        End If
    End With
End Sub

 

[systran]

örnek dosyayı inceler misin? Bilgisayarına indir, tarayıcıda çalışmaz.
https://drive.google.com/folderview?id=0By_vlGkmFxCCWVNtbEI4UFd2YzA&usp=sharing

 

[unur]

Arkadaşlar çok teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Normal yöntemlerle aynı işlemi yapabilirsiniz.

K5:K10 aralığını Alan1 olarak ad tanımlaması uygulayın. Aynı şekilde diğer 2 alana da Alan2 ve Alan3 olarak ad tanımlaması uygulayın.

Daha sonra H8 hücresini seçin ve veri doğrulamadan liste özelliğini seçin. Alt bölümdeki kaynak bölümüne aşağıdaki formülü uygulayın.

=EĞER(A8<>"";Alan1;EĞER(B8<>"";Alan2;EĞER(C8<>"";Alan3;"")))