Çözüldü Makro İle Dinamik Arama Kutusu Ekleme

[RBozkurt]

Merhaba excelcozum.com ailesi,

Ekte örnek olarak eklediğim dosyada 2 adet combobox bulunuyor.
Bu 2 kutuya Ad Soyad ve TC verilerini yazdıkça güncellenen dinamik arama ile filtreleme gibi bir işlem yaptırılabilir mi ?
Combobox olması şart değil dinamik arama olması yeterlidir. Teşekkür ederim.

(Bu sayfayı bir makro ile hazırlıyorum. 2. bir makro çalışınca yukarıdaki işlem oluşacaktır.)

 

[Yusuf43]

Düzenledim inceleyip dönüş yapınız kolay gelsin.

 

[RBozkurt]

Sayın Yusuf43 bu işleve filtre eklenebilir mi?

 

[RBozkurt]

Arama çubuğu ve filtre adında bir çalışma buldum. Biraz çözmeye çalışıp konuya dönüş yaparım.

 

[RBozkurt]

Merhaba
Aşağıdaki şekilde bir kod var. Fakat çalıştıramadım. Yardımcı olabilir misiniz?

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Aşağıdaki kod içerisinde Z sütunu son veri Z10000 yerine nasıl seçilebilir?
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

İlgili video. Problem olursa kaldırılabilir.
https://youtu.be/7gtenTS0M_0

 

[RBozkurt]

Düzeltme yazan işlevinde eklenmesi gerekir.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[excelcan]

ActiveSheet.Range("A2:Z" & ActiveSheet.Cells(Rows.Count, "Z").End(3).Row).AutoFilter
Sanırım istediğiniz bu.

 

[RBozkurt]

ActiveSheet.Range("A2:Z" & ActiveSheet.Cells(Rows.Count, "Z").End(3).Row).AutoFilter
Sanırım istediğiniz bu.

Sayın excelcan kod ile kısmen bir düzelme var.
3 4 hane veya tamamını yazıyorum sonuçlanmıyor. Bakabilir misiniz?

 

[RBozkurt]

İsim verisine uyarladım. Şuan çalışıyor.
TC verisinde çalışmadı. Sayıya çevirdim yine olmadı.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[excelcan]

Sayın RBozkurt "*" joker karakteri metin aramaları için zaten.
ActiveSheet.Range("A2:Z10000").AutoFilter Field:=8, Criteria1:="" & arama & ""

Kodu bu şekilde yazın. Farkı görün. Naci ismini filtreleyin. V1 e naci yazın.
Field ı = 22 yapın
Sonra V sütununda Filtreye tıklayın içinde 545 geçer biçiminde
arama yapmayı deneyin. Olmadı mı sütunu metne çevirin bir daha deneyin.
Gene olmayacak.
Şimdiye kadar sayı içinde sayı filtreleme yapmadım.
Doğrudan filter kodlarıyla olur mu onu da bilmiyorum.
Farklı bir kod bloğu ile istediğiniz yapılabilir belki.
Hücre içinde ardışık 545 aranır varsa listeye alınır sonra
ayrı bir sayfada listelenebilir yada mevcut sayfanızda filtreye
çoklu ölçüt olarak verilebilir. Böylelikle filtrelenebilir belki.

 

[RBozkurt]

Arama kutusunu TextBox'a bağladım.
Aşağıdaki kod ile Ad Soyad verisinde arama ve filtreleme işlemi yapılmaktadır.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[excelcan]

Sayın RBozkurt konuyu farklı bir seçenekle çözüme ulaştırmışsınız.
Bu da doğrudan çözümü. Kodları önce bir butona atayıp deneyin.
Kolay gelsin.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.