Combobox'a koşullu değer verme ?

[Gorarr]

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Sayfa2!A2:A" Then
ComboBox2.Value = "Hayır"
Else
ComboBox2.Value = ""
End If
End Sub

Selamlar, yapmaya çalıştığım Combobox1 nin alacağı değer sayfa2 de A sütunun yazdıklarımdan biri olursa combobox2'e "hayır" yazması ve combobox3'ün kırmızı yada belirgin bir renk alması.
Aksi durumda boş bırakması. RowSource kodunu da denedim ama yapamdım. Ben yine örnek bir dosyada ekledim.

Kırmızı ile belirttiğim kısmı çözemedim birtürlü. Sanırım ordan olacak.

Yardımcı olabilirseniz çok çok sevinirim.

 

[Ömer]

Merhaba,

Private Sub ComboBox1_Change()
 
    With Sheets("Sayfa2")
        If WorksheetFunction.CountIf(.[A:A], ComboBox1.Value) > 0 Then
            ComboBox2.Value = "Hayır"
        Else
            ComboBox2.Value = ""
        End If
    End With
 
End Sub

Bu şekilde deneyiniz.

.

 

[Gorarr]

Hocam elinize sağlık, çok teşekkür ederim.

Sonradan bir şey daha eklemiştim ama. Combobox1'in sayfa2 deki değerleri aldığı zaman combobox2 "hayır" oluyor birde Combobox3'ü kırmızı gibi belirgin bir renkle işaretlenmesinide sağlayabilirmiyiz.

Teşekkürler.. Saygılar...

 

[İhsan Tank]

Hocam elinize sağlık, çok teşekkür ederim.

Sonradan bir şey daha eklemiştim ama. Combobox1'in sayfa2 deki değerleri aldığı zaman combobox2 "hayır" oluyor birde Combobox3'ü kırmızı gibi belirgin bir renkle işaretlenmesinide sağlayabilirmiyiz.

Teşekkürler.. Saygılar...

merhaba
ömer hocamın kod'unu

Private Sub ComboBox1_Change()
 
    With Sheets("Sayfa2")
        If WorksheetFunction.CountIf(.[A:A], ComboBox1.Value) > 0 Then
            ComboBox2.Value = "Hayır"
            ComboBox3.BackColor = vbRed
        Else
            ComboBox2.Value = ""
            ComboBox3.BackColor = vbWhite
        End If
    End With
 
End Sub

bununla değişir misiniz

 

[Gorarr]

Hocam ikinizede sonsuz teşekkürler... Okadar çok işime yaradı ki, Allah razı olsun..
Saygılar, selamlar...

 

[İhsan Tank]

Hocam ikinizede sonsuz teşekkürler... Okadar çok işime yaradı ki, Allah razı olsun..
Saygılar, selamlar...

rica ederim
Allah Hepimizden Razı Olsun
Ömer Hocam'a Sonsuz Teşekkürler
:yazici: