Çoklu tektbox i̇le li̇stboxda fi̇ltreleme

  • Konuyu başlatan Konuyu başlatan ilyas25
  • Başlangıç tarihi Başlangıç tarihi

ilyas25

Kullanıcı
Katılım
30 May 2019
Mesajlar
26
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Değerli hocalarım ekte paylaşmış olduğum Dosyanın içinde bir adet Userform var.
Userformda yapmak istediğim arama kısmında Başlangıç Tarihi ve Bitiş Tarihi filtrelensin tarih filtrelendikten sonrada diğer Textboxlara yazacğım değerlere
görede filtrelesin.
Örnek iki tarih arasında
Başlama Tarihi= 05.06.2022
Bitiş Tarihi = 09.06.2022 (iki tarih arasını süzsün ve bu iki tarih arasında aşağıdaki örnek olarak seçtiğim değerleri filtrelesin)
Durumu= Açık
Blok =A BLOK
Daire =herhangi bir daire no
05.06.2022 ile 09.06.2022 tarihler arasında Durumu Açık olan A BLOK Daire xx değerlerini filtrelesin
 
Kod ile düşeyara ile karşılık getirme
Sütunlar ve kritere göre liste oluşturma

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Merhaba @ilyas2534

-- UserForm'a ait Initalize kodundaki ListBox1.ColumnHeads = True satırını silin,
-- DATA sayfasındaki TARİH ve SAYI olan hücrelerin üzerinden birer kez F2+ENTER ile geçiş yapın.
Çünkü userform üzerinden sayfaya kaydedilen SAYI (daire no) ve TARİH sütunları SAYI/TARİH gibi görünse de METİN durumunda.
Tabi userformdan kayıt oluşturma kodlarınızın da buna göre gözden geçirilipp, verilerin tarih ve sayı olarak kaydedilmesini sağlamanız gerekecek.
-- Userform üzerinde ARAMA BULMA bölümündeki DAİRE Textbox'unu biraz küçültüp hemen yanına FİLTRELEME yapmak üzere yeni bir CommandButton ekleyin (CommandButton6),
-- Userform Initalize kodunda bir de sütun genişliklerini verdiğiniz "0;80;80;90;70;60;140" kısmında, en baştaki 0 (sıfır)'ı 20 olarak değiştirin.
-- Userform'un kod bölümüne de şu kodu ekleyin.

Artık tarih/durumu/blok/daire bilgilerini tek tek veya ayrı ayrı yazıp u yeni commandbutton'a tıkladığınızda işlem gerçekleşir.

[REPLY]
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(15 satır)
[/REPLY]
 
Oyla 0 Olumsuz oyla
Yazdıkça/seçtikçe/sildikçe filtreleme versiyonu tercih ederseniz; ADO yöntemi ile alternatif olarak ilerleyebilirsiniz.
Lakin verilerinizde sorunlar vardı, biraz düzeltmeler yaptım.

1654467097502.webp
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt