Sayfalardaki verilerin tek bir sayfaya aktarılması

[egon77]

Merhaba,

Ek te örnek olarak verdiğim dosyada;
ocak tan aralık a kadar olan verilerin(50.satırda bitiyor) genel sayfasındaki başlıklara göre arada boş satır kalmayacak şekilde aktarılmasını istiyorum. yardımınız için şimdiden teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

yanıt

Sub verileriaktar()
Dim sat, s, i
s = 2
Sheets("Genel").[b2:d65536] = Empty
    For i = 1 To Sheets.Count
    For sat = 2 To 51
        If Sheets(i).Name <> Sheets("Genel").Name And Sheets(i).Cells(sat, "b") <> "" Then
            Sheets("Genel").Cells(s, "b") = Sheets(i).Cells(sat, "b").Value
            Sheets("Genel").Cells(s, "c") = Sheets(i).Cells(sat, "f").Value
            Sheets("Genel").Cells(s, "d") = Sheets(i).Cells(sat, "e").Value
            s = s + 1
        End If
    Next: Next
End Sub

 

[egon77]

Sub verileriaktar()
Dim sat, s, i
s = 2
Sheets("Genel").[b2:d65536] = Empty
    For i = 1 To Sheets.Count
    For sat = 2 To 51
        If Sheets(i).Name <> Sheets("Genel").Name And Sheets(i).Cells(sat, "b") <> "" Then
            Sheets("Genel").Cells(s, "b") = Sheets(i).Cells(sat, "b").Value
            Sheets("Genel").Cells(s, "c") = Sheets(i).Cells(sat, "f").Value
            Sheets("Genel").Cells(s, "d") = Sheets(i).Cells(sat, "e").Value
            s = s + 1
        End If
    Next: Next
End Sub

Harika ellerinize gözlerinize sağlık. Allah razı olsun.
Sevgili Atamız bu ülkeyi boş insanlara bırakmamış. Ne kadar övünç duyulsa azdır.