Statik Tarih atma hk.

[ieoguzhan]

Dün siteden bulduğum bir kodu yine aynı anda aynı sayfadaki başka bir hücre için kullanmak istiyorum.(ilave olarak D hücresine veri girildiğinde B hücresine tarih ve saat yazsın istiyorum) Fakat yapamadım yardımcı olur musunuz ? Kod aşağıdaki gibidir.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [G4:G65500]) Is Nothing Then Exit Sub

Cells(Target.Row, "C") = Format(Now, "dd.mm.yyyy--hh:mm:ss")

End Sub

 

[Ömer]

Merhaba

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [D4:D65500,G4:G65500]) Is Nothing Then Exit Sub
    
    If Target.Column = 4 Then
        Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy--hh:mm:ss")
    Else
        Cells(Target.Row, "C") = Format(Now, "dd.mm.yyyy--hh:mm:ss")
    End If

End Sub

 

[ieoguzhan]

Merhaba

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [D4:D65500,G4:G65500]) Is Nothing Then Exit Sub
   
    If Target.Column = 4 Then
        Cells(Target.Row, "B") = Format(Now, "dd.mm.yyyy--hh:mm:ss")
    Else
        Cells(Target.Row, "C") = Format(Now, "dd.mm.yyyy--hh:mm:ss")
    End If

End Sub

Ömer Bey,
Ellerinize sağlık. Çok teşekkür ederim.