Filtrelediği tüm excel hücresini listbox'da göstersin

[bistrobellman]

UserForm üzerinde yer alan TextBox4 'E veri giriliyor ve
"GÃ?STER" COMMANDButton1 butonuna tıklanıyor.

Bunun sonucunda Sayfa1 ' de D Sütuna göre süzme yapılacak (AUTO FILTER) ve TextBox4 değerine eşit olanı süzecek ve süzme sonucu komple listeyi
yine AYNI USERFORM ÜZERİNDE BULUNAN LİSTBOX1 A ATMAK İSTİYORUM. kolay biliyorum ama cıkamadım takıldım bir yerde olmuyor.

Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=4, Criteria1:=TextBox4

Bu komutun sonunda örneğin 4 satırlık veri cıktı.aynen bu süzme sonucu arka planda kalsın, tam ekran kaplı userform üzerindeki sütun başlıklı LİstBox1 'de görmek istiyorum arka plandaki süzme sonucunu.....

nasıl yaparız arkadaşlar?

 

[Levent Menteşoğlu]

Filtrelediğiniz alanı currentregion ile adresleyip kopyalayın ve boş bir alana yapıştırın. Daha sonrada bu alandan listboxa rowsource ile verileri aktarabilirsiniz.

 

[bistrobellman]

Selection.AutoFilter Field:=4, Criteria1:=TextBox4

Range("A1:M10").CurrentRegion.Copy
Workbooks.Add
Range("A1").PasteSpecial xlPasteAll
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
t = ActiveCell.Row
ListBox1.RowSource "Sayfa1! A1: M" & t


hata veriyor o zaman neden?