Sayfa Aktarma

[vasifokur]

Sayfa 1 deki bilgileri diğer sayfalara aktarmak istiyorum. Şöyleki;Aktar dediğimde yeni bir sayfa açarak aktarmasını , daha sonraki aktarmaları da başka sayfalara yapmasını istiyorum. Mümkünse yardımcı olur musunuz ?

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub TEST()
[A1].CurrentRegion.Copy
Sheets.Add AFTER:=Sheets(Sheets.Count)
[A1].PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

 

[vasifokur]

Sn Ziya Bey; verdiğiniz yanıt için çok teşekkür ederim.