Birden çok sayfaya kayıt

[mt621]

giriş sayfasına yaptığım giriş,kalıcı sayfasında sıralanarak devam etsin..

 

[bedersu]

Merhaba,
Şu kodları dener misiniz?

Set a = Sheets("YAZDIRILACAK SAYFA")
Set b = Sheets("KALICI SAYFA")
iii = WorksheetFunction.CountA(b.Range("B:B")) + 1
For rw = 3 To WorksheetFunction.CountA(a.Range("A:A")) + 1
For clm = 2 To 12
b.Cells((rw - 2) + iii, clm) = a.Cells(rw, clm)
Next clm
Next rw
a.PrintOut copies:=1
sf = Sheets.Count
a.Copy After:=Sheets(sf)
ActiveSheet.Name = Date
a.Range("B3:L41").ClearContents

 

[bedersu]

..........................