Forumda Süzme

Katılım
26 Mart 2005
Mesajlar
139
Excel Vers. ve Dili
2003 [TR]
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
 
Son düzenleme:

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Koddan alamadığınız sonuç nedir?
 

sbayyigit

Altın Üye
Katılım
11 Aralık 2004
Mesajlar
417
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Altın Üyelik Bitiş Tarihi
23-02-2026
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
 
Katılım
26 Mart 2005
Mesajlar
139
Excel Vers. ve Dili
2003 [TR]
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

Altın Üye
Katılım
11 Aralık 2004
Mesajlar
417
Excel Vers. ve Dili
Ms Office Pro Plus 2019
Altın Üyelik Bitiş Tarihi
23-02-2026
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...
 
Üst