Listboxta çağrılan verileri listeleme

[korhan86119]

Merhaba arkadaşlar,
3 gündür yardım bekliyorum.Ekte dosyamı gönderiyorum userform4 te buton ile filtreleme yapıyorum ancak çağırdım veri listboxa gelmiyor.Çok acil yardım lütfen.

 

[NBATMAN]

Merhaba,

aşağıdaki kodlarınız da kırmızı ile işaretli yeri benim yazdığım gibi değiştiriniz.


Private Sub CommandButton6_Click()
Sheets("veri").Columns("b:f").Select
Selection.AutoFilter
If TextBox6.Text <> "" Then
Selection.AutoFilter Field:=1, Criteria1:=TextBox6.Text
End If
If TextBox7.Text <> "" Then
Selection.AutoFilter Field:=2, Criteria1:=TextBox7.Text
End If
If TextBox8.Text <> "" Then
Selection.AutoFilter Field:=3, Criteria1:=TextBox8.Text
End If
End Sub

 

[korhan86119]

Öncelikle ilginiz için teşekkür ederim.En son satırda takılıyor.
Private Sub CommandButton6_Click()
Sheets("veri").Columns("A:f").Select
Selection.AutoFilter
If TextBox6.Text <> "" Then
Selection.AutoFilter Field:=1, Criteria1:=TextBox6.Text
End If
If TextBox7.Text <> "" Then
Selection.AutoFilter Field:=2, Criteria1:=TextBox7.Text
End If
Sheets(1).Columns("A:C").ClearContents
Sheets("veri").Range("b2:f65536").Select
Selection.Copy

Sheets(1).Select
Range("A1").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("veri").Select
Selection.AutoFilter Field:=1
Selection.AutoFilter Field:=2
Selection.AutoFilter Field:=3
Sheets(2).Range("A1").Select
a = Sheets(1).Range("A65536").End(xlUp).Row

ListBox1.ColumnCount = 5
ListBox1.List = Sheets(1).Range("b2:f" & a).Value
End Sub

 

[NBATMAN]

Merhaba,

Bakın aynı problem orada da var.

Bu Sheets(1) komut parçasında parantez içindeki değer bizim excel kitabımızdaki sayfa adlarında bir olmalıdır. Zannımca sizin sayfa adı 1 olan bir sayfanız yok. Buradaki kırmızı ile işaretlediğiniz kodun anlamı şudur;

listboxa liste oluşturmak için Sheets(1) yani sayfa adı 1 olan sayfadan b2 den başlayarak F sütununda a satırına kadar bir tabloyu aldır. Sizde 1 adlı sayfa olmadığı için bunu yapıyor.
şimdi hangi sayfadan veri alacaksanız kırmızı kodda Sheets( ) kısmında parantez içine örneğin veri olsun ("veri") şeklinde yazınız.

 

[korhan86119]

Çok sağolun,şimdi filtreleme işlemini yapıyor ancak bu sefer seçtiğim veri ile birlikte yukarıdaki verilerde listboxa geliyor.İstediğim şey seçtiğim veri gelsin.Yavaş yavaş toparlıyoruz.

dosyanın son haşini ekliyorum.Şİmdiden teşekkür ederim.

 

[korhan86119]

LİSTBOX filtreleme sorunu

Merhaba üstadlar,

Benim sorunum listboxta filtreleme işlemi yaptırıyorum çağırılan veri listboxa geliyor.Ancak texboxu temizlediğimde listboxa aynı veriden 5 er adet geliyor.Acil yardım.

Herkese iyi bayramlar.

 

[Orion1]

Merhaba üstadlar,

Benim sorunum listboxta filtreleme işlemi yaptırıyorum çağırılan veri listboxa geliyor.Ancak texboxu temizlediğimde listboxa aynı veriden 5 er adet geliyor.Acil yardım.

Herkese iyi bayramlar.

VBE niz şifreli.
Şifreyi kaldırmazsanız ,yardım alamazsınız.!!