• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

comboboxlar'da birbirine bağlı veriye göre listboxa süzmek

udentr2002

Altın Üye
Katılım
5 Kasım 2006
Mesajlar
1,503
Excel Vers. ve Dili
iş yerinde Office 365
evde Office 365
Merhaba Arkadaşlar,
Yapmak istediğim; formda 3 tane combobox var, combobox1'de (Ay adı) a sütununa göre süzme yapıyor, combobox1 de yazılan veriyi süzdükten sonra combobox2'ye listboxdaki 3. sütun yani (Mamül adı) yazan veriler gelmeli ve combobox2 de var ola n veriyi süzdüğümüzde de bu defa combobox3'e listboxda ki 11. sütun yani (Müstahzar Adı yazan veriler gelmeli, combobox3 e gelen veriye göre de süzme yapabilmeli listboxa. Yani her bir combobox birbirine bağlı olarak listboxa süzme yapmalı

Ekli dosya da ekliyorum.
İşin kısası şöyle sanırım; Filtre yaparken bir sütundaki veriyi filtrelediğimizde diğer sütunda filtreye tıkladığımızda o sütundaki verilerin süzülmemiş hali değil de diğer filtre yapılan veriye göre bilgiler geliyor ya aynı mantık. İnşallah anlatabilmişimdir.
Yardım eden ve ilgilenen arkadaşlara teşekkür ederim.
 

Ekli dosyalar

merhaba,

konu ile alakalı cevabı çok merak ediyorum :-)
 
Konu hakkında bir fikri veya çözümü olan bir arkadaşım var mı?
Yardımlarınızı rica ederim.
Eğer kastettiğim şeyi anlatamadıysam, başka türlü anlatmaya çalışabilirim.

Combox1 den listboxa süzme yaptığımızda , 2. combobox listboxda ki 3. kolondaki verilere göre süzme yapacak. alternatif çözümü de açığım.

Saygılarımla
 
Emre Hocam Merhaba,
Kodlarınız çok kullanışlı ve başarılı teşekkür ediyorum.
Fakat Bir problemim var.
Başka Sayfada çalışırken verileri görmüyor. kodlara baktım ki sheet belirtilmemiş ve illaki çalışacağımız sheet te olmamız gerekiyor.
ben bir Worksheet tanımlayarak cell yazan yerlerin başına sheet("çalışmasayfam").cell() yaptım ama başarılı olmadım. bu konuda yardımızı rica ediyorum.
 
Merhabalar, Userform açılınca verilerin olduğu sayfa gelecek ve listboxda seçilen doubleclick yapılınca son çalışma yaptığınız sayfa geri gelecektir.
Boş modüle ,
Public onceki As Worksheet
Sub oncekisayfa()
onceki.Select
End Sub

Thisworkbook ‘a ,
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set onceki = Sh
End Sub

USERFORM kodlarındaki,
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
‘ kodlar…..
Call oncekisayfa
End Sub
Kodları ilave edip dener misiniz?
( Sayfa çağırma kodları Ömer beye aittir)
 
Son düzenleme:
Emre Hocam Merhaba,
Kodlarınız çok kullanışlı ve başarılı teşekkür ediyorum.
Fakat Bir problemim var.
Başka Sayfada çalışırken verileri görmüyor. kodlara baktım ki sheet belirtilmemiş ve illaki çalışacağımız sheet te olmamız gerekiyor.
ben bir Worksheet tanımlayarak cell yazan yerlerin başına sheet("çalışmasayfam").cell() yaptım ama başarılı olmadım. bu konuda yardımızı rica ediyorum.

Merhaba ,

Deneyiniz..
 

Ekli dosyalar

Merhabalar, Userform açılınca verilerin olduğu sayfa gelecek ve listboxda seçilen doubleclick yapılınca son çalışma yaptığınız sayfa geri gelecektir.
Boş modüle ,
Public onceki As Worksheet
Sub oncekisayfa()
onceki.Select
End Sub

Thisworkbook ‘a ,
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set onceki = Sh
End Sub

USERFORM kodlarındaki,
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
‘ kodlar…..
Call oncekisayfa
End Sub
Kodları ilave edip dener misiniz?
( Sayfa çağırma kodları Ömer beye aittir)
Hocam teşekkür ediyorum bazen başka userformlarda çalışması gerekebiliyor o yüzden sayfa userformla seçilsin alternatifi uygun gelmedi. yinede tekrar teşekkürler.
 
Geri
Üst