verileri özet tabloya aktarılması

[endymion]

çok sayfalı bir çalışma kitabım var, bu sebeple farklı sayfalardaki aynı başlıklı verilerin özet sayfaya altalta sıralanmasını nasıl sağlarım. Örnek dosya ekte şimdiden teşekkürler. ( veriler bir sıra izlemediği için kopyala yapıştır seçeneği biraz zahmetli oluyor, sayfalarca veri olduğunu düşünün) Şimdiden teşekkürler.

 

[Ömer]

çok sayfalı bir çalışma kitabım var, bu sebeple farklı sayfalardaki aynı başlıklı verilerin özet sayfaya altalta sıralanmasını nasıl sağlarım. Örnek dosya ekte şimdiden teşekkürler. ( veriler bir sıra izlemediği için kopyala yapıştır seçeneği biraz zahmetli oluyor, sayfalarca veri olduğunu düşünün) Şimdiden teşekkürler.

Merhaba,

Module kopyalayıp çalıştırınız. Detaylı deneme yapmadım, hatalı aktarım varsa detaylı açıklarsanız sevinirim.

Sub SayfalarıBirlestir()
 
    Dim So As Worksheet, sons As Long, sono As Long
    Dim i As Integer, j As Integer, c As Range
 
    Set So = Sheets("özet")
 
    Application.ScreenUpdating = False
 
    For i = 1 To Worksheets.Count
        With Sheets(i)
            If .Name <> "özet" Then
                sons = .Cells(Rows.Count, "A").End(xlUp).Row
                sono = So.Cells(Rows.Count, "A").End(xlUp).Row + 1
                For j = 1 To So.Cells(1, Columns.Count).End(xlToLeft).Column
                    Set c = .Rows(1).Find(Cells(1, j), , xlValues, xlWhole)
                    If Not c Is Nothing Then
                        .Range(.Cells(2, c.Column), .Cells(sons, c.Column)). _
                        Copy So.Cells(sono, j)
                    End If
                Next j
            End If
        End With
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

.

 

[endymion]

Usta çok teşekkürler, kesinlikle çok işime yarayacak bir kod olmuş. Sadece eğer bu başlıklar 1. satırda değilde 2. veya üçüncü satırdaysa kodun neresinde değişiklik yapmam gerektiğini gösterirseniz süper olacak.

 

[polis-53]

kodun bu bölümdeki Row + dan sonra gelen rakamı değiştirip yapabilirsin

sono = So.Cells(Rows.Count, "A").End(xlUp).Row + 3

 

[Merhum İdris SERDAR]

.

Bir de burada 32 No'lu mesaja eklediğim dosyayı inceleyin.

http://www.excel.web.tr/f60/zet-tablolar-p-vot-table-t3036.html


.

 

[endymion]

Son olarak veriler ne kadar kodu çalıştırırsam alt alta ekleniyor. Sadece yeni veri eklediğimde tablonun güncellenmesini nasıl sağlayacağım. Her veri eklediğimde özet sayfasını silmem mi gerekiyor?

 

[Ömer]

Eğer silinecekse kodlara ilave edeyim.

.