AccessTr.neT
Eğer Hücrede Veri Varsa Tarih Yazsın - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Eğer Hücrede Veri Varsa Tarih Yazsın (/konu-eger-hucrede-veri-varsa-tarih-yazsin.html)

Sayfalar: 1 2


Eğer Hücrede Veri Varsa Tarih Yazsın - Conqueror20 - 30/12/2013

İ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?


Cvp: Eğer Hücrede Veri Varsa Tarih Yazsın - Conqueror20 - 30/12/2013

arkadaşlar yokmu yardım edecek kimse


Cvp: Eğer Hücrede Veri Varsa Tarih Yazsın - maytas - 31/12/2013

İ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



Cvp: Eğer Hücrede Veri Varsa Tarih Yazsın - Conqueror20 - 31/12/2013

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


Cvp: Eğer Hücrede Veri Varsa Tarih Yazsın - Conqueror20 - 31/12/2013

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

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


Cvp: Eğer Hücrede Veri Varsa Tarih Yazsın - maytas - 31/12/2013

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