DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kopyala()
Dim kitap As String
Dim tane As Integer
Dim basla As Integer
basla = 1
tane = 2
kitap = ActiveWorkbook.Name
For x = 1 To tane
Workbooks(kitap).Sheets(basla).Move _
Before:=Workbooks("Test.xls").Sheets(1)
Next
End Sub
Sub kopyala()
Sheets(Array("Sayfa1", "Sayfa2")).Copy
Windows("Kitap1").Activate
End Sub
acayip hatayı veriyor bir de Run - time error yazıyorsubcript out of range