Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/12/2013 18:12
Konu Sahibi
Conqueror20
Yorumlar
8
Okunma
2847
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
Dün,12:01
Çö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
Dün,12:01
Çö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
Çözüldü Aynı işlemi birden fazla hücrede tek seferde yapabilme gkozcan 7 560 22/04/2017, 20:03 atoz112
Çözüldü VBA Excel'de Instr ile belirli hücre değerleri haricindekiler varsa işlem yapma balkan85 7 1.508 07/10/2016, 14:56 balkan85
Çözüldü Urun kodu girdigimde yan hucrede urun adi cikarmi? ugurclk 3 611 18/08/2016, 23:38 ugurclk
Çözüldü İki Tarih arası ödeme tarihini ödeme tutarının yanına yazdırma ercansahiner 5 1.648 10/07/2016, 15:02 atoz112
Çözüldü Excel boş değer varsa D1 boş bırak nemesisdream 9 848 18/06/2016, 16:39 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.