[Yardım]  Cmd buton ile 3 farklı seçeneğe bağlı gelişmiş filtreleme

Verilerinizi listeleyebileceğiniz liste kutusu

Cmd buton ile 3 farklı seçeneğe bağlı gelişmiş filtreleme

İleti#1)  toprak2349 » 27 Şub 2019 19:30

Merhaba arkadaşlar. Excel vba ile kendime hazırlamaya çalıştığım program ile gelişmiş filtreleme sorunumu çözemedim.
Ekli dosyada sadece yıl değişkenine bağlı tekli filtreleme ile verileri listbox a alabiliyorum. Lakin hem yıl hem de 2 farklı değişkeni girip 3 üne birden filtre yapıp sonucu listbox a gelmesini sağlayamadım. Yani "yıl" verisi girilecek, "sektör" verisi girilecek, "konu" verisi girilecek ve "Sorgula" ya tıkanınca sonuçlar listbox a gelecek.Bir de listbox a gelen veriye çift tıklayınca veriler otomatik texboxlara gelecek "Değiştir" e tıklayınca da değiştirecek veya "Sil" e tıkanınca silinecek. Yardımcı olabilir misiniz ? Dosyayı ekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
toprak2349
 
Kayıt: 31 Oca 2017 14:15
Meslek: Girişimci
Yaş: 32
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Cmd buton ile 3 farklı seçeneğe bağlı gelişmiş filtre

İleti#2)  hemso41 » 28 Şub 2019 21:59

Kontrol kod bloğunuzu aşağıdaki gibi değiştirmeniz yeterli olacaktır.
Kod: Tümünü seç
If UCase(LCase(isim.Value)) Like UCase(LCase(Tb5_Yıl)) & "*" And _
    UCase(LCase(isim.Offset(0, 1).Value)) Like UCase(LCase(Tb5_Sektör)) & "*" And _
    UCase(LCase(isim.Offset(0, 2).Value)) Like UCase(LCase(Tb5_Konu)) & "*" Then
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 08:04
Meslek: BİLGİ İŞLEM
Yaş: 39
İleti: 377
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: Cevap: Cmd buton ile 3 farklı seçeneğe bağlı gelişmiş

İleti#3)  Orion1 » 28 Şub 2019 22:36

hemso41 yazdı:Kontrol kod bloğunuzu aşağıdaki gibi değiştirmeniz yeterli olacaktır.
Kod: Tümünü seç
If UCase(LCase(isim.Value)) Like UCase(LCase(Tb5_Yıl)) & "*" And _
    UCase(LCase(isim.Offset(0, 1).Value)) Like UCase(LCase(Tb5_Sektör)) & "*" And _
    UCase(LCase(isim.Offset(0, 2).Value)) Like UCase(LCase(Tb5_Konu)) & "*" Then

Lcase ler fazla olmuş.:cool:
Kullanıcı avatarı
Orion1
Siteye Alışmış
 
Adı Soyadı:Evren Gizlen
Kayıt: 18 Tem 2008 20:51
Meslek: inşaat teknikeri
İleti: 398
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Türkiye

Cevap: Cmd buton ile 3 farklı seçeneğe bağlı gelişmiş filtre

İleti#4)  toprak2349 » 01 Mar 2019 15:25

Cevap yazan arkadaşlara çok teşekkür ederim.Gelişmiş filtreleme sorunum çözüldü. şkşk Peki sonuçların gösterildiği listbox daki veriye tıklayınca o veriler textbox lara gelse, textbox da gerekli değişikliği yaptıktan sonra "Değiştir" butonu ile verileri değiştirebilir miyim veya "Sil" butonu ile o satırı komple silmek gibi ?
Kullanıcı avatarı
toprak2349
 
Kayıt: 31 Oca 2017 14:15
Meslek: Girişimci
Yaş: 32
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cmd buton ile 3 farklı seçeneğe bağlı gelişmiş filtre

İleti#5)  hemso41 » 13 Mar 2019 13:49

Hepsi mümkündür.
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 08:04
Meslek: BİLGİ İŞLEM
Yaş: 39
İleti: 377
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka


Forum ListBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 2 misafir

Bumerang - Yazarkafe