Eğer Hücrede Veri Varsa Tarih Yazsın
Tarih
30/12/2013 18:12
Konu Sahibi
Conqueror20
Yorumlar
8
Okunma
2184
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Conqueror20
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
38
9
28/02/2011
İzmir
Ofis 2007
05/05/2016,21:56
Çözüldü 
İ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?


Ek Dosyalar
.rar   Kitap1.rar (Dosya Boyutu: 12,74 KB / İndirme Sayısı: 14)
Cevapla


Conqueror20
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
38
9
28/02/2011
İzmir
Ofis 2007
05/05/2016,21:56
Çözüldü 
arkadaşlar yokmu yardım edecek kimse
Cevapla


maytas
Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
27/09/2015,02:03
Çözüldü 
İ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
1
2
3
4
5
6
7
8
9
10
11
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.
resim
Cevapla


Conqueror20
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
38
9
28/02/2011
İzmir
Ofis 2007
05/05/2016,21:56
Çözüldü 
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
Cevapla


Conqueror20
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
38
9
28/02/2011
İzmir
Ofis 2007
05/05/2016,21:56
Çözüldü 
yalnız kodun 20. satırda muhakkak sonlanması gerekiyor.

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


maytas
Aktif Üye
Kullanici Avatari
Aktif Üye
545
21/12/2008
173
Bursa
Ofis 2010 32 Bit
27/09/2015,02:03
Çözüldü 
Doğru yaptıysanız hata vermez.
Örnek dosyayı ekledim. Kontrol edin.


Ek Dosyalar
.rar   Kitap1_Maytas.rar (Dosya Boyutu: 19,87 KB / İndirme Sayısı: 25)
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.
resim
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  VBA Excel'de Instr ile belirli hücre değerleri haricindekiler varsa işlem yapma balkan85 7 408 07/10/2016, 14:56 balkan85
  Urun kodu girdigimde yan hucrede urun adi cikarmi? ugurclk 3 227 18/08/2016, 23:38 ugurclk
  İki Tarih arası ödeme tarihini ödeme tutarının yanına yazdırma ercansahiner 5 1.013 10/07/2016, 15:02 atoz112
  Excel boş değer varsa D1 boş bırak nemesisdream 9 380 18/06/2016, 16:39 ozanakkaya
  Otamatik Tarih ysntr 4 372 30/05/2016, 15:01 atoz112


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya