Bir kitaptaki sayfalari baska bir kitaba tasimak

[evren_01]

Arkadaşlar makro hakkında aklıma takılan bir olay var yardımcı olursanız sevinirim
Acık olan sayfa 1 ve sayfa 2 başka bir sayfaya kopyalama yapmak istiyorum daha doğrusu çalışma kitabına

 

[ALPEN]

koddaki test.xls i gerekli isimle degistin
basla kacinci sayfadan baslanacagini
tane basladan sonra kac tane sayfa kopyalanacagini gosterir.

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

not: soru basliginizi seceken "makro hakkinda" gibi cok amator bir baslik secmektense, " bir kitaptaki sayfalari baska bir kitaba tasimak" gibi ilk okundugunda anlasilacak sorulardan secmek cok daha hizli cevap almanizi saglar. aklinizda bulunsun.
makro forumunda bir sorunun "makro hakkinda" olmamasi zaten imkansizdir.

 

[evren_01]

dostum biraz daha acık yazarsan sevinirim
başla ve tane hakkında

run time erorr 9 diye bir şey cıkıyor

 

[ALPEN]

daha acik.
asagidaki sayfa1, sayfa2, kitap1'i kendinize gore degistirin.
sayfa1, sayfa2 aktif kitaptaki sayfalar
kitap1 yaratilacak olan kitaptir.

Sub kopyala()
    Sheets(Array("Sayfa1", "Sayfa2")).Copy
    Windows("Kitap1").Activate
End Sub

 

[evren_01]

Sayın alpen verdiğiniz makro güzel yanlız bir sorunla karşılaştım

şöyle yazıyor subcript out of range

acaba hata nereden kaynaklanıyor sayfa adlarının türkçe karakter olmasından desem turkce karakterleri kaldırdım yine aynı hata veriyor aralarında boşluk var desem o da yok yardımlarınızı bekliyorum

 

[ALPEN]

diyelim ki kopyalamak istediginiz sayfalar "stok", "satis"

kodu asagidaki gibi degistirmeniz gerekiyor.

Sub kopyala() 
    Sheets(Array("stok", "satis")).Copy 
    Windows("Kitap1").Activate 
End Sub

 

[evren_01]

dostum


Sub kopyala()
Sheets(Array("stok", "personel")).Copy
Windows("arşiv1.xls").Activate
ActiveWorkbook.SaveAs "c:\Documents and Settings\user\My Documents\arşiv1.xls"
ActiveWorkbook.Close

End Sub

dostum bu makrodada yine o

subcript out of range

acayip hatayı veriyor bir de Run - time error yazıyor

 

[ALPEN]

bu kadar zor mu bir ornek dosya koyabilmek?