ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Candan55]

Merhaba arkadaşlar; Textbox29'dan Textbox54'e kadar olan textboxlar için;

Açılışta : TextBox29-54.BackColor = vbWhite
Sıfır ise : TextBox29-54.BackColor = vbWhite
Sıfırdan büyükse : TextBox29-54. > 0 Then TextBox29-54.BackColor = vbYellow

Diğer textboxlara dokunmaması lazım.
Yukardaki kodu mantık çerçevesinde yerleştiremedim bir türlü.
Bir de bu kod "UserForm_Initialize" içinde mi olmalı yoksa ayrı "change" mi olmalı.
Yardımlarınız için şimdiden teşekkürler.

[Yken]

Açılışta zaten beyaz geliyor, bunun için bir şey gerekmez. Farklı bir renk isterseniz :
UserForm_Initialize içine:

Kod: Tümünü seç

Private Sub UserForm_Initialize()
TextBox1.BackColor = vbRed
End Sub


Açıldıktan sonraki veri girişlerinin durumuna göre ise TextBox1_Change içine:

Kod: Tümünü seç

Private Sub TextBox1_Change()
If TextBox1.Value > 0 Then
TextBox1.BackColor = vbYellow
Else
TextBox1.BackColor = vbWhite
End If
End Sub

[Candan55]

Teşekkür ederim. Ancak verdiğiniz kod sadece TextBox1 için görünüyor.
Benim istediğim, sıralı halde olan TextBox29 dan başlayıp TextBox54'e kadar toplam 25 kutuyu renklendirmek.
Tek tek 25 adet "Private Sub TextBox1_Change()" ayarlamak uzun ve yorucu. Üstelik değiştirmesi de zor.