Filtre ye Makro Atamak

Katılım
2 Kasım 2019
Mesajlar
71
Excel Vers. ve Dili
Excel 2016
Merhaba arkadaşlar yardımınıza ihtiyacım örneğin A2 ve B2 hücrelerinde yazan değerlerini A ve B sütununda aratmak istiyorum ( sütunda 2k satır var bu 2k satırda aynı olanları filtreliyecek) bunu manüel yapıyorum, daha hızlı olabilmek için makro ile yapmak istiyorum ama yapamadım yardımlarınızı bekliyorum

filtre örneği
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aşağıdaki konuyu inceleyiniz:

 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Paylaştığınız resim açılmıyor. Hızlı çözüm için örnek excel dosyası paylaşın lütfen.
 
Katılım
2 Kasım 2019
Mesajlar
71
Excel Vers. ve Dili
Excel 2016
Hocam dosyayı ekledim, dosya kendi arşivimi tuttuğum iddaa excelelidir, ilgilenenler varsa ücretsiz paylaşabilirim her hafta güncelliyorum,

Excele gelince A2 hücresindeki numarayı değiştirince düşeyara ile sayfa 2 deki tablodan satırı otomatik getiriyor benim istediğim, bu videonun 56. saniyesindeki gibi bir filtre yapmak ama bir türlü yapamadım


 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Videodan anladığım sütun üstte bulunan düğmelere filtre makrosu atanmış. O düğmelere basınca aynı sayfadaki veriler isteğe göre süzdürülüyor. Sizin isteğiniz ise birinci sayfaya kod yazıp ikinci sayfadan verilerin gelmesi. Bu ikisi aynı şey değil. Videodaki filtrede özel bir durum yok, basit düğme işlemini sadece kısayol tuşuna atamışlar diye düşünebilirsiniz. Sizin yapmak istediğinizle arasındaki bağlantı nedir?
 
Katılım
2 Kasım 2019
Mesajlar
71
Excel Vers. ve Dili
Excel 2016
Videodan anladığım sütun üstte bulunan düğmelere filtre makrosu atanmış. O düğmelere basınca aynı sayfadaki veriler isteğe göre süzdürülüyor.
aslında bende tam bunu yapmak istiyorum istediğim sütünlara videodaki gibi düğmeli makro eklemek istiyorum sadece makroyu yapamadım.
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Makro kaydet yöntemiyle yapabilirsiniz. Makro kaydetmeyi başlatın, isteğinize göre filtreleyin ve makro kaydetmeyi bitirin. Daha sonra sayfaya düğme ekleyip bu makroyu atayın.
 
Katılım
2 Kasım 2019
Mesajlar
71
Excel Vers. ve Dili
Excel 2016
Makro kaydet yöntemiyle yapabilirsiniz. Makro kaydetmeyi başlatın, isteğinize göre filtreleyin ve makro kaydetmeyi bitirin. Daha sonra sayfaya düğme ekleyip bu makroyu atayın.
hocam böyle yapıyorum fakat makroyu kaydettiğim değeri getiriyor sürekli, örnek ilk makro kaydında 80% yüzeli kaydettim filtreyi yaptım daha sonra başka bir değere filtre yapacağım ama tekrar 80% değerini yazıyor makro
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Neyi filtreleyeceğinin bilgisini nerden alacak?
 
Katılım
2 Kasım 2019
Mesajlar
71
Excel Vers. ve Dili
Excel 2016
Paylaştığım excelde R2 T2 U2 hücresinin içerisinde yazan değere göre filtre yapması gerekiyor
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Dosyanızı makro kaydedilmiş olarak paylaşır mısınız?
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Üç şart da aynı anda sağlanacaksa aşağıdaki gibi kullanabilirsiniz:

PHP:
Sub filtre()
'
' filtre Makro
'

'
    ActiveSheet.Range("$A$1:$AM$191").AutoFilter Field:=18, Criteria1:=[R2]
    ActiveSheet.Range("$A$1:$AM$191").AutoFilter Field:=20, Criteria1:=[T2]
    ActiveSheet.Range("$A$1:$AM$191").AutoFilter Field:=21, Criteria1:=[U2]
End Sub
 
Katılım
2 Kasım 2019
Mesajlar
71
Excel Vers. ve Dili
Excel 2016
Üç şart da aynı anda sağlanacaksa aşağıdaki gibi kullanabilirsiniz:

PHP:
Sub filtre()
'
' filtre Makro
'

'
    ActiveSheet.Range("$A$1:$AM$191").AutoFilter Field:=18, Criteria1:=[R2]
    ActiveSheet.Range("$A$1:$AM$191").AutoFilter Field:=20, Criteria1:=[T2]
    ActiveSheet.Range("$A$1:$AM$191").AutoFilter Field:=21, Criteria1:=[U2]
End Sub
Hocam benim makrom da sorunmu var anlamadım dediğiniz gibi yaptım filtreleme yapmadı
 

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Aynı anda üç şartı da sağlayan veri olmadığından olabilir mi?
 
Üst