arama butonu renklensin

[limanC34]

Selam Arkadaşlar
Siteden aldığım bir dosyada kısaca ara butonuyla textbolara veri aldırıyoruz.Benim istediğim şu,eğer aynı isimden birden fazla varsa ara butonu renklensin.Yoksa renklenmesin.Böyle bir şey mümkünmü?
Teşekkürler.

 

[Orion1]

Dosyanız ekte.

Private Sub TextBox1_Change()
If TextBox1.Text = Empty Then
    CommandButton1.BackColor = &H8000000F
    Exit Sub
End If
If WorksheetFunction.CountIf(Range("A:A"), TextBox1.Text) > 1 Then
    CommandButton1.BackColor = &HFFC0FF
    Else
    CommandButton1.BackColor = &H8000000F
End If
End Sub

 

[limanC34]

Sayın Evren Gizlen
Çözümünüzde "gözlerime inanamıyorum sözünü" / "GÖZLERİME İNANIYORUM" olarak değiştiriyorum.Açıkçası olmaz dediğim birşeydi.
Çok teşekkürler.

 

[Orion1]

Sayın Evren Gizlen
Çözümünüzde "gözlerime inanamıyorum sözünü" / "GÖZLERİME İNANIYORUM" olarak değiştiriyorum.Açıkçası olmaz dediğim birşeydi.
Çok teşekkürler.

Rica ederim.
İyi çalışmalar.