Filtrelenmiş verileri listbox'a nasıl aktarabilirim.

[Kemal Demir]

Arkadaslar öncelkle bole bir başlık için özür dilerim bende gördüğüme var olduguna inanıyorum bole bir ornek forum içerisinde mevcut.

Ama Zannedersem aratma(kullandıgım) kelime ye gore cıkaramadım.

Gelelim Yapamadıgım duruma;

Private Sub CommandButton1_Click()
Selection.AutoFilter
Selection.End(xlToRight).Select
Selection.AutoFilter Field:=5, Criteria1:=ComboBox2.Value
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "a2:a188"
ComboBox1.ColumnHeads = False
ComboBox2.RowSource = "VERİ!a1:a24"
ComboBox2.ColumnHeads = False
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
End Sub


Listbox um mevcut (listbox1) bunu filtrelenmiş verileri nasıl listbox a aktarabilirim.

Saygılar.

 

[zafer]

Merhaba

Sayın Leventm'in daha önce bir soruya cevap olarak gönderdiği aşağıdaki dosyada ki kodların sizin isteklerinizi karşılayacağını umarım

Kendinize göre uyarlayabilirsiniz.

 

[Kemal Demir]

Teşekkur Ederim,ama

Biraz fazla kalabalık geldı
Isıme yarayacak belki ama zannedersem ezbere iş yapmıs olacağım daha sade bır yolu varsa tekrar zahmet olmaz ise yardımcı olabilir misiniz?

 

[zafer]

Merhaba

Suz olarak yeni bir sayfa açın

Private Sub CommandButton1_Click()
.
.

sizin kodlarınıza ilave olarak


Range("a2:Y2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("suz").Select
Range("a2").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("Veri").Select
Range("a2").Select
Selection.AutoFilter
Worksheets("suz").Select
b = Worksheets("suz").Range("a65536").End(xlUp).Row

ListBox1.RowSource = "suz!a2:G" & b




Kodlarda

combobox1 göre veri sayfasında süzme işlemi yapılacak.
sonra süzeülen veriler süz adlı sayfaya kopyalanacak
bu veriler listbox1'e alınacak

 

[zafer]

Merhaba

Suz olarak yeni bir sayfa açın

Private Sub CommandButton1_Click()
.
.

sizin kodlarınıza ilave olarak


Range("a2:Y2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Worksheets("suz").Select
Range("a2").Select
ActiveSheet.Paste
Range("a2").Select
Worksheets("Veri").Select
Range("a2").Select
Selection.AutoFilter
Worksheets("suz").Select
b = Worksheets("suz").Range("a65536").End(xlUp).Row

ListBox1.RowSource = "suz!a2:G" & b




Kodlarda

combobox1 göre veri sayfasında süzme işlemi yapılacak.
sonra süzeülen veriler süz adlı sayfaya kopyalanacak
bu veriler listbox1'e alınacak

 

[zafer]

Merhaba

burada combobox2 'in rowsource'si E sütununa göre olmalı

Selection.AutoFilter Field:=5, Criteria1:=ComboBox2.Value
Yukarıdaki kodlarda 5 sütuna göre filitre yapılacak yazıyor.

Hangi sütuna göre süzme işlemi yapacaksanız. combobox2'in veri alacağı yer o sütun olmalı

 

[zafer]

Merhaba

Aşağıdaki dosyayı incelermisiniz

 

[zafer]

Merhaba

Aşağıdaki dosyayı incelermisiniz

 

[Kemal Demir]

Çok teşekkur Ederim.
Ellerinize Sağlık

 

[orcunerkek54]

sayın zafer bey bu süzme olayını yapıtırdıktan sonra süzülüp arka sayfaya gittikten sonra ön taraftaki sayfadaki verilerin silinmesi mümkünmü. teşekkürler

 

[hsayar]

Merhaba

Aşağıdaki dosyayı incelermisiniz

Esenlikler,
Herhalde dosya uzun bir zaman olduğu için kayboldu, yeniden ekleye bilirmisiniz?