sayfaları başka bir excel çalışma sayfasına kopyalama

[ersoyalan]

Ustalar merhaba,

Yapmak istediğim işlem şu:

Aynı klasör içinde bulunan ayrı ayrı iki çalışma kitabım var.Bu kitablardan ismi çalışma olanın içindeki bütün sheet'leri anasayfam adlı çalışma kitabımın içindeki sheet'lerin yanına kopyalamak.

Bu işlem mümkünmüdür.

Syg,
E.ALAN

 

[Korhan Ayhan]

Selamlar,

"Ana Dosyam" isimli çalışmanıza boş bir modül ekleyin. Modül içine aşağıdaki kodu uygulayın ve çalıştırıp deneyiniz.

Option Explicit
 
Sub SAYFALARI_AKTAR()
    Dim DOSYA_YOLU As String
    Dim X As Integer
    DOSYA_YOLU = ThisWorkbook.Path & "\"
    Application.ScreenUpdating = False
    Workbooks.Open Filename:=DOSYA_YOLU & "Çalışma.xls"
    For X = 1 To Sheets.Count
    If Not SAYFA(Workbooks("Çalışma.xls").Sheets(X).Name) Then
    Workbooks("Çalışma.xls").Sheets(X).Copy After:=Workbooks("Ana Dosyam.xls").Sheets(Workbooks("Ana Dosyam.xls").Sheets.Count)
    End If
    Next
    Workbooks("Çalışma.xls").Close 0
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub
 
Function SAYFA(SAYFAADI As String) As Boolean
    On Error Resume Next
    SAYFA = CBool(Len(ThisWorkbook.Worksheets(SAYFAADI).Name) > 0)
End Function

 

[ersoyalan]

hocam aynı anda mesaj gönderdik..şimdi deniyorum.

 

[ersoyalan]

Hocam merhaba sonuç tam anlamıyla mükemmel çok çok teşekkürederim.beni ne büyük bir dertten kurtardığınızı bilemezsiniz.

Syg,
E.ALAN

 

[ersoyalan]

Hocam tekrar merhaba,

52 sayfalık bir dosyayı kopyalıyorum fakat ilk 34 sayfayı kopyalıyor.geri kalanı kopyalamak için ne yapmak gerekli.

E.ALAN

 

[ersoyalan]

Merhaba,

Korhan hocamın verdiği kodlar çalışıyor fakat ben 52 sayfalık bir çalışmayı kopyalamak istediğim zaman 34 sayfasını kopyalıyor.Bütün sayfaların kopyalanması için nasıl bir ekleme yapmak gerekiyor.Konu hakkında yardımcı olurmusunuz.

Syg,

E.ALAN

 

[Korhan Ayhan]

Selamlar,

255 sayfalık bir excel dosyasında denedim ve tüm sayfaları sorun çıkarmadan kopyaladı. Bilgisayarınızın performansıyla alakalı bir sorun yaşıyor olabilirsiniz.

 

[ersoyalan]

Hocam merhaba,

Hem evde hem şirkette denedim gene aynı socu alıyorum.Dosyada resimler var bundan kaynaklanabilirmi ?

 

[Korhan Ayhan]

Selamlar,

Resimlerin boyutları büyükse belki sorun çıkarabilir. Sorunun kaynağını bulmak için resimli dosya üzerinde denemek gerekir. İçinde resim olan dosya eklerseniz deneme şansımız olabilir.

 

[ersoyalan]

Hocam merhaba,

32 sayfayı kopyaladıktan sonra dosyayı kaydedip tekrar açıp denediğim zaman geri kalan sayfaları kopyalıyor.Az önceki denemelerim sonucunda işlem oldu.Nasıl olduğunu bende anlıyamadım fakat şu anda sorun yok.

İlgili ve alakanız için çok teşekkürederim.

Syg,
E.ALAN