Userform hk.

[recepkull]

Userform ile tarih seçici oluşturdum. X6 hücresine tıkladığımda userform çalışıyor ve karşıma tarih seçici çıkıyor. Buraya kadar her şey tamam sorunsuz çalışıyor. Şöyle bir sıkıntım var ben bu userform ile tarih seçiciyi kasım ayında oluşturmuştum X6 hücresine tıkladığımda da Kasım ayı açılıyor. Ben ise bulunduğumuz ayın açılmasını istiyorum. Bunu nasıl yapabilirim ? Umarım anlatabilmişimdir.

Örnek Resim :

sayfa içindeki kod :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("X6")) Is Nothing Then UserForm1.Show
End Sub

Userform içindeki kod:

                        Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg
   Unload Me
End Sub

 

[turist]

Deneyin.
Private Sub UserForm_Initialize()
Me.MonthView1.Value = Date
End Sub

 

[turist]

Ayrıca;
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = DateClicked
Unload Me
End Sub
şeklinde de kullanabilirsiniz.

 

[recepkull]

Deneyin.
Private Sub UserForm_Initialize()
Me.MonthView1.Value = Date
End Sub

@turist hocam bu kod istediğim gibi çalışıyor ancak seçtiğim tarihi hücreye yazmıyor.

 

[turist]

Eski kodunuzu deneyin, o zaman da yazmıyor mu?

 

[recepkull]

Evet eski kod da yazıyor. Ama eski kodda da bulunduğumuz ayı göstermiyor.

 

[turist]

UserForm alanında kendi kullandığınız kodların tamamını görmeden kalıcı çözüm üretmek zor gibi.
Uzun yazışmalara neden olabilir.
Bu nedenle;
Ya Örnek Dosyanızı ekleyin, ya da USERFORM'da kullanılan kodlarınızı.
O zaman daha kolay cevap bulabilirsiniz.

 

[recepkull]

@turist buyrun hocam. W6 hücresine bakınız.

 

[turist]

Kullandığım sistem 64 Bit 2013 olduğu için Test etme şansım yok.
Ancak; kodları aşağıdaki gibi dener misiniz.
UserForm1 için:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
On Error Resume Next
Dim xRg As Object
For Each xRg In Selection.Cells
xRg.Value = DateClicked
Next xRg
Unload Me
End Sub

Private Sub UserForm_Initialize()
Me.MonthView1.Value = Date
End Sub

 

[recepkull]

Evet işte bu tam istediği gibi çalışıyor çok teşekkür ederim

 

[turist]

İyi çalışmalar.