ACİL!EXCELDE VERİLERİ SÜZME VE BAŞKA SAYFAYA AKTARMA

[Nkeser3]

Excelde bir tablodaki verilerin belli bir kritere göre süzülüp daha sonra süzülen bilgilerin sayfa 2ye kopyalanmasını istiyorum.Nasıl yapabilirim?Ama bunu yaparken yeni veri eklediğimde de aynı işlemi otomatik yapmasını istiyorum.

 

[hamzacan]

Örnek uygulamanız olsa yardım edecek arkadaşlar için daha kolay olur.

 

[metinozlu]

Private Sub TextBox1_Change()
Sheets("sayfa2").Range("a2:c450").ClearContents

Sheets("liste").Select
Selection.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*"
Sheets("liste").Range("a1:c1450").SpecialCells(xlCellTypeVisible).Copy Destination:=Sheets("sayfa2").[a1]
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = 80 & ";" & 50 & ";" & 50

ListBox1.RowSource = "sayfa2!a2:c1450"
End Sub

yukarıdaki kod liste sayfasındaki textbox1 deki veriye göre süzülmüş verileri sayfa 2 ye alır ve listbox1 de gösterir.

 

[hamitcan]

Advanced filter ile ilgili bir örnek yaptım. Umarım işiniz görür.

 

[starmetin]

Selam,
Acil dediğiniz için bu dosyayı ekleme ihtiyacı duydum bunu daha kolay ve pratik bir şekilde yapalıbilecek bir yöntemi vardır ama belki bu da işinize yarar...
kolay gelsin

 

[Nkeser3]

Arkadaşlar teşekkürler sağolun.Şimdilik hallettim.

 

[unreal_avci]

Arkadaşlar teşekkürler sağolun.Şimdilik hallettim.

bu sorun bendede var bunu nasil halledebilirim.
metinozlu arkadasin verdigi macroyu denedim ama olmadi 424 hatasi oldu
hata icin hangi eklentiyi secmem gerekiyor.

ikincisi bu sorun macrosuz haledilemezmi.
cevaplariniz icin tesekkur ederim.