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

Katılım
20 Temmuz 2005
Mesajlar
270
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.
 
Katılım
7 Şubat 2007
Mesajlar
15
Excel Vers. ve Dili
office 2003
Sn. bulentcigali;

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

Kod:
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
 
Üst