Sayfayla Eşzamanlı Arama Kodunu ListBox Nesnesine Uyarlama

[Cengizhan]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Bu kodu görmek için giriş yapmanız gerekmektedir (47 satır). Giriş Yap

Hayırlı geceler değerli hocalarım.
Bu kodu Ömer hocam yazmıştı çok stabil çalısıyor. Arama yapınca aynı anda sayfada da süzme yapıyor. Bu kodun listbox için nasıl uyarlayabilirim acaba

 

[ExcelDepo]

TextBoxa Yazdığına Göre ListBoxta Filtreleme | Excel Depo

Dosyanız olmayınca verebileceğim cevapta bu kadar olabiliyor ancak. Linkteki dosya ile ListBox üzerinde nasıl filtreleme yapılacağı öğretilmektedir.

 

[Cengizhan]

Teşekkürler ama ben bu kodu uyarlamak istiyorum listbox için

 

[ExcelDepo]

Dosyanızı ekleyin o zaman @Cengizhan bey, ki insanlar kolayca indirip çözüm için uğraşabilsinler.
Lütfen bakınız:

https://www.exceldestek.com/konu/ornek-dosya-nedir-neden-gereklidir.1369/

 

[Cengizhan]

ekledim örnek dosya @Admin hocam

 

[Cengizhan]

@Ömer BARAN hocam bu kodu siz yazmıştınız mümkünse listbox uyarlayabilirmiyiz

 

[Ömer BARAN]

Hem ListBox, hem de ListView için çözdüğümüz bir konu olduğunu hatırlıyorum sanki.

 

[Cengizhan]

Hem ListBox, hem de ListView için çözdüğümüz bir konu olduğunu hatırlıyorum sanki.

Evet ama bu başka hocam size zahmet ? zamanınz olunca baksanız

 

[Ömer BARAN]

O çözülen konu sayfasının linkini verebilir misiniz?
Aramayla bulamayabilirim.
Her defasında sıfırdan kodlamaya lüzum yok.
Kendi kodlarımdan kopya çekeyim (ya da siz çekin) dedim.

 

[Cengizhan]

O çözülen konu sayfasının linkini verebilir misiniz?
Aramayla bulamayabilirim.
Her defasında sıfırdan kodlamaya lüzum yok.
Kendi kodlarımdan kopya çekeyim (ya da siz çekin) dedim.

https://www.exceldestek.com/konu/kodda-revize-listbox-icin-degisiklik.4062/

hocam benziyor ama şimdikinde tarih felan yok

 

[Ömer BARAN]

Evet oradaki TEK SÜTUNluk bir Listbox imiş.

Mevut kodda üst tarafa Dim liste() diye bir satır ekleyip.
Mevcut With...End with kod blokunu şöyle değiştirin.

Bu kodu görmek için giriş yapmanız gerekmektedir (13 satır). Giriş Yap

 

[Cengizhan]

Evet oradaki TEK SÜTUNluk bir Listbox imiş.

Mevut kodda üst tarafa Dim liste() diye bir satır ekleyip.
Mevcut With...End with kod blokunu şöyle değiştirin.

Bu kodu görmek için giriş yapmanız gerekmektedir (13 satır). Giriş Yap

girenstok.ListBox1.List = Application.Transpose(liste) hocam burda hata verdi

Bu kodu görmek için giriş yapmanız gerekmektedir (39 satır). Giriş Yap

 

[Ömer BARAN]

Eklediğiniz son belgede ben bir hata almadım.
Ayrıca benim verdiğim ve bende sorunsuz çalışan kod sadece TextBox1 ile ilgili biliyorsunuz.

 

[Ömer BARAN]

Yeni fark ediyorum.
İlk eklediğiniz belgedeki kodlarla, son belgedeki kodlar tamamen ayrı.
Bence tek belge üzerinde çalışmalısınız.

 

[Cengizhan]

Yeni fark ediyorum.
İlk eklediğiniz belgedeki kodlarla, son belgedeki kodlar tamamen ayrı.
Bence tek belge üzerinde çalışmalısınız.

yanlış belge eklemişim hocam özür dilerim şimdi ekliyorum

 

[Ömer BARAN]

USerform'u açtığınızda, ARAMA TEXTBOX'unun hemen üstündeki
OptionButton'lardan biri seçiliyken deniyorsunuz değil mi?

 

[Cengizhan]

USerform'u açtığınızda, ARAMA TEXTBOX'unun hemen üstündeki
OptionButton'lardan biri seçiliyken deniyorsunuz değil mi?

Evet hocam

 

[Ömer BARAN]

Çözüm belgeniz ekte @Cengizhan

Belgede, gizlenmiş olarak kullanılacak XD isimli bir sayfa eklenmiş durumda.

 

[Cengizhan]

Teşekkürler hocam vip üyelğim bitmiş sanırm indirmek için vip olmam gerek

 

[Cengizhan]

Çözüm belgeniz ekte @Cengizhan

Belgede, gizlenmiş olarak kullanılacak XD isimli bir sayfa eklenmiş durumda.

şimdi indirdim hocam işiniz rast gelsin