Soru Birden çok makroyu bir hücreye atama

[ömer855]

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]

Merhaba,
Sanırım bu işinizi görür. Kendi dosyanıza uyarlayıp deneyiniz.

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

 

[ömer855]

Merhaba,
Sanırım bu işinizi görür. Kendi dosyanıza uyarlayıp deneyiniz.

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]

Merhaba,

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

 

[ömer855]

Merhaba,

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]

Rica ederim, kolay gelsin