günün tarihini istenen hücreye yazdırmak

[bulentcigali]

forum da örnekleri inceledim ve ekte gönderdiğim örnekte günün tarihini aktif olan hücrede yazdırabildim ancak istediğim hücreye gönderemedim.örneğin;
h8 hücresine girdiğim değer 2.satıra ve tarihte 1.satıra aynı sutunda yazılacak teşekkür ederim.

 

[ildogan]

Sn. bulentcigali;

Kodlarınızı aşağıdaki şekilde değiştiriniz sorununuz çözülecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Aralik As Range, ilk As Range
    If Target.Address <> "$H$8" Then Exit Sub
   If Not IsEmpty(Target) Then [IV2].End(1).Offset(0, 1) = [H8]
      [IV2].End(1).Offset(-1, 0) = Date
      Set Aralik = Range("e1:n1")
    For Each ilk In Range(Target.Address)
        If Not Intersect(ilk, Aralik) Is Nothing Then ilk.Offset(0, 1) = Date
    Next ilk
    Application.EnableEvents = True
    Set Aralik = Nothing
End Sub

 

[bulentcigali]

çok teşekkür ederim sağolun