Data Validation sorusu

[SlayerXP]

MS Office 2003 İngilizce versiyonunu kullanıyorum. Data Validation ile dropdown menüler oluşturmam gerekiyor. Forumdaki arkadaşlar sağolsun, bu konuyu hallettim ama yapmam gereken ufak bir detay kaldı.

A kolonunda X değerini seçtiğimde B kolonunda 1, 2, 3 arasında seçim yapılabiliyor. Y seçtiğimde ise K, L, M arasından seçim yapılabiliyor. Diyelim ki A1'de X seçtim. B1'de de 2 seçtim. Daha sonra A1'i Y'ye çevirdiğimde B1'deki değerin silinmesini ve böylece hatalı veri girişini engellemeyi garantiye almak istiyorum.

Bunu en kolay yoldan nasıl yapabilirim acaba ? Şimdiden teşekkürler.

 

[Orion1]

Aşağıdaki kodu çalışma sayfasının kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Range("B1").Value = ""
End Sub

 

[SlayerXP]

Teşekkürler. Tek hücre için işe yaradı, ama yaklaşık 100 hücre için aynı şeyi yapmam gerekiyor. Kopyala-Yapıştır'dan başka bir yöntem var mı

 

[Orion1]

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A65536]) Is Nothing Then Exit Sub
Range("B" & Target.Row).Value = ""
End Sub