Not girildiğinde tarih yazılsın.

[KAYA212]

Merhaba,
A sütununda herhangi bir satıra açıklama yazdığımda peşinden otomatik olarak daha küçük punto ile ve kırmızı renkli tarih yazılmasını istiyorum.

Örnek;
Değerler kaydedildi.06.09.2017numune hurda edildi.07.09.2017dosya kapatıldı.08.09.2017

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    With Target
    Application.EnableEvents = False
         a = Len(.Text) + 1
        .Value = .Text & Format(Date, "dd/mm/yyyy")
        .Characters(a, 10).Font.Color = vbRed
        .Characters(a, 10).Font.Size = 7
    Application.EnableEvents = True
    End With
End Sub

 

[BedriA]

Merhaba,
A sütununda herhangi bir satıra açıklama yazdığımda peşinden otomatik olarak daha küçük punto ile ve kırmızı renkli tarih yazılmasını istiyorum.

Örnek;
Değerler kaydedildi.06.09.2017numune hurda edildi.07.09.2017dosya kapatıldı.08.09.2017

A'ya değil de B'ye tarih yazdırsak olmaz mı? diye soradurayım,
cevap gelmiş bile...

 

[politen]

A'ya değil de B'ye tarih yazdırsak olmaz mı?

O halde ben sorayım: B sütununa nasıl tarih damgası yazdırabiliriz?

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target <> "" Then Cells(Target.Row, 2) = Date
End Sub

Ayrıca aşağıdaki linkleri de inceleyebilirsiniz.
http://www.excel.web.tr/f48/hucre-dolu-ise-tarih-atsyn-t120599.html
http://www.excel.web.tr/f48/veri-girilirse-tarih-yazma-t78203.html

 

[politen]

Teşekkür ederim.