içiçe makro

[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:R80").ClearContents

10 MsgBox "CARİLERE AKTARILDI"
End Sub
Yukarıdaki makroya aşağıdaki isteklerimi ekleyebilirmiyim ?
1-A2:R80 arasındaki bilgileri sayfalara aktarıp sildikten sonra B2:B80 arasındaki hücrelere bugünkü tarihi yazacak,,
2- J2 den J80 e kadar F ve G nin çarpımını
K2 den K80 e kadar F ve H nin çarpımını
L2 den L80 e kadar F ve I nın çarpımını yazacak
Yani sayfalar aktarıp bilgileri sildikten sonra tekrar tarih ve çarpımları yapacak.

 

[ahmet kabadayı]

Merhaba

örnek dosyanızı eklemenizi rica ederim