Dropdown ve Koşullu Biçimlendirme birlikte kullanmak.

[boss2090]

Merhaba Arkadaslar,

A1 hücresinde Evet ve Hayirli Dropdown var.
B1 de Dropdown (Araba Markalirinin Listes)var.

Amacim söyleki.A1 hücresinde Evet Secilirise, B1 Hücresinden Araba markasi secebileyim. Eger Hayir secilirse otomatik olarak B1 hücresinde burayi doldurmaniza gerke yok diye bir kirmizi yazi ciksin.

Yardiminiz icin simdiden Tesekkürler..

 

[systran]

örnek dosyayı inceleyiniz.
makro, koşullu biçimlendirme, veri doğrulama içerir.
https://drive.google.com/file/d/1sZ4gSEh5s0TU1j6hhIzgyPd2eJvqwn88/view?usp=sharing

 

[boss2090]

Siz B1 hücresinde degisiklik yapiyorsunuz. Eger G10 Hücresinde bu istediklerimin olmasi icin kod da ne gibi bir degisiklik yapmam gerekiyor.

Cünkü bus islemi defelarca yapmam gerekiyor.

Yani kosullar farkli frakli.

Mesala :
A1 Evet ise G10 burada bir islem yapmaniza gerek yok

C2 Yeni ise F5 ve D10 burada bir islem yapmaniza gerek yok

H8 Super ise K1, K2 ve K4 de veri giriniz...

 

[boss2090]

Lütfen. Cok hizli yardima ihtiyacim var..

 

[boss2090]

Bir Kod buldum. Ama hatali ve düzeltilmesi gerekiyor. Bir arkadas düzeltirse cok sevinecegim. Tesekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address <> "$D$16" Then Exit Sub

Application.EnableEvents = False
If Target.Value = "HAYIR" Then
Target.Offset(6, 0) = "Burayi doldurmaya gerek yok"
Else
Target.Offset(6, 0) = "<--Araba seciniz-->"
End If

If Target.Address <> "$D$46" Then Exit Sub

Application.EnableEvents = False
If Target.Value = "Yeni" Then
Target.Offset(1, 0) = "Burayi doldurmaya gerek yok"
Target.Offset(2, 0) = "Burayi doldurmaya gerek yok"
Else
Target.Offset(1, 0) = ""
Target.Offset(2, 0) = ""
End If

If Target.Address <> "$D$52" Then Exit Sub

Application.EnableEvents = False
If Target.Value = "Yeni" Then
Target.Offset(1, 0) = "Burayi doldurmaya gerek yok"
Target.Offset(2, 0) = "Burayi doldurmaya gerek yok"
Else
Target.Offset(1, 0) = ""
Target.Offset(2, 0) = ""
End If
Application.EnableEvents = True

End Sub