Macroda düzenleme

[corsan75]

Sub Birleştir()
Application.ScreenUpdating = False
For i = 1 To 30
son = Sheets("Toplam").[A65536].End(3).Row
Sheets("Sayfa" & i).Range("A13:E360").Copy Sheets("Toplam").Range("A" & son & ":E" & son)
Cells.EntireColumn.AutoFit
Next
Application.ScreenUpdating = True
End Sub



Değerli hocalarım bu makroyla çalışma kitabımın sayfalarını altalta alabiliyorum ama dosyamdaki diğer kitapların sayfa isimleri sayfa 1 sayfa 2 sayfa 3 diye değil hesaphareketleri(1),hesaphareketleri(2),hesaphareketleri(3) diye geçiyor ya sayfa isimlerini değiştirmem gerekiyor bunun için ki buda çok zaman alıcı yada macroda düzenleme yaparak Sayfa isimli değil hesaphareketi isimli sayfaları almam gerekiyor ne yapabilirim acil yardımcı olursanız sevinirim.

 

[corsan75]

Yardımınıza ihtiyacım varr

 

[corsan75]

yokmu bu konuda yardım edecek birileri acil lütfen

 

[corsan75]

acil lütfen

 

[corsan75]

Yardımlarınız için sağolun

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Birleştir()
    Application.ScreenUpdating = False
    
    Sheets("Toplam").Range("A:E").ClearContents
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "Toplam" Then
            Son = Sheets("Toplam").Range("A65536").End(3).Row + 1
            Sayfa.Range("A13:E360").Copy Sheets("Toplam").Range("A" & Son & ":E" & Son)
            Cells.EntireColumn.AutoFit
        End If
    Next
    
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[corsan75]

Aşağıdaki kodu deneyiniz.

Sub Birleştir()
    Application.ScreenUpdating = False
    
    Sheets("Toplam").Range("A:E").ClearContents
    
    For Each Sayfa In ThisWorkbook.Worksheets
        If Sayfa.Name <> "Toplam" Then
            Son = Sheets("Toplam").Range("A65536").End(3).Row + 1
            Sayfa.Range("A13:E360").Copy Sheets("Toplam").Range("A" & Son & ":E" & Son)
            Cells.EntireColumn.AutoFit
        End If
    Next
    
    Application.ScreenUpdating = True
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Hocam çok sağolun.Birşey daha sorsam elimde 50 kişiye ait tek sayfalık kişisel bilgilerin olduğu 50 adet çalışma kitabını makrosuz nasıl tek çalışma kitabının sayfaları haline getirebilirim.hayırlı geceler dilerim.

 

[Korhan Ayhan]

Bu işlemi makrosuz yapabilirsiniz. Fakat zahmetli olur.

İzleyeceğiniz yol;

Boş bir kitap oluşturun.
Bu kitap açıkken sırayla verileri almak istediğiniz dosyaları tek tek açın.
Açtığınız dosyadaki sayfa ismi üzerinde sağ klik yapın.
Açılan menüden TAŞI VE KOPYALA seçeneğini seçin.
Seçtiğiniz sayfayı taşımak istediğiniz diğer kitabı açılen pencereden seçin.
SONA TAŞI ve KOPYA OLUŞTUR seçeneklerini seçip işlemi tamamlayın.
Bu işlemi diğer 49 kitap içinde tek tek yapın.

Böylece 50 kitabı tek kitapta toplamış olursunuz.

 

[corsan75]

Bu işlemi makrosuz yapabilirsiniz. Fakat zahmetli olur.

İzleyeceğiniz yol;

Boş bir kitap oluşturun.
Bu kitap açıkken sırayla verileri almak istediğiniz dosyaları tek tek açın.
Açtığınız dosyadaki sayfa ismi üzerinde sağ klik yapın.
Açılan menüden TAŞI VE KOPYALA seçeneğini seçin.
Seçtiğiniz sayfayı taşımak istediğiniz diğer kitabı açılen pencereden seçin.
SONA TAŞI ve KOPYA OLUŞTUR seçeneklerini seçip işlemi tamamlayın.
Bu işlemi diğer 49 kitap içinde tek tek yapın.

Böylece 50 kitabı tek kitapta toplamış olursunuz.

sağolun hocam çok teşekkürler.ama 49 kitap bayağıda meseleymiş ama kolay bir yolu daha yok herhalde tek seçeneğim bu değil mi?