yazdir butonuna zaman eklemek

[dennisf06]

merhaba,

yazdirma butonuna bastigim zaman belirtmis oldugum A1:F30 araliginda bulunan D11 hücresine yazdirma zamaniyla birlikte baski almak istiyorum. Yazdirma islemi icin asagidaki kodu kullaniyorum. Yani D1 hücresinde o anki saat olan mesala 10:30 yazacak, bunu baski sonucunda görecegim. tesekkür ederim.

Sub YAZ()
Sheets("Sayfa1").Range("A1:F30").PrintOut
End Sub

 

[Murat OSMA]

[D1] = Time

​

 

[dennisf06]

merhaba,

yazdir koduna asagidaki gibi ekledim. yazdirma esnasinda yazdirma zamanini hücre icerisinde görebiliyorum ama baski yaptigim kagit üzeride bir sey yazmiyor. hücre icerisindeki zamanin ciktisini almak istiyorum. tesekkür ederim.

Sub YAZ()
Sheets("Sayfa1").Range("A1:F30").PrintOut
[D11] = Time
End Sub

 

[askm]

Önce yazdırıp sonra zamanı yazıyorsunuz.
Aşağıdaki gibi deneyin.

Sub YAZ()
[D11] = Time
Sheets("Sayfa1").Range("A1:F30").PrintOut

End Sub

 

[dennisf06]

merhaba,

tesekkür ederim askm bey. islem oldu. yalniz söyle bir problem yasadim. baska bir butona asagidaki kodu baglamistim. görevi butona basinca B11 hücresine o anki zamani yaziyor. bu benim baslangic saatimdi. yazdir butonuda bitis saati. yazdir butonuna bastigim zaman B11 hücresindeki zamanda degisiyor. neden bukodlar birbirinden bagimsiz calismiyor. ne yapabilirim.tesekkürler.

Sub Saat()
Range("B11").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("B11").Select
Selection.NumberFormat = "h:mm"
End Sub

 

[dennisf06]

merhaba,

1.butona asagidaki kodu baglayarak problemi cözdüm.tesekkür ederim.

Sub Saat()
[B11] = Time
End Sub