Checkboxlar 'ın tarihe göre, işaretli olması.

[yenilik025]

Merhabalar

Form açıldığında Label 1 deki tarihe göre Checkboxlar 'ın işaretli olmasını istiyorum?

örnek ocak ayında isek yalnızca "ocak" ayı işaretli olacak

mayıs ayında isek; "ocak" "şubat" "mart" "nisan" "mayıs"

Nasıl Yapabilirim.

[/QUOTE

Private Sub UserForm_Initialize()

On Error Resume Next
Label1.Caption = Format(Date, "dd.mm.yyyy")

Dim a As Byte
a = Format(Date, "mm")
For i = 1 To 12
If i = a Then
UserForm1.Controls("CheckBox" & a).Value = True
End If
Next

End Sub

[/QUOTE]

 

[muygun]

Merhaba;
UserForm_Initialize kodlarını;

Private Sub UserForm_Initialize()
On Error Resume Next
Label1.Caption = Format(Date, "dd.mm.yyyy")
buay = (Month(Date)) * 1
For i = 1 To 12
If i <= buay Then Controls("CheckBox" & i).Value = True
If i > buay Then Controls("CheckBox" & i).Value = False
Next i
End Sub

Şeklinde düzenleyin.

İyi çalışmalar.