Çözüldü Textbox içeriğine göre renk

nasyarx' Alıntı:

Selamlar,
Elimde kodu düzeltmeme yardımcı olur musunuz? "Ek1" adıyla başlayan textboxlara "X" yazıldığında renk değiştirmesini istiyorum. Fakat "X" yazan değil de hepsi kırmızı oluyor. Teşekkürler.

Kod:Panoya kopyala

Sub devamszlk()
Call temizle
For txt = 1 To 31
On Error Resume Next
  
   Controls("ek" & txt).BackColor = vbWhite
   If Controls("ek" & txt.Text) = "X" Then Controls("ek" & txt).BackColor = vbRed
   Next
End Sub


Sub temizle()
For tem = 1 To 31
Controls("ek" & tem) = Empty
Next
End Sub

Deneyiniz.

Kod:Panoya kopyala

If Controls("ek" & txt) = "X" Then Controls("ek" & txt).BackColor = vbRed

Genişletmek için tıkla ...

nasyarx' Alıntı:

Maalesef olmadı. Hepsi renkleniyor. Sadece "X" yazılanlar renklensin.

Genişletmek için tıkla ...

Sub devamszlk()
'Call temizle
For txt = 1 To 31
    Controls("ek" & txt).BackColor = vbWhite
    If UCase(Me.Controls("ek" & txt)) = "X" Then Controls("ek" & txt).BackColor = vbRed
Next
End Sub