Koşullu Veri Doğrulama

[baydeniro]

Merhaba Arkadaşlar;

Örnek dosyanın linki aşağıdadır. Konu şöyle:
B sütununa Şehir isimleri yazılacak. Şehir ismi yazıldıkça C sütununa Süt ve Yoğurttan ibaret 2 veriden oluşan bir Liste olarak Veri Doğrulama tanımlanacak.
Normalde C sütununda veri tanımlı değil. Şehir ismi yazılınca otomatik olarak tanımlanacak.



http://s5.dosya.tc/server3/iwry8c/KOSULLU_VERI_DOGRULAMA.xls.html

 

[Ömer BARAN]

Merhaba.

Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖDÜNTÜLEyi tıklayın.
Açılan VBA ekranında sağ taraftaki boş alana aşağıdaki kod'u yapıştırın.
.

[FONT="Arial Narrow"][B]Private Sub Worksheet_Change(ByVal Target As Range)[/B]
If Target.Row = 1 Then Exit Sub
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target = "" Then
    Cells(Target.Row, 3).Validation.Delete: Cells(Target.Row, 3) = "": End If
If Target <> "" Then
With Cells(Target.Row, 3).Validation
.Delete: .Add Type:=xlValidateList, Operator:=xlBetween, Formula1:="SÜT, YOĞURT"
End With: End If
[B]End Sub[/B][/FONT]

 

[alicimri]

DAĞITIM Sayfasının kod sayfasına aşağıdaki kodu yapıştırıp, deneyin

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(-1, 1).Copy
Target.Offset(0, 1).PasteSpecial Paste:=xlPasteValidation
End If
End Sub

 

[baydeniro]

Sayın Ömer BARAN üstad, çok çok teşekkür ediyorum. Elinize, emeğinize sağlık. Sağlıcakla kalın.

 

[baydeniro]

Sayın alicimri ilginize çok teşekkür ediyorum. Ömer Baran üstad konuyu halletti. Sizin kod ise farklı bir şekilde çalışıyor. Teşekkür ediyorum.