Çözüldü Textbox Içeriğine Göre Renk

[xemdarx]

Selamlar Evren Bey,
Bulduğunuz çözüm olmadı. "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.

 

[Ömer BARAN]

Merhaba.
-- devamszlk isimli kod'u aşağıdaki şekilde değiştirin,
-- ardından da sadece başlığındaki 1 sayısını değiştirerek 31 adet TextBox için aşağıdaki Private Sub Ek1_Change kodunu kopyalayarak çoğaltın.

Sub devamszlk()
For txt = 1 To 31
On Error Resume Next
If UCase(Controls("Ek" & txt).Text) = "X" Then
    Controls("Ek" & txt).BackColor = vbRed
Else: Controls("Ek" & txt).BackColor = vbWhite
End If
   Next
End Sub

Private Sub Ek1_Change()
devamszlk
End Sub

 

[Orion1]

Buyurun.

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

 

[xemdarx]

Her iki çözüm için de teşekkür ederim . Evren bey, istediğim sonuç. Harikasınız.

 

[Orion1]

Her iki çözüm için de teşekkür ederim . Evren bey, istediğim sonuç. Harikasınız.

Rica ederim.
İyi çalışmalar.