Seri TextBox Şarta Göre Doldurulması

[oerbas]

Hayırlı Günleriniz olsun.
UserForm üzerindeki TextBox32 değeri 1 olduğunda birden otuzbire kadar sıralı olan TextBox kutucuklarının içine otomatik 1 yazılsın. Eğer TextBox32 değeri 2 ise birden otuzbire kadar olan sıralı TextBox Kutucuklarının içi boş olsun hiçbirşey yazmasın istiyorum. Bir döngü yazmaya çalıştım ama beceremedim yardımcı olabilirmisiniz

 

[yanginci34]

Denermisiniz.

Private Sub YEMEK_Change()
For i = 1 To 31
If me.YEMEK.value=1 then
Me.Controls("Ayın_ " & CStr(i)).Value = me.YEMEK.value
Else
Me.Controls("Ayın_ " & CStr(i)).Value =""
End If
Next
End Sub

 

[oerbas]

rivate Sub TextBox31_Change() For i = 1 To 30 Me.Controls("TextBox" & CStr(i)).Value = me.TextBox31.value Next End Sub

Hocam tam olarak ifate etmem gerekirse maaş puantajı pıyorum. Yemek yemeyen personel yemek ücreti ödenmesi lazım Bunun için birden otuzbire kadar 31 adet TextBox kutusu oluşturdum. Herbir TextBox ayın günlerini ifade ediyor. YEMEK isimli TextBox değeri "1" ise TextBox kutularının içine "1" yazılsın istiyorum. Burada Şunu ifade etmem gerekiyor. Ayın biri ile otuzbiri arasındaki TextBox kutucuklarının isimlendirdim. Ayın bir için Ayın_1, ikisi için Ayın_2, Ayın üçü için Ayın_3, ....................Ayın_31 şeklinde

YEMEK olarak isimlendirdiğim TextBox'un değer 1 ise Ayın_1 ile Ayın_31 olarak isimlendirdiğim TextBox kutucuklarının içine "1" sayısal değeri girilsin istiyorum. Aksi halde TextBox kutucukları boş olsun

 

[yanginci34]

Denermisiniz.

Private Sub YEMEK_Change()
For i = 1 To 31
If me.YEMEK.value=1 then
Me.Controls("Ayın_ " & CStr(i)).Value = me.YEMEK.value
Else
Me.Controls("Ayın_ " & CStr(i)).Value =""
End If
Next
End Sub

Örnek dosyanız olsaydı daha iyi olurdu ama 2 nolu cevabımı tekrar düzenledim denermisiniz.

 

[oerbas]

Me.Controls("Ayın_ " & CStr(i)).Value = Me.YEMEK.Value
hocam bu satırda hata veriyor