sayfalardan veri almak

[SERKANYAMAN]

EXCEL'de adı iki haneli olan çalışma sayfalarından C24:F38 arasındaki verileri alarak döküm isimli çalışma sayfasında birleştirecek sonrada a sutünuna göre sıraya koyacak bir makro yazabilirmiyiz. ???

şimdiden teşekkürler

 

[mancubus]

sitede benzer konularda yüzlerce örnek vardır mutlaka.
araştırma yapar ve örnekleri incelersek kişisel geliişim açısından sonsuz yarar sağlayacaktır.

Sub BelliSayfalardanVeriBirlestir()

Dim cs As Worksheet

Worksheets("döküm").Cells.Clear 'kopyalama öncesi varsa verileri silmek için

For Each cs In Worksheets
    If cs.Name <> "döküm" And Len(cs.Name) = 2 Then
        cs.Range("C24:F38").Copy _
            Worksheets("döküm").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End If
Next

Worksheets("döküm").Activate
Rows(1).Delete
Cells(1, 1).CurrentRegion.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess

End Sub