Tarih Makrosunda Yardım

[bedri41]

Tarih kutucuklarını çift tıklayınca çıkan takvim yardımı ile yazdırdığım tarihlerde ilk tarihi boş bırakarak sadece ikinci tarihi yazdırmak istediğimde makro öncelikle birinci Textbox a yazıyor

 

[Necdet]

Merhaba,

Modul1

Dim HangiCiftTik As Integer

Sub Düğme1_Tıklat()
UserForm1.Show
End Sub

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    [COLOR=red]HangiCiftTik = 1
[/COLOR]    UserForm2.Show
    [COLOR=red]HangiCiftTik = 0
[/COLOR]End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   [COLOR=red] HangiCiftTik = 2
[/COLOR]    UserForm2.Show
    [COLOR=red]HangiCiftTik = 0
[/COLOR]End Sub

Private Sub Calendar1_Click()
'ActiveCell = Calendar1.Value
'ActiveCell.NumberFormat = "dd.mm.yyyy"
'Columns(ActiveCell.Column).EntireColumn.AutoFit
[COLOR=red]If HangiCiftTik = 1 Then
[/COLOR]    UserForm1.TextBox1.Text = Format(Calendar1.Value, "dd.mm.yyyy")
Else
    UserForm1.TextBox2.Text = Format(Calendar1.Value, "dd.mm.yyyy")
End If
Unload Me
End Sub

 

[bedri41]

Yardımlarınız için teşekkür ederim ancak bu değişikliklerden sonra sadece dönüş tarihi kısmına tarih atıyor.

 

[leumruk]

Merhaba,
Ekteki örneği dener misiniz?

 

[bedri41]

Çok teşekkür ederim elinize, emeğinize sağlık