comboboxta haftanın ilk günü

[airborne]

ekli dosyada ekders ücret girişi bulunmaktadır. comboboxta haftanın ilk gününü belirlediğimde 31 adet bulunan textboxlarda comboboxta bulunan ilkgünden itibaren cumartesi ve pazar günlerini hangi textboxa geliyorsa siyaha boyasın istiyorum. yardımcı olan herkese şimdiden teşekkürler

 

[airborne]

arkadaşlar bu konu benim için çok önemli

 

[airborne]

yardımcı olacak arkadaşlar meşgul herhalde

 

[kundakci]

Merhaba

Yapmak istediğimiz bumu

Kontrol edin

İyi günler

 

[isakarakus]

merhaba,
ben de şöyle iki modul yaptım..

cumartesi ve pazarı siyaha boyaamak için,

Sub HTayarla()
For m = 1 To 31
xx = (m + ComboBox1.ListIndex) Mod 7
If xx = 6 Or xx = 0 Then Controls("textbox" & m).BackColor = &H80000012
Next
End Sub


tekrar eski rekge deri dönmek için :


Sub Duzelt()
For m = 1 To 31
Controls("textbox" & m).BackColor = &HC0FFC0
Next

End Sub

edit: neyse dosyayı göndereyim...

 

[airborne]

çok teşekkür ederim tam istediğim gibi olmuş