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

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

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

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

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

HTML:
Aşağıdaki kod içerisinde Z sütunu son veri Z10000 yerine nasıl seçilebilir?
HTML:
İlgili video. Problem olursa kaldırılabilir.
https://youtu.be/7gtenTS0M_0

Düzeltme yazan işlevinde eklenmesi gerekir.

HTML:

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

excelcan' Alıntı:

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

Genişletmek için tıkla...

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

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

HTML:

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.

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: