Tarih atma

[Kartalmusa71]

Ekli dosyada problemimi anlatmaya çalıştım inşallah anlaşılır olmuştur.

 

[Ömer]

Merhaba,

Bu şekilde deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
Cells(Target.Row, "C").ClearContents
If UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ")) = "TAKILDI" _
Or IsNumeric(Target) = True Then
    Cells(Target.Row, "C").Value = Date
End If
End Sub

.

 

[Kartalmusa71]

rakam yazdığımdada tarih nasıl yazdırırız örneğin 2828 yazdığımda yan hücreye tarih atsın

 

[Kartalmusa71]

rakam yazdığımdada tarih nasıl yazdırırız örneğin 2828 yazdığımda yan hücreye tarih atsın

Ömer bey,

Özür dilerim şu an çalışıyor yardımlarınız için teşekkürler.