Farklı Sheetlere veri aktarma

[TheSins]

Arkadaşlar merhaba...Uzun zamandır excelden uzak kaldığımdan kolay bi konuyu yapamadım. Kısaca sorunum şu DATA adında bir tabloda verilerim var bunları iki sheete bölmek istiyorum Artan ve Azalanları gruplamasını istiyorum. Beceremedim bir türlü
Yardımlarınız için teşekkürler.

 

[Murat OSMA]

Deneyiniz...

[SIZE="2"][FONT="Trebuchet MS"]Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
         If Cells(i, "G") < 0 Then
            Cells(i, 1).Resize(, 8).Copy Sayfa3.Range("A65536").End(3)(2, 1)
                Else
            Cells(i, 1).Resize(, 8).Copy Sayfa2.Range("A65536").End(3)(2, 1)
        End If
    Next i
    i = Empty
End Sub[/FONT][/SIZE]

 

[TheSins]

Murat bey yukarıdaki kodu denedim ancak istediğim şekilde çalışmadı. Siz çalıştırabildiniz mi ?

 

[TheSins]

Deneyiniz...

[SIZE="2"][FONT="Trebuchet MS"]Sub Emre()
    Dim i As Integer
    For i = 1 To Range("A1").CurrentRegion.Rows.Count
         If Cells(i, "G") < 0 Then
            Cells(i, 1).Resize(, 8).Copy Sayfa3.Range("A65536").End(3)(2, 1)
                Else
            Cells(i, 1).Resize(, 8).Copy Sayfa2.Range("A65536").End(3)(2, 1)
        End If
    Next i
    i = Empty
End Sub[/FONT][/SIZE]

Murat bey gönderdiğiniz kodlar çalıştı fakat benim ana sayfada kopyaladığım alanlar formüllü bu yüzden formülleri de kopyalıyor ve değerler bulunamıyor :/