Bir Kitaptaki Sayfaları Başka Kitaba Taşıma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub kopya()
Dim wb As String
Dim adet As Integer
Dim st As Integer
st = 1
adet = 2
wb = ActiveWorkbook.Name
For x = 1 To adet
Workbooks(wb).Sheets(st).Move Before:=Workbooks("ED.xlsx").Sheets(1)
Next
End SubAçıklama
Çalışma kitaplarınızı hızlıca çoğaltmak için oldukça faydalı bir kod örneğidir.Faydalanılması temennisiyle