combobox a göre süz

[cihangirkara]

arkadaşlar aşağıdaki kodda süz işlemi yapıyor ben oraya combobox ekledim ama olmadı combobox taki veriye göre nasıl seçtirebilirim

Private Sub CommandButton1_Click()
On Error Resume Next
Application.ScreenUpdating = False

Set S1 = Sheets(1)

Set alan1 = S1.Range("b3:f100")
Set alan2 = S1.Range(ComboBox1.ListCount)
Set alan3 = S1.Range("n3:r100")

alan3.ClearContents

alan1.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=alan2, CopyToRange:=alan3, Unique:=True


Application.ScreenUpdating = True


End Sub

 

[Merhum İdris SERDAR]

Ekteki örneği inceleyin.

.

 

[cihangirkara]

ArkadaŞim Bunu Sayfada DeĞİlde Userformda Nasil Yapariz

 

[isfa5878]

sn. cihangirkara
bundan önceki sorunuzda "textbox ve combobox koşullu listbox"
bir örnek göndermiştim işinize yaramadımı ?

 

[cihangirkara]

kardeş şu dosyamı göndereyimde bir bak

isteğim listbox 2 ye textbox1 ve combobox1 koşullu süzme yapılması

 

[cihangirkara]

kusura bakmayın dosyayı eklidim

 

[cihangirkara]

isfa5878

bir önceki dosyayı yenui gördüm orada detay giriş sayfasını açmıyor hata var

 

[isfa5878]

hata veren aşağıdaki siliniz..
Private Sub StatusBar1_PanelClick(ByVal Panel As MSComctlLib.Panel)

End Sub

ayrıca userform (FİRMA RİSK) üzerinde çalışmıştım..O değilmi idi?

başka türlü de yapmaya çalışabiliriz..

 

[cihangirkara]

sayın isfa5878

dosyanızı inceledim bir hata var

firma risk sayfasında textbox1 de firmayı değiştirince listboıx değişmiyor

benim dosyada firmanın üzerine tıklayınca textbox 1 de çıkıyordu

 

[isfa5878]

yanlışınız olmasın bendeki örnek texboxt1de değişiyor...
ilk önce listede tüm veriler sonra text e harf girdikçe listbox yenileniyor...
ektekine bakın olmazsa başka yöntem deneyelim..

 

[cihangirkara]

hocam textbox a giriyorum sonra combobox tan seçiyorum bilgiler geliyor sonra textbox tan bir başka firma seçince hata veriyor hata kodu 1004

birde hocam listbox1 de mausla firmayı seçebilirmiyim clik codu var ama çalışmıyor hata veriyor birde hocam diğer listbox 3 ve listbox 4 için aynısını yapmak için ne yapayım

 

[isfa5878]

peki ama listboxtan seçilenin ne olmasını istiyorsunuz
seçilen textboxtamı görünmesi gerekiyor.?
seçilen ile bir işlemmi yapması gerek?.
seçilen başka bir yeremi gönderilecek.?

 

[cihangirkara]

hocam onu çözdüm

sorun şu a firmasını seçip sonra firmayı değiştirdiğimde hata veriyor sayfadan çıkıp tekrar girmek gerekiyor birde listbox1 den mausla nasıl seçerim

diğer listbox3 ve listbox4 e nasıl yaparım

 

[isfa5878]

sayfadan çıkıp tekrar girmeye lüzum yok textbox u silerseniz listbox geri dolar.
listbox tan seçince ne olmasını istiyorsunuz söyleyin biz de ona göre yardımcı olmaya çalışalım..list3 ve 4 e değişik
bir yolla yapalım.

 

[cihangirkara]

hocam textbox1 de firmayı seçtim combobox tan da seçtim listbox1 de firma isimleri listbox2 de tutarlar çıkıyor sonra textbox 1 e gelip sildiğimde veya başka firma seçmeye kalktığımda hata veriyor

ikincisi listbox1 de firmayı mausla seçemiyorum illaki textboxta girmem gerekiyor yarın firma isimleri uzun olacak onun için lazım

combobox 3 ve 4 te yine kredi kodu seçilip listbox 3 ve 4 te gözükmeli

hocam listbox1 hariç diğerlerinde sadece tarih ve tutar olursa yeterli

 

[isfa5878]

textbox1 e yazdıkça listbox u yeniliyor. yani Textbox1_Change de kod var
listbox textbox a veri gönderince kodlar çakışıyor hata veriyor başka bir yöntem düşünelim.
sayfalar ekleyip her kritere göre yani her listboxa bir sayfa
her kritere göre süzüp ilgili sayfaya göndermeli listboxlarda bağlı oldukları
sayfaları göstermeli.firmalar çoğaldığında şimdi basit olan iş o zaman çok
zorlaşır.

 

[isfa5878]

bilgisayar= adı üstünde
verdiğini alırsın...
ilgilenirsen ilgilenir.....
bilgisayara "Armut piş ağzıma düş" diyerek isteğine kavuşan kimse varsa
ise hep beraber gidip ellerini öpelim...?

 

[isfa5878]

"bir reşit kendin söyle kendin işit durumu daha yaşandı ve bitti. "
(yarıyolda bırakmayan, sn.hsayar) gibi arkadaşlara selam...yol'a .....son........

 

[cihangirkara]

sevgili isfa5878

evimde internet yok akşamları bağlanamıyorum akşam mesajını göremedim ilğine teşekkürler