Filtreleme işleminin ardından oluşan tabloyu başka bir sayfaya aktarma

[ceaselessattack]

üzerinde çalıştığım tablo için şöyle bir kod yazdım.A sütunundaki her veri için ayrı ayrı filtreleme işlemi gerçekleştiriyor.Yapmak istediğim şey döngünün her aşaması için oluşan filtrelenmiş veriyi (satırları) başka bir çalışma sayfasına aktarmak yardımcı olursanız çok sevinirim

Sub flt()
Dim i, a
For i = 2 To 4000
Set s1 = Worksheets("Sayfa1")
Set a = Worksheets("Sayfa1").Cells(i, 1)
s1.Cells.AutoFilter Field:=1, Criteria1:=a
Next i
End Sub

 

[Korhan Ayhan]

Selamlar,

Veri aralığınızı ve diğer sayfa nasıl aktarılacağını belirtirseniz yardımcı olmaya çalışırız. Yani filtrelenmiş veri aktarılırken diğer sayfada veri varsa o verinin üzerinemi yazılacak yoksa altınamı eklenecek ?

 

[ceaselessattack]

altına eklenecek.sayfa 2 ye her filtreleme işleminden sonra bir satır boşluk bırakıp alt satırdan devam etse çok iyi olur.

bir dosya ekledim sanırım daha anlaşılır olur.

 

[Kemal Demir]

Sn.ceaselessattack

Eğer istediğinizi yanlıs anlamadıysam ilk filteleme aşamasını yapınız.Sonra Ek'teki dosyadaki Butona basınız.
Dosya içerisinde küçük bir açıklama mevcut.

Umarım istediğniz gibi birşeydir.

 

[ceaselessattack]

Sayın Kemaldemir;

Sn.ceaselessattack

Eğer istediğinizi yanlıs anlamadıysam ilk filteleme aşamasını yapınız.Sonra Ek'teki dosyadaki Butona basınız.
Dosya içerisinde küçük bir açıklama mevcut.

Umarım istediğniz gibi birşeydir.

Uğraşınız ve gönderdiğiniz dosya için teşekkür ederim
ancak sanırım ben çalışma mantığını anlayamadım.Özür dilerim

ihtiyaç duyduğum şey şu aslında yaklaşık 4000 satır için A sütununda bulunan verilleri A2 den başlayarak süzecek ve süzülen veriyi başka bir sutuna aktaracak. yazdığım makronun
Sub v_3()
Dim i, a
For i = 2 To 4000
Set s1 = Worksheets("Sayfa1")
Set a = Worksheets("Sayfa1").Cells(i, 1)
s1.Cells.AutoFilter Field:=1, Criteria1:=a

kısmından sonra oluşan tabloyu (süzülmüş veriyi) başka sayfaya aktaran bir yordama ihtiyacım.bu yordam tüm süzme işinin defalarca yapılarak yeni sayfaya yapıştırılmasına yarayacak.Böylece defalarca süzme işlemi yapmaya gerek kalmıcak.döngü tüm verileri (ürün kodlarını) gruplayarak listeleyecek

 

[ceaselessattack]

sanırım oldu

Çok teşekkür ederim sayın Kemaldemir
sizin yazdığınız kodu kendi yazdığım kodun içine yerleştirdim
sonuç==>mükemmel!!!

çok saolun

 

[Kemal Demir]

Yanlıs anlamadıysam eğer ornekte biraz değişiklik yaptım.

İlk yapılanma aşaması İlgili ürünlere ait ilgili Sheetler acıp kopyalamak ikinci aşama ilgili ürünler 'e ait açılmış sheetler varsa sonrasında yapılacak kopyalama işlemi.

Umarım bu sefer doğru anlamısımdır.

 

[Kemal Demir]

Sorunu çözmüş olmanız güzel.
Ekledıgım örnek dosyaya bakıp kafanızı karısıtmayınız.