Userform 2 adet textbox tarih hak.

[mukoli]

Merhabalar ekteki dosyadaki userform tarih 1 butonundan seçim yaptıgımda textbox4 yazması tarih 2 butonundan seçim yaptıgımda textbox5 yazması lazım ama yapamadım. Yardımcı olursanız sevinirim Teşekkür ederim

 

[Korhan Ayhan]

Dosyanızda Tarih2 butonuna aşağıdaki kod satırını ekledim.

Private Sub CommandButton8_Click()
takvim = 2
Me.CommandButton8.Tag = 2
UserForm2.Show
End Sub

Class Modules içindeki kodu da aşağıdaki gibi düzenledim.

Public WithEvents MyBut As MSForms.CommandButton
Private Sub MyBut_Click()
Dim Year1 As Integer, Month1 As Integer, Day1 As Integer, Date1 As Date
Year1 = UserForm2.ComboBox2.Value
Month1 = UserForm2.ComboBox1.ListIndex + 1
Day1 = MyBut.Caption
Date1 = DateSerial(Year1, Month1, Day1)
'ActiveCell = Date1

If UserForm1.CommandButton8.Tag = "" Then UserForm1.TextBox4 = Date1
If UserForm1.CommandButton8.Tag = "2" Then
    UserForm1.TextBox5 = Date1
    UserForm1.CommandButton8.Tag = ""
End If
UserForm2.Hide
End Sub

 

[Greenblacksea53]

Denermisin takvimi değiştim..

 

[mukoli]

Teşekkür ediyorum ellerinize sağlık

 

[mukoli]

Denermisin takvimi değiştim..

Sizin ki çok şık olmuş bunu kullanıcam ellerinize sağlık tekrardan