Komut Butonu Üzerinde Tarih

[imdatsaral]

Komut Butonu Üzerinde Tarihi Yazdırmak İstiyorum.
Hücre İçinde Kullandığım =bugün() komutu hüçrelerin yerleri bakımından
uygun olmuyor kullanmak

 

[xxrt]

Denetim Araç Kutusundan Komut Düğmesini açıyorsun.İki kere tıklıyarak kod sayfasına şunları yazıyorsun..

Private Sub CommandButton1_Click()
CommandButton1.Caption = Format(Date, "dd/mm/yyyy")
End Sub

Denemek içim tasarım modundan çık ve tıklat.

Daha Gösterişli isterseniz.

Private Sub CommandButton1_Click()
If [a1] = "" Then
Soru = MsgBox("Hücreye Değer girmediniz.", vbYesNo, "Hata!")
CommandButton1.Caption = ""
If Soru = vbYes Then GoTo devam
If Soru = vbNo Then Exit Sub
End If
devam:
CommandButton1.Caption = Format(Date, "dd/mm/yyyy")
End Sub

 

[imdatsaral]

Teşekkürler xxrt eline sağlık güzel olmuş

 

[mustafa]

merhaba, soruya bağlantılı bir sorum olacak:

Private Sub CommandButton1_Click() 
CommandButton1.Caption = Format(Date, "dd/mm/yyyy") 
End Sub

Yukarıdaki koda saat nasıl eklenir. Yani;

24.09.2004
08:33:25

gibi.

 

[erdoğankaplan]

öncelikle herkese günaydın, örnek dosya gönderirseniz çok sevinirim, çalışmalarınızda başarılar dilerim.

 

[xxrt]

Private Sub CommandButton1_Click()
CommandButton1.Caption = Format(Now, "hh:mm:ss")
End Sub

Tarih ve Saat ikisi için

Private Sub CommandButton1_Click()
CommandButton1.Caption = Now
End Sub

Saatin aktif olması için:

Private Sub CommandButton1_Click()
Do
CommandButton1.Caption = Now
DoEvents
Loop
End Sub

 

[mustafa]

Sayın xxrt, teşekkürler kod güzel çalıştı.

 

[mustafakoker]

Sayın xxrt, teşekkürler kod güzel çalıştı.

Örnek dosya ekledim Ayrıca Userformun Başlığına Tarih Ekledim Bir Tanede Flash Saat Örnek olması dileğimle

 

[Civan Jack]

Teşekkürler Mustafa bey, bunun yapılacağı aklıma gelmemişti

 

[mustafakoker]

Teşekkürler Mustafa bey, bunun yapılacağı aklıma gelmemişti

Rica ederim bende forumda görmüştüm ve çalışmalarımda kullanmaya başladım ama Flash Saat Bana ait

 

[tunç78]

s.a. hocam ben oluşturduğum bir excel tablosunda bir örneğin aq3 hücresinin üzerine tarih butonunu eklemek istiyorum ve tarihi seçtiğimde aq3 hücresine tarihi yazmasını istiyorum. bununla ilgili forumdaki yorumları okudum fakat tam olarak istediğimi bulamadım. yardımcı olursanız sevinirim.

 

[dennisf06]

merhaba

konuyla ilgili belirtilen hücreye aktif saati nasil yazdirabilirim. butona tikladigimda C3 hücresinde aktif saat yazacak.tesekkürler.

 

[N.Faruk]

http://www.excel.web.tr/f47/u-anki-saat-i-nasyl-yazdyrcam-t16698.html

Yukarıda başka bir örnek için anlatılmış.

Sizin istediğiniz gibi bir çalışma yaptım.
İyi çalışmalar.

(=ŞİMDİ() fonksiyonu kullanın ve hücrenin (C3) formatını "ss:dd" olarak ayarlayın.)

 

[N.Faruk]

Eğer saniye de olsun istiyorsanız "h:mm:ss" olarak düzenleyin.

 

[dennisf06]

merhaba Faruk bey,

tesekkür ederim ilginize. belirtmis oldugunuz konuyu incelemistim, ama bir türlü bunu butona baglayamadim. vermis oldugunuz kodlari kendim modula yazmama ragmen hata veriyor.


Sub Saat()

Saat Makro
Range("C3").Select
ActiceCell.FormulaR1C1 = "=NOW()"
Range("C3").Select
Selection.NumberFormat = "h:mm"

End Sub

hata nerde acaba.tesekkür edrim.

 

[N.Faruk]

Rica ederim. Daha iyi anlaşılması ve kalıcı olması için:

https://vimeo.com/144292033

kolay gelsin...