Birden Çok Çalışma Sayfasını Başka bir Çalışma Sayfasına Aktarma

[apparatebau]

Tekrar Merhaba Arkadaşlar;

Bana bir konuda daha yardımcı olursanız sevinirim.
Ben yılın 12 ayında her bir ay için bir çalışma sayfası oluşturmuştum.Yani toplam 12 adet çalışma sayfası var bunları tek bir çalışma sayfasına aktarmak istiyorum.Bu vereceğim rakamlar 2009 için geçerli 2010 yılında da yine ayrı ayrı her bir ay için çalışma sayfası oluşturacağım bunlarıda aynı şekilde başka bir çalışma sayfasına istediğim zaman aktarmak istiyorum.Ekte excel de hazırlamış olduğum bir öreneği sunuyorum.Sİtede çok sayıda aktarma ile ilgili örnekleri inceledim üzerinde çalıştım ama bir türlü beceremedi.Yardım ederseniz çok sevinirim.Saygılar

 

[mustafaine1]

pivot table kullanmanizi oneririm..

 

[apparatebau]

pivot table kullanmanizi oneririm..

Sn.musatafaine

O dediğiniz nedir? Açıkcası nedir nasıl kullanılır hiç bir fikrim yok.

 

[apparatebau]

Arkadaşlar bu konuda yardım edecek birilerini arıyorum.

 

[modoste]

bende buna benzer soru sormuştum arkadaşım
sayın hocalarımdan bunun formülle yapılamayacağı yanıtını almıştım manule yazmak gerekiyo ki sende formülasyon yapıcaksan tek yolu bu galiba

 

[Ömer]

Merhaba,

Dosyanıza ozet adında bir sayfa oluşturun. Bu sayfada satır başlıklarını yazdıktan sonra. Aşağıdaki kodları module kopyalayın ve çalıştırın.
Örnek olması açısından bir dosya ekliyorum.

Dosyanızda tek bir sayfa ve açıklama olmadığı için dosyanızın üzerinde işlem yapmadım. Dosyanıza uyarlayamazsanız daha detaylı ve istediğinize yakın bir dosya ekleyin.

Option Explicit
 
Sub SayfaDagit()
Dim sayfa As Worksheet, sat, sat1 As Long, sut As Integer, S1 As Worksheet
Set S1 = Sheets("ozet")
Application.ScreenUpdating = False
S1.Range("A2:C65536").ClearContents
sut = [IV1].End(1).Column
    For Each sayfa In Sheets
        If sayfa.Name <> "ozet" Then
            sat = sayfa.[A65536].End(3).Row
            sat1 = S1.[A65536].End(3).Row + 1
            sayfa.Range(sayfa.Cells(2, "A"), sayfa.Cells(sat, sut)) _
            .Copy S1.Range("A" & sat1)
        End If
    Next sayfa
Application.ScreenUpdating = True
Set S1 = Nothing
End Sub

.

 

[Erdem Akdemir]

Uzunca bir yoluda sırayla onları kopyalanız

Pivot table (özet tablo) hakkında biraz araştırma yapın

 

[apparatebau]

Merhaba,

Dosyanıza ozet adında bir sayfa oluşturun. Bu sayfada satır başlıklarını yazdıktan sonra. Aşağıdaki kodları module kopyalayın ve çalıştırın.
Örnek olması açısından bir dosya ekliyorum.

Dosyanızda tek bir sayfa ve açıklama olmadığı için dosyanızın üzerinde işlem yapmadım. Dosyanıza uyarlayamazsanız daha detaylı ve istediğinize yakın bir dosya ekleyin.

Option Explicit
 
Sub SayfaDagit()
Dim sayfa As Worksheet, sat, sat1 As Long, sut As Integer, S1 As Worksheet
Set S1 = Sheets("ozet")
Application.ScreenUpdating = False
S1.Range("A2:C65536").ClearContents
sut = [IV1].End(1).Column
    For Each sayfa In Sheets
        If sayfa.Name <> "ozet" Then
            sat = sayfa.[A65536].End(3).Row
            sat1 = S1.[A65536].End(3).Row + 1
            sayfa.Range(sayfa.Cells(2, "A"), sayfa.Cells(sat, sut)) _
            .Copy S1.Range("A" & sat1)
        End If
    Next sayfa
Application.ScreenUpdating = True
Set S1 = Nothing
End Sub

.

Sn.Ömer

Tekrar ekliyorum Tamda bu şekilde yapmak istiyorum sizin yaptığınız özet deki gibi.

 

[Ömer]

Sn.Ömer

Tekrar ekliyorum Tamda bu şekilde yapmak istiyorum sizin yaptığınız özet deki gibi.

Bu şekilde deneyin.

Option Explicit
 
Sub SayfaDagit()
Dim sayfa, S1 As Worksheet, sat, sat1 As Long, sut As Integer
Set S1 = Sheets("GENEL")
Application.ScreenUpdating = False
S1.Range("A4:C65536").ClearContents
sut = [IV3].End(1).Column
    For Each sayfa In Sheets
        If sayfa.Name <> "GENEL" Then
            sat = sayfa.[A65536].End(3).Row
            sat1 = S1.[A65536].End(3).Row + 1
            sayfa.Range(sayfa.Cells(3, "A"), sayfa.Cells(sat, sut)) _
            .Copy S1.Range("A" & sat1)
        End If
    Next sayfa
Application.ScreenUpdating = True
Set S1 = Nothing
End Sub

.