EXCEL de Dtpicker dan bilgi almak

[ugurrrrrr]

Sn. Ayhan Ercan

Teşekkür ederim sorun çözüldü. Elinize sağlık.

Benim bir sorum daha olacak. Çalışma Kitabının ilgili tarih hücresine ilk açılışta bugünün tarihini kod ile nasıl yazdırırız.

 

[hamitcan]

"missing" ile başlayan referanslar silin.

 

[Ayhan Ercan]

Sn. Ayhan Ercan

Teşekkür ederim sorun çözüldü. Elinize sağlık.

Benim bir sorum daha olacak. Çalışma Kitabının ilgili tarih hücresine ilk açılışta bugünün tarihini kod ile nasıl yazdırırız.

Aslında bu kodu yazmışsınız ancak yalnış yere...

ThisWorkbook'a

Private Sub Workbook_Open()
Sheets("ViziteKağıdıEK4").Range("AI5").Value = Now
End Sub

 

[ugurrrrrr]

Sn. Ayhan Ercan

Tekrar teşekkür ederim . Elinize sağlık

 

[ugurrrrrr]

Arkadaşlar ben gene takıldım.


Private Sub Workbook_Open()
Sheets("ViziteKağıdıEK4").Range("AI5").Value = Now
End Sub

Kodu ile hücreye attığım değeri aşağıdaki formül ile denetliyordum. Ama yukarıdaki kod tarihi 18.12.2008 14:42:52 şeklinde veriyor. bu yüzden aşağıdaki eşitlik sağlanamıyor. Bu iki formatı nasıl eşleştiririz.

=EĞER(AI5=BUGÜN();ŞİMDİ();"08:30")

 

[hamitcan]

Sheets("ViziteKağıdıEK4").Range("AI5").Value =format(now,"dd.mm.yyyy")

şeklinde deneyin.

 

[ugurrrrrr]

Sn. hamitcan

verdiğiniz kodu yazınca da olmadı. bende kodu aşağıdaki gibi değiştirdim. Sorun çözüldü. daha önce Date çalışmıyordu sanırım missing leri silince düzeldi. Yardımlarınız için teşekkür ederim.


Sheets("ViziteKağıdıEK4").Range("AI5").Value = Date