Soru Birden çok makroyu bir hücreye atama

Katılım
20 Kasım 2018
Mesajlar
4
Excel Vers. ve Dili
evet
Merhaba Arkadaşlar, aşağıdaki konuda yardımınıza ihtiyacım var.

Çalışmamda 3 sayfam var ve her sayfanın kendi d1 hücresinde tarih değiştirdiğimde aşağıdaki sayfa kodu na bağlı makro ile veritabanından verilerim geliyor.
Private Sub Worksheet_Change(ByVal Target As Range)
adres = Target.Address
If adres = "$D$1" Then
Call Getir
Else
End If
End Sub

ama ben istiyorum ki 1.sayfanın d1 hücresi değiştiğinde diğer sayfalarda aynı d1 hücresi değerini alarak kendi sayfasında çalışssın.
Yani her sayfanın d1 hücresine değer girip veriyi güncellemek zorunda kalmayım.
Yardımlarınızı beklerim. Şimdiden teşekkürler.
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
2,810
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba,
Sanırım bu işinizi görür. Kendi dosyanıza uyarlayıp deneyiniz.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    Set a = Sheets("Sayfa1")
    Set b = Sheets("Sayfa2")
    Set c = Sheets("Sayfa3")
    
    a.Select
    adres = Target.Address
        If adres = "$D$1" Then
            Call Getir
        End If
    b.Select
    b.[D1] = a.[D1]
        Call Getir
    c.Select
    c.[D1] = a.[D1]
        Call Getir
    a.Select
    Range("D1").select
End Sub
iyi çalışmalar
 
Katılım
20 Kasım 2018
Mesajlar
4
Excel Vers. ve Dili
evet
Merhaba,
Sanırım bu işinizi görür. Kendi dosyanıza uyarlayıp deneyiniz.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
    Set a = Sheets("Sayfa1")
    Set b = Sheets("Sayfa2")
    Set c = Sheets("Sayfa3")
   
    a.Select
    adres = Target.Address
        If adres = "$D$1" Then
            Call Getir
        End If
    b.Select
    b.[D1] = a.[D1]
        Call Getir
    c.Select
    c.[D1] = a.[D1]
        Call Getir
    a.Select
    Range("D1").select
End Sub
iyi çalışmalar
elinize sağlık teşekkür ederim fakat sorgular çok yavaş çalıştı excel kendine gelene kadar bayağı bi zaman geçiyor. Sanırım tek tek güncellemek daha hızlı olur. Başka bir alternatif varmıdır ?
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
2,810
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Merhaba,
Kod:
makronun başına;
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

makronun sonuna;
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
Bu eklemeleri yapıp deneyiniz.
İyi çalışmalar
 
Katılım
20 Kasım 2018
Mesajlar
4
Excel Vers. ve Dili
evet
Merhaba,
Kod:
makronun başına;
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

makronun sonuna;
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
Bu eklemeleri yapıp deneyiniz.
İyi çalışmalar
ekledim makroları hızlandırıyor fakat makro içerisinde veritabanından sql sorgusu olduğundan etkisi olmadı. Yinede Teşekkür ederim. elinize sağlık
 

Tevfik_Kursun

Altın Üye
Katılım
30 Temmuz 2012
Mesajlar
2,810
Excel Vers. ve Dili
Office 2016 Pro - Türkçe 64 Bit
Rica ederim, kolay gelsin
 
Üst