Forumda Süzme

[gdemir]

Sheets("ara").Columns("A:F").ClearContents
Sheets("data").Select
Range("A1:F1").Select
Selection.AutoFilter
Selection.AutoFilter field:=2, Criteria1:=TextBox2.Text
Range(Selection, Selection.End(xlDown)).Copy

Sheets("ara").Range("a1").PasteSpecial Paste:=xlValues, operation:=xlNone, Skipblanks:= _
False, Transpose:=False

Application.CutCopyMode = False

Sheets("ara").Select
ActiveSheet.AutoFilterMode = False



bu kodda nerde sorun var arkadaslar cozemedımde
yardımlarınız için şimdiden tşk ederim

 

[Levent Menteşoğlu]

Koddan alamadığınız sonuç nedir?

 

[sbayyigit]

leventm ustam konuya el atmış ama cevap gelmeyince ben de biraz uğraşayım dedim . sanırım arkadaşın yapmak istediği bu şekil bir şey.

işini görür herhalde.
Sub deneme()

Sheets("ara").Select
Columns("A:F").Select
Selection.ClearContents
Sheets("data").Select
Range("A1:F1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=TextBox2.Text
Selection.CurrentRegion.Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("ara").Select
Sheets("ara").Range("a1").PasteSpecial Paste:=xlValues, operation:=xlNone, Skipblanks:= _
False, Transpose:=False

Application.CutCopyMode = False

Sheets("ara").Select
ActiveSheet.AutoFilterMode = False
Sheets("data").Select
Range("A1:F1").Select
Selection.AutoFilter

End Sub

 

[gdemir]

Levent ustam
Data sayfasında Verilerim var
ara sayfası boş bir sayfa
bir userforum olusturdum

üzerinde listbox ComboBox ve CommandButton var

ComboBox seçtigim veriyi CommandButton basarak Listbox dökmek istiyorum
ilginiz için tşk ederim

 

[sbayyigit]

Sheets("ara").Columns("A:F").ClearContents
Sheets("data").Select
Range("A1:F1").Select
Selection.AutoFilter
Selection.AutoFilter field:=2, Criteria1:=TextBox2.Text
Range(Selection, Selection.End(xlDown)).Copy

Sheets("ara").Range("a1").PasteSpecial Paste:=xlValues, operation:=xlNone, Skipblanks:= _
False, Transpose:=False

Application.CutCopyMode = False

Sheets("ara").Select
ActiveSheet.AutoFilterMode = False



bu kodda nerde sorun var arkadaslar cozemedımde
yardımlarınız için şimdiden tşk ederim

yazdığın kodlardan yola çıkarak
krirer olarak texbox2.text demişsin ben de texbox2 den yola çıkarak
texbox2 içeresindeki veriye göre süzdürüp bulunan değeri ara sayfası içerisine aktardım. Sizde yazdığım kodları commandbutton click olayına eklerseniz sanırım aynı sonucu bulacaksınız. textbox2.text değeri yerine combobox değeri atayabilir ve bulduğunuz kayıtları listbox içerisine aktarabilirsiniz. kusura bakmayın ama ben mesajınızdan ancak bunları çıkartılabildim...