nasyarx
Yeni Üye
- Katılım
- 11 Tem 2018
- Mesajlar
- 79
- En iyi yanıt
- 0
- Puanları
- 8
- Yaş
- 42
- Konum
- Muş
- Ad Soyad
- Ensar Mansur
- Office Vers.
- 2016
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.
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:
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