birden çok sayfada veri süz, bir sayfaya kopyala

[ahseng]

For Each k In Worksheets("DATA").Range("G1:G" & WorksheetFunction.CountA(Worksheets("DATA").Range("G1:G100")))

Sheets(k.Text).Select
Range("A1").AutoFilter
Range("A1").AutoFilter Field:=1, Criteria1:="DMAL"
Range("A1").AutoFilter Field:=3, Criteria1:=">=" & Tb1, Operator:=xlAnd, Criteria2:="<=" & Tb2

Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

Selection.Copy
Sheets("LİST").Select
Range("A1").Select
ActiveCell.Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets(k.Text).Select
Range("A1").AutoFilter

Next k

birden çok sayfadaki tabloları belirli kriterlere göre süzüp başlıksız olarak bir sayfaya alt alta kopyalamak istiyorum. süzülen verilerin bulunduğu tabloda yer yer boşluklar olması ve başlıksız olarak alt alta kopyalanmasının gerekmesi proplem yapıyor.

ActiveCell.CurrentRegion.Select

kullanıp buradan hareketle başlıkların olduğu 1. satır ek bir kodla şeçimden çıkartılabilir mi? yada bunun başka bir yolu yok mu?

iyi akşamlar.

 

[emrexcel123]

ekstre

ekstre gibi mi yani şöyle örnek >>
cari kod = 100.001 - 100.035 arası
tarih = 15.02.2007 - 19.03.2007
tutar = 500 - 9750 YTL arası
gibi mi bunu makro ile mi istiyorsun yoksa formülle mi?...

 

[ahseng]

örnek dosya ektedir. örnek dosyada birden çok sayfadaki tabloları süzüp, bir sayfaya kopyalanabiliyor, ama her seferinde başlıklarla birlikte LİST sayfasına kopyalanabiliyor. ama LİST sayfasına başlıksız olarak alt alta kopyalanması gerekiyor. Lütfen yardım.

 

[snx111]

Dolu olan son satır diye arat örnekler var