ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[oerbas]

Hayırlı Günleriniz olsun.
UserForm üzerindeki TextBox31 değeri 1 olduğunda birden otuzbire kadar sıralı olan TextBox kutucuklarının içine otomatik 1 yazılsın. Eğer TextBox31 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

[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

[arschimet]

Deneyin

Kod: Tümünü seç

If UserForm1.TextBox31 = 1 Then
For i = 1 To 30
UserForm1.Controls("TextBox" & i) = 1
Next
ElseIf UserForm1.TextBox31 = 2 Then
For i = 1 To 30
UserForm1.Controls("TextBox" & i) = ""
Next
End If



[oerbas]

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

[arschimet]

Kod: Tümünü seç

If TextBox1 = 1 Then
For i = 1 To 3
UserForm2.Controls("Ayın_" & i) = 1
Next
ElseIf TextBox1 = 2 Then
For i = 1 To 3
UserForm2.Controls("Ayın_" & i) = 2
Next
Else
For i = 1 To 3
UserForm2.Controls("Ayın_" & i) = ""
Next
End If