kaydet formülüne ek

[aydgur]

Sub sayfalaraaktarA()
Sheets("satış").Select
For x = 2 To [a65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[a65536].End(3).Row + 1
For y = 1 To 14
s2.Cells(sira, y) = Cells(x, y + 1)

Next y
Next x
Sheets("SATIŞ").Select
Range("A2:O80").ClearContents

10 MsgBox "CARİLERE AKTARILDI"
End Sub
Bu makroya ilave yapmak istiyorum=SATIŞ sayfasındaki A2:A80 arasındaki tüm verileri STOKLAR sayfasına ilk boş satırdan itibaren kopyalamak istiyorum.Daha sonra yukarıdaki makro çalışıp A2:O80 arasındaki verileri silsin.(Yani ikisinide aynı makro ile yapabiyeyim)Eğer hemen yardımcı olabilirseniz dosyamı tamamlayacağım.Şimdiden teşekkürler

 

[Orion1]

Merhaba.
Aşağıdaki kodları denermisiniz.

Sub sayfalaraaktarA()
Sheets("satış").Select
For x = 2 To [a65536].End(3).Row
Set s2 = Sheets(Cells(x, 1).Text)
sira = s2.[a65536].End(3).Row + 1
For y = 1 To 14
s2.Cells(sira, y) = Cells(x, y + 1)
Next y
Next x
Sheets("SATIŞ").Select
[COLOR="Red"]Range("A2:A80").Copy
Sheets("STOKLAR").Select
Cells(Cells(65536, "A").End(xlUp).Row + 1, "A").PasteSpecial
Range("A1").Select
Sheets("SATIŞ").Select[/COLOR]
Range("A2:O80").ClearContents
10 MsgBox "CARİLERE AKTARILDI"
End Sub