Şartlı Veri Aktarma

[truvali27m]

Merhaba arkadaşlar,örnek dosyada da açıklamaya çalıştım.Sıra no yazan sütunda rakam olan veriler sadece 2.sayfaya alt alta kopyalanacak ama burda da kriter 2-3 ve 6.sütunlardaki veriler kopyalanacak diğer sayfaya.Yardımcı olacak arkadaşlara şimdiden teşekkür ederim...

 

[Orion1]

Dosyanız ektedir.

Sub maas_59()
Dim s1 As Worksheet, sat As Long
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Sheets("Sayfa2").Select
sat = s1.Cells(s1.Rows.Count, "A").End(xlUp).Row
Range("A:F").ClearContents
s1.Range("A1").AutoFilter
s1.Range("A1").AutoFilter field:=1, Criteria1:="<>"
s1.Range("A1").CurrentRegion.Copy Range("A2")
s1.Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanamıştır." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[truvali27m]

Dosyanız ektedir.

Sub maas_59()
Dim s1 As Worksheet, sat As Long
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Sheets("Sayfa2").Select
sat = s1.Cells(s1.Rows.Count, "A").End(xlUp).Row
Range("A:F").ClearContents
s1.Range("A1").AutoFilter
s1.Range("A1").AutoFilter field:=1, Criteria1:="<>"
s1.Range("A1").CurrentRegion.Copy Range("A2")
s1.Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanamıştır." & vbLf & "evrengizlen@hotmail.com"
End Sub

Çok teşekkür ederim Evren Bey,elinize sağlık tam istediğim kodlar olmuş çalışmama uyarlayacağım.