Skip to main content

AccessTr.neT


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

Conqueror20
Conqueror20
8
4105

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

Çözüldü #1
İ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?
.rar Kitap1.rar (Dosya Boyutu: 12,74 KB | İndirme Sayısı: 14)
Cevapla
Çözüldü #2
arkadaşlar yokmu yardım edecek kimse
Cevapla
Çözüldü #3
İ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:

Visual Basic Code
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

Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla
Çözüldü #4
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
Son Düzenleme: 31/12/2013, 00:55, Düzenleyen: Conqueror20.
Cevapla
Çözüldü #5
yalnız kodun 20. satırda muhakkak sonlanması gerekiyor.

kodu ekledim ama çalışmıyor hata veriyor
Son Düzenleme: 31/12/2013, 01:00, Düzenleyen: Conqueror20.
Cevapla
Çözüldü #6
Doğru yaptıysanız hata vermez.
Örnek dosyayı ekledim. Kontrol edin.
.rar Kitap1_Maytas.rar (Dosya Boyutu: 19,87 KB | İndirme Sayısı: 29)
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task