AccessTr.neT

Tam Versiyon: Eğer Hücrede Veri Varsa Tarih Yazsın
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
İ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.
Sayfalar: 1 2