listboxta rapor alma

[Fuat Şirin]

dün buna benzer bir sorumun cevabını forumda aldım
ama o cevabı buna uyarlayamadım
benim istediğim
userform4 te (stok) comboboxlar koyarak listboxta süzülmesi
ve rapor al dediğimde de "RAPOR" sayfasında listelenmesi
süzme (filtre) yapılacak sütunlar

İP NO	BOYAHANE	CİNSİ	RENK	CM

bu sütunlarda filtre yapmam lazım
yardım ederseniz çok sevinirim

programda CİNSİ yerine ÇUVAL yazıyor
siz orayı CİNSİ olarak alın lütfen..

 

[N.Ziya Hiçdurmaz]

yanıt

İP NO suna göre ben yaptım diğerlerini buna göre yaparsınız.

Private Sub ComboBox1_Change()
With ListBox1
.ColumnCount = 8
.ColumnWidths = "100;50;50;50;50;50;50;50"
End With
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA([a1:a65536])
alan = UCase(Replace(Replace(Range("a" & suz), "ı", "I"), "i", "İ"))
veri = UCase(Replace(Replace(ComboBox1, "ı", "I"), "i", "İ"))
If alan Like "*" & veri & "*" Then
ListBox1.AddItem
ListBox1.List(s, 0) = Range("A" & suz)
ListBox1.List(s, 1) = Range("B" & suz)
ListBox1.List(s, 2) = Range("C" & suz)
ListBox1.List(s, 3) = Range("D" & suz)
ListBox1.List(s, 4) = Range("E" & suz)
ListBox1.List(s, 5) = Range("F" & suz)
ListBox1.List(s, 6) = Range("G" & suz)
ListBox1.List(s, 7) = Range("H" & suz)
s = s + 1
End If
Next
End Sub

 

[Fuat Şirin]

Bende çalışmadı
verileri stok sayfasndan alması lazım
birde litrelenen verileri
RAPOR sayfasına atması lazım
bu şekilde yardım ederseniz
saygılar

 

[N.Ziya Hiçdurmaz]

yanıt

KumaŞ Stok

 

[Fuat Şirin]

hocam walla uğraşıyorum ama sağlıklı çalıştıramadım
en azından ikinciyi ekleseniz bende ona göre yapsam
saygılar

 

[Fuat Şirin]

bu konuda lternatif sunulursa
gerçekten çok yardımcı olur
yardımlarınızı bekliyorum

 

[Fuat Şirin]

Bu konuda yardımcı olnursa çok sevinirim inanın işin içinden çıkamadım

 

[Ferhat Pazarçevirdi]

Merhabalar,

Ekteki dosyayı inceleyiniz.

 

[Fuat Şirin]

çok tşk

hocam çok tşk tam istedim gibi
yanlız sizden bir ricam var
eğer olursa arada bir sütun kalmış herhalde açıklamamda cuval yerine parti yazacaktım cinsi yazmışım
eğer olursa bu yolladığım dosyadaki parti yazan sütunuda filtre yapabilirsek
herşeyiyle
tam olur
çok tşk tekrardan

 

[Fuat Şirin]

hocam tamam çözümü buldum
yaptım
çok saolun çok teşekkürler
bu saatte yardımıız için

 

[Ferhat Pazarçevirdi]

Rica ederim. İyi çalışmalar