Eğer Hücrede Veri Varsa Tarih Yazsın

İyi Günler,
Ekteki dosyada K2 hücresine sabit olarak tarih giriyorum. B6:B20 hücreleri arasına ve I6:I20 hücreleri arasına veri girdiğimde otomatik olarak A6:A20 hücrelerine ve H6:H20 hücrelerine K2 hücresindeki tarihin gelmesini istiyorum. Bunu =EĞER komutuyla yapmamam gerekiyor. Çünkü RAPOR sayfasında bütün sayfaları birleştirmek için modül kullanıyorum. Şayet =EĞER formülü kullanırsam boş hücreleri dahi sayfa birleştirirken alıyor. Çünkü hücre boş olsada arkaplandaki formülü algılıyor. Bu sorunu ancak Vba kodu ile çözebilirim belki ama nasıl birşey yapacağımı bilmiyorum. Vba kodları konusunda bilgim yok. RAPOR sayfası haricinde tüm sayfalarda çalışacak bir Vba kodu konusunda bana yardımcı olur musunuz?

arkadaşlar yokmu yardım edecek kimse

İlgili sayfanın sayfa sekmesi üzerine fare ile sağ tıklayıp Kod Görüntüle seçin ve açılan VBE sayfasına aşağıdaki kodları yapıştırın:

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    If Target.Row >= 6 Then

        If (Target.Column = 2 Or Target.Column = 9) And Target = Empty Then

            Target.Offset(0, -1) = Null

        ElseIf (Target.Column = 2 Or Target.Column = 9) And Not (Target = Empty) Then

            Target.Offset(0, -1) = ActiveSheet.Range("K2")

        End If

    End If

    Application.EnableEvents = True

End Sub

Sayın Maytas,
Cevabınız için teşekkür ederim. Hergün sayfa sayısı artıyor. Her eklenen sayfaya bu kodu eklememmi lazım. Rapor sayfası hariç diğer tüm sayfalara uygulama imkanım yokmu

---

kodu ekledim ama hata veriyor çalışmıyor

yalnız kodun 20. satırda muhakkak sonlanması gerekiyor.

---

kodu ekledim ama çalışmıyor hata veriyor

Doğru yaptıysanız hata vermez.
Örnek dosyayı ekledim. Kontrol edin.