EXCEL de Dtpicker dan bilgi almak

[selo1234]

Merhaba,
Excel ile VBA da yeniyim.
excel user form a dtpicker ekledim. user formdaki kod şu şekilde.
ü
Private Sub DTPicker1_CallbackKeyDown(ByVal keycode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

excel deki module den de;
tarih=dtpicker1.value
olarak bir hücreye user formdan seçtiğim tarihi taşımak istiyorum;
ama dtpicker1.value syntax ını kabul etmeyip sarı boyuyor.
eğer, tarih=dtpicker1 dersem, hücreye 12:00:00 AM değerini yazıyor.
Nasıl Dtpicker1 den seçtiğim tarihi taşıyabilirim.
site de dtpicker konusundaki diğer yazıları okudum ama çözüm bulamadım.
Şimididen teşekkürler

 

[hamitcan]

Private Sub DTPicker1_Change()
[a1] = FormatDateTime(DTPicker1, vbShortDate)
End Sub

şeklinde deneyin.

 

[selo1234]

teşekkürler Hamitcan,
denedim ama olmadı.
User formdaki dtpicker de hep 16.12.2008 tarihi gözüküyor. Bugün 17.12.2008 olmasına rağmen açılışda güncel tarihi getirmiyor.
diğer yandan excel modulden girdiğim hücreye de 12:00:AM getirmeye devam ediyor.
Yeni bir öneriniz var mı? Ne yapmalıyım.

 

[hamitcan]

User formdaki dtpicker de hep 16.12.2008 tarihi gözüküyor. Bugün 17.12.2008 olmasına rağmen açılışda güncel tarihi getirmiyor.

Private Sub UserForm_Initialize()
DTPicker1 = Date
End Sub

diğer yandan excel modulden girdiğim hücreye de 12:00:AM getirmeye devam ediyor.Yeni bir öneriniz var mı? Ne yapmalıyım.

Hücre Biçimlendirmeden tarih formatını düzenleyebilirsiniz.

 

[selo1234]

tekrar teşekkürler Hamitcan,
date ile güncel tarihi dtpicker ın göstermesini başardık . ama hücreye getirme de hala problem var. Hücrenin formatını da oynuyorum ama olmuyor. Sanırım 12:00:AM, sıfır değeri herhalde değişkenin. Dtpicker den data yı çekemiyorum sanırım. yeni öneriniz var mı? module1 de şu şekilde çekmeye çalışıyorum.
dim tarih as date
tarih=dtpicker1
cell(i,1)=tarih

--
yeni bir öneriniz var mı lütfen?

 

[Ayhan Ercan]

Aynen yazılı kodları verirmisiniz...
Kodlarda hata yapıyor olabilirsiniz.
Bende gayet çalışıyor...

 

[hamitcan]

Bence dosyanızı ekleyin ve ne yapmak istediğinizi de belirtin.

 

[selo1234]

merhabalar,
dosyayı ekledim. satış_deneme.xls
bu dosya ile user form daki dtpicker1 den tarihi ve diğer combobox lardan değerleri seçip , ANADB sheeet deki A kolonuna seçili tarihi taşımaya çalışıyorum.
Yardımlarınız için çok teşekkürler

 

[hamitcan]

Açıkcası kodlarınız bana biraz karışık geldi.Kodda aşağıdaki eklemeyi yaptım ve tarihi doğru getirdi. Bir de siz deneyin.

tarih = FormatDateTime([color=blue]Form1[/color].DTPicker1, vbShortDate)

 

[Ayhan Ercan]

Merhaba

Macro1 makrosundaki tarih tanımlamasını aşağıdaki gibi değiştiriniz.

tarih = Form1.DTPicker1.Value

Hücreleri de tarih formatına biçimlendiriniz ve öyle deneyiniz..

 

[selo1234]

Çok teşekkürler Hamitcan ve Ayhan Ercan Arkadaşlar,
dediklerinizi yaptım ve çalıştı. 2 gündür debeleniyordum, tek hatam dtpicker1 yerine form1.dtpicker1 yazmamakmış. bu nedenle dtpicker1.value yazmama da hata veriyordu.
tekrar teşekkürler, desteğiniz çok faydalı oldu.
iyi çalışamalar

 

[Ayhan Ercan]

Çok teşekkürler Hamitcan ve Ayhan Ercan Arkadaşlar,
dediklerinizi yaptım ve çalıştı. 2 gündür debeleniyordum, tek hatam dtpicker1 yerine form1.dtpicker1 yazmamakmış. bu nedenle dtpicker1.value yazmama da hata veriyordu.
tekrar teşekkürler, desteğiniz çok faydalı oldu.
iyi çalışamalar

Rica ederim..
İyi Çalışmalar.. k::

 

[ugurrrrrr]

Private Sub UserForm_Initialize()
DTPicker1 = Date
End Sub

KODUNU KULLANIYORUM AMA Date kısmında sürekli hata veriyor.

 

[hamitcan]

Private Sub UserForm_Initialize()
DTPicker1 = Date
End Sub

KODUNU KULLANIYORUM AMA Date kısmında sürekli hata veriyor.

Nasıl bir hata alıyorsunuz ?

 

[ugurrrrrr]

TAKVİM KODLARINI AŞAĞIDAKİ GİBİ DÜZENLEDİM. HATA DÜZELDİ.
AMA HALA TARİH BUGÜNÜN TARİHİ DEĞİL

Private Sub TAKVİM_Initialize()
Me.Calendar1.Value = Date
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
ActiveCell.NumberFormat = "dd.mm.yyyy"
Unload Me
End Sub

Private Sub TAKVİM_Activate()
Me.Calendar1.Value = Date
End Sub

 

[hamitcan]

Dosyanızı ekleyin.

 

[ugurrrrrr]

Dosya ektedir.

Belgenin Düzenlendiği Tarih : TIKLANDIĞINDA TAKVİM ÇIKIYOR.

 

[hamitcan]

TAKVİM_Initialize olayını aşağıdaki ile değiştirip deneyin.

Private Sub userform_Initialize()
Calendar1.Value = Date
End Sub

 

[ugurrrrrr]

O şekilde düzeltince ekteki hatyı veriyor. Daha önceden verdiği hata buydu.

 

[Ayhan Ercan]

O şekilde düzeltince ekteki hatyı veriyor. Daha önceden verdiği hata buydu.

Aşağıdaki gibi deneyin..

Private Sub Userform_Initialize()
Calendar1.Value = Now
End Sub