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çinPrivate 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