Tarih sorunu

[manisali50]

Arkadaşlar merhaba
Buradaki arkadaşların yardımıyla oluşturduğum dosyada hücreye çift tıklandığında takvim çıkıyor ve tarihin üzerine tıklayarak hücreye tarihi getiriyoruz. Ancak;
tarihi seçtikten sonra kürsör aynı hücrede kalıyor..Tarihi seçtikten sonra otomatik alt satıra geçmenin yolu nedir?
Şimdiden teşekkürler.

Kodlar şöyle :
Option Explicit
Private Sub Calendar1_Click()
Selection = CDate(Calendar1.Value)
Unload Me
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
Calendar1.Value = Date
End Sub

 

[Mahir64]

Merhaba

Option Explicit
Private Sub Calendar1_Click()
Selection = CDate(Calendar1.Value)
[COLOR=Red]ActiveCell.Offset(1, 0).Select ' alt satıra altla[/COLOR]
Unload Me 'formu kapat
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
Calendar1.Value = Date
End Sub

Buu deneyin

 

[manisali50]

İşte bu kadar..Teşekkürler arkadaşım..

 

[Mahir64]

Merhaba

İşte bu kadar..Teşekkürler arkadaşım..

Rica ederim Şerif bey kolay gelsin.