Veri süzme ve sayfaya aktarma

[cemal42]

İyi akşamlar. 5000 satırlık 10 sütunluk bir veri sayfası var. D ve E sütunlarından birinde veya her ikisinde de bulunan, ancak farklı satırlarda "DENEME" yazan sütunların süzülerek alt alta gelecek şekilde tüm satırla birlikte diğer sayfaya nasıl aktarabiliriz. Teşekkürler.

 

[hoguz2]

Merhaba ,

aşağıdaki kodu kullanırsanız önce D yi filitreleyip sayfa 2 ye aktaracak sonra o tablonun altına e yi filtreleyip aktaracak bu şekilde işinizi görür mü yoksa D ve E satır sırasına göremi olmalı ..

Sub suz_aktar()

Application.ScreenUpdating = False
Sheets("Sayfa2").Select
Range("A1:J5000").Select
Selection.ClearContents
Selection.Interior.ColorIndex = xlNone
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Sheets("Sayfa1").Select
Range("A1").Select
Selection.AutoFilter ' bos filtre koyarak filtre verilerini temizliyor
Selection.AutoFilter ' bos filtre koyarak filtre verilerini temizliyor
Selection.AutoFilter Field:=4, Criteria1:="=*deneme*"
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Sayfa2").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Sayfa1").Select
Range("A1").Select
Selection.AutoFilter ' bos filtre koyarak filtre verilerini temizliyor
Selection.AutoFilter ' bos filtre koyarak filtre verilerini temizliyor
Selection.AutoFilter Field:=5, Criteria1:="=*deneme*"
ActiveCell.CurrentRegion.Select
Selection.Copy
Sheets("Sayfa2").Select
ActiveSheet.Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Columns("A:J").EntireColumn.AutoFit
Application.ScreenUpdating = True
End Sub

 

[cemal42]

Bu şekilde de işimi görür. Ancak Sayfa1'den Sayfa2'ye aktarırken Sayfa1'deki veriler kayboluyor. Bu da olmazsa güzel olacak. Alakanız için teşekkürler.

 

[PLİNT]

Merhaba
Alternatif olarak ek dosyayı deneyin.

http://s6.dosya.tc/server11/0poqtn/Aktar1.zip.html

 

[cemal42]

Merhaba
Alternatif olarak ek dosyayı deneyin.

http://s6.dosya.tc/server11/0poqtn/Aktar1.zip.html

Emekleriniz ve alakanız için teşekkürler. Dosya işimi gördü. İyi akşamlar.