Optionbutton ile textbox a tarih atama

[osmanli2]

Sayın Üstadlar, ekte ki örnek dosyada userform üzerinde oluşturulmuş optionbuttonlara ay isimlerine herhangi birine seçilince taxtboxlara o ayın başlangıç ve bitiş tarinleri atansın. Yardımlarınızı rica ederim.

 

[Mehmet Şahin]

Merhaba,
dosyanız ektedir. İyi çalışmalar.

 

[hamitcan]

Alternatif;
Class Module içine;

Public WithEvents Opt As MSForms.OptionButton
Private Sub Opt_Click()
For Each Ctrl In UserForm1.Frame2.Controls
    If Ctrl.Value = True Then
        Ay = Right(Ctrl.Name, Len(Ctrl.Name) - 12)
        UserForm1.btarih.Value = DateSerial(Year(Date), Ay, 1)
        UserForm1.starih.Value = DateSerial(Year(Date), Ay + 1, 0)
    End If
Next
End Sub

UserForm içine;

Dim Opt() As New Class1
Private Sub UserForm_Initialize()
    ReDim Preserve Opt(12)
    For X = 1 To 12
    Set Opt(X).Opt = Controls("OptionButton" & X)
    Next
End Sub

 

[Mehmet Şahin]

Sayın Hamitcan, güzel örneğiniz için teşekkürler.

 

[osmanli2]

Çok teşekkür ederim. Mükemmel bir iş oldu.