otomatik tarih atma

[fedorac0re]

merhaba;

bir hücreye saat yazdığımda günün tarihini aynı hücre içine nasıl attırabilirim?

mesela ; hücreye saat olarak 12:15 yazınca hücrede 15-3-2013 12:15 olarak çıksın ?



yardımlarınız için teşekkürler şimdiden.

 

[ZorBey_]

Merhaba İyi Çalışmalar

Şöyle Olurmu Acaba
Hücreyi Seçelim

=ŞİMDİ()
Yazalım
Enter Hücreden Çıkalım

TArih Ve Saati Atacaktır.

 

[fedorac0re]

Merhaba İyi Çalışmalar

Şöyle Olurmu Acaba
Hücreyi Seçelim

=ŞİMDİ()
Yazalım
Enter Hücreden Çıkalım

TArih Ve Saati Atacaktır.

Merhaba;

saati hücrelere manuel olarak ben giriyorum..

15:20 yazdım mesela hücreye aynı hücrenin içine tarihte atsın 15-3-2013 15:20 gibi olsun..

 

[Merhum İdris SERDAR]

.

A sütunu için:

Sayfa koduna:

Private Sub Worksheet_Change(ByVal Target As Range)

    Tarih Target, "A"
       
End Sub

Modüleye:

Sub Tarih(Target As Range, sut As String)

    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Cells = "" Then Exit Sub
    
    Application.EnableEvents = False
    
        Cells(Target.Row, sut) = Target + Date
    
    Application.EnableEvents = True
    
End Sub

kodlarını yazın.


Örnek dosya ekte.


.