Filtre şartı değişince makro çalıştırma

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Hayırlı geceler.
Hücre değeri değişince makro çalıştırılabiliyor. Filtre şartı değişince makro çalıştırma imkanı var mı? Örneğin A sütununda kriter seçerek filtreleme yapılırsa A makrosu çalışsın. Filtreleme kapatılırsa B makrosu çalışsın. Yalnız filtreleme makro ile değil elle yapılınca çalışacak.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Bir Excel sayfasında A...E gibi sütunlara bir tablo hazırlayın , Fitreleme uygulayın.
Deneyin.
Kod:
Private Sub Worksheet_Calculate()
Dim a, b As Long
a = Cells(Rows.Count, 1).End(xlUp).Row
b = Application.WorksheetFunction.Subtotal(3, Range("A1:A500000"))
    If a > b Then
        MsgBox "Filtre yapılmış, bunun yerine Makro koduda da yazılabilir"
    Else
        MsgBox "Filtre yapılmamış Makro buna göre düzenlenebilir"
    End If
End Sub
 

askm

Destek Ekibi
Destek Ekibi
Katılım
4 Haziran 2005
Mesajlar
2,745
Excel Vers. ve Dili
2010-2016
Teşekkürler sayın Turist. Akşam deneyeceğim.
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English

leonadies

Excel Derya Deniz Bizde Kulaç Atmaya Çalışıyoruz:)
Altın Üye
Katılım
12 Şubat 2015
Mesajlar
520
Excel Vers. ve Dili
Office 2016 TR 64 Bit Windows
Altın Üyelik Bitiş Tarihi
01-02-2027
Bana da bu örnek lazım oldu. A-Z arasında herhangi bir sütunda filtreleme yapılırsa buna bağlı bir makromun çalışması gerekiyor. Örneğinizi denedim ancak olmadı @turist üstadım
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Kodu
Module kısmına değil, makroyu uygulamak istediğiniz Sayfa Kodu kısmına yazarak deneyin.
Çalıştırmak istediğiniz makronuzu da ;yukarıdaki kod örneğinde
Kod:
 If a > b Then
        Call Makro1
    Else
  End If
şeklinde uygulayabilirsiniz.
Makro1 yerine kendi makronuzun ismini yazabilirsiniz.
 

ibrahimpeng

Altın Üye
Katılım
23 Nisan 2020
Mesajlar
40
Excel Vers. ve Dili
2003-2007 dili Türkçe
Altın Üyelik Bitiş Tarihi
27-04-2035
sayın askm : bildiğim kadarıyla workbook veya worksheet nesne hiyerarşisinde aradığınız sorunun cevabı olabir..saygılarımla...ibrahimpeng
 

Ömer Çakır

Altın Üye
Katılım
20 Ekim 2022
Mesajlar
45
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
22-10-2027
Bir Excel sayfasında A...E gibi sütunlara bir tablo hazırlayın , Fitreleme uygulayın.
Deneyin.
Kod:
Private Sub Worksheet_Calculate()
Dim a, b As Long
a = Cells(Rows.Count, 1).End(xlUp).Row
b = Application.WorksheetFunction.Subtotal(3, Range("A1:A500000"))
    If a > b Then
        MsgBox "Filtre yapılmış, bunun yerine Makro koduda da yazılabilir"
    Else
        MsgBox "Filtre yapılmamış Makro buna göre düzenlenebilir"
    End If
End Sub
Bu kodu çalıştıramadım, aşağıdaki linkte paylaştığım yolla filtre değiştikten sonra tetikleme yaptırabildim. Belki birinin işini görür diyerek paylaşmak istedim.

https://www.experts-exchange.com/articles/2773/Trapping-a-change-to-a-filtered-list-with-VBA.html
 
Üst