sadece kopyala

[bdemir27]

merhabalar
ekli kod bir kitaptan başak bir kitaba kes koylala ile taşıma yapıyor ben kesmesini istemiyorum
sadece kopyala yapıştır ile taşımasını nasıl sağlayabilirim yardımlarınız için şimdiden tşk.

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

 

[janveljan]

Move ifadesi yerine Copy kullanacaksınız.

 

[bdemir27]

ilginize tşk.
yaptım o zamanda tane yazan yerde kaç adet ise o kadar kopyalıyor

 

[janveljan]

Sizin ne yapmak istediğinizi tam anlamamız lazım. Sırasıyla sayfaları diğer dosyaya kopyalamak istiyorsanız aşağıdaki kod da "basla" değişkeni yerine muhtemelen "x" değişkenini kullanmalısınız,

Workbooks(kitap).Sheets(basla).Copy yerine Workbooks(kitap).Sheets(x).Copy

yok eğer işlemi bir kere yapmak istiyorsanız döngü kullanmayın.

 

[bdemir27]

30 sayfalı bir kitabım var bu kitabtaki ilk 20 sayfayı başka bir kitaba taşımak istiyorum
ve bu birkere değil her ay olacak

söylediğiniz şekilde denediğimde test.xls dosyasındaki kitabı tane kadar kopy yaptı

ben a dosyasındaki 30 sayfanın ilk 20 sini test.xls dosyasına taşımak istiyorum

 

[janveljan]

Bir önceki açıklamamı doğru yapmışım ama kodu yanlı yazmışım kusura bakmayın. Sırasıyla sayfaları diğer dosyaya kopyalamak istiyorsanız aşağıdaki kod da "basla" değişkeni yerine "x" değişkenini kullanmalısınız, eğer başla değişkeni de kaçıncı sayfadan başalayacağını ifade ediyorsakod şöyle olacak.

For x = basla To tane
Workbooks(kitap).Sheets(x).Copy _
Before:=Workbooks("Test.xls").Sheets(1)
Next

 

[bdemir27]

Sub kopyala()
Dim kitap As String
Dim tane As Integer
Dim basla As Integer
basla = x
tane = 3
kitap = ActiveWorkbook.name
For x = basla To tane
Workbooks(kitap).Sheets(x).Copy _
Before:=Workbooks("Test.xls").Sheets(1)
Next
End Sub

hata verdi

 

[janveljan]

basla = x bu satırdan dolayı hata vermiştir.
siz basla değişkenini hangi sayfadan başlaması gerektiğini göstermek için kullanmıyor musunuz? örnek 2 nci sayfadan itibaren kopyalamak isterseniz basla=2 diyeceksiniz
yok eğer her zaman 1 nci sayfadan başlayacaksanız basla değişkenine gerek yok o zaman
For x = 1 To tane
olarak kullanacaksınız.

 

[bdemir27]

yardımlarınız için çok teşekürler
şimdi çalışıyor

birşey daha rica edebilirmiyim eğer mümkünse
oradaki test.xls dosyası yerine yenibir kitabı açtırıp öyle taşımasını sağlayabilirmiyiz

 

[janveljan]

bu satırları ekleyin

    Workbooks.Add
    hedef = ActiveWorkbook.Name

ilgili satırı değiştirin

     Before:=Workbooks(hedef).Sheets(1)

 

[bdemir27]

çok güzel oldu
ben 39 sayfa taşımak istiyorum 31 sayfayı taşıyor 32 sayfada hata veriyor
başka bir kitabta denedim sorunsuz çalıştı
acaba 32 sayfanın grafik içermesinden hata verebilirmi