DTPicker dan seçilen tarihin aynı anda hücreye yazılması

[sdegirmenci]

Merhaba;
DTPicker dan seçmiş olduğum tarihin aynı anda örnek: A1 hücresine yazılmasını istiyorum. Bunun için DTPicker Properties ine baktım, ancak LinkCel yok.Forumda bu konuda araştırma yaptım ancak diğer bir düğme ile yapılmış olanları var.Bu konuda yardımcı olabilirseniz sevinirim. Dosyam ektedir.İlginize teşekkür ediyorum.

 

[Necdet]

Merhaba,

Aşağıdaki kodlar işinizi görür mü?

Private Sub DTPicker1_Change()
    Range("A1") = DTPicker1.Value
End Sub

 

[Mahir64]

Merhaba

Private Sub DTPicker1_Change()
[a1] = DTPicker1.Value
End Sub

İstediğiniz bumu tam anlamadım.(Sanırım saat geç oldu)

 

[sdegirmenci]

Sayın Necdet Yeşertener ve Mahir Hocam İlginize çok teşekkür ederim. İstediğim Buydu.Hayırlı geceler

 

[Mahir64]

Sayın Necdet Yeşertener ve Mahir Hocam İlginize çok teşekkür ederim. İstediğim Buydu.Hayırlı geceler

Doğru anlamışım ama Necdet bey saha önce cevap yazmı.
İyi çalışmalar.
İyi geceler.

 

[Korhan Ayhan]

Selamlar,

Bazen tarih yazımında seçilen tarih hücrede farklı görünebiliyor. Bu olayı önlemek için arkadaşlarımın önerdiği kodu aşağıdaki şekilde kullanmanızda fayda var.

Private Sub DTPicker1_Change()
    Range("A1") = Format(DTPicker1.Value, "dd.mm.yyyy")
End Sub

 

[drseref]

Dtpicker da yeni her bir tarihde a sütununda alttaki boş hücreye yazacak şekilde olursa kod ne olur.

 

[Mahir64]

Dtpicker da yeni her bir tarihde a sütununda alttaki boş hücreye yazacak şekilde olursa kod ne olur.

Merhaba,

Bu şekilde deneyin

Private Sub DTPicker1_Change()
Satır = Range("A65536").End(3).Row + 1
Cells(Satır, "A") = DTPicker1.Value
End Sub