Çalışma sayfalarını tek sayfada listelemek

[obi-wan]

Dekont adındaki dosyada farklı satıcılara düzenlemiş bir tür ön fatura bilgileri vardır. Sayfa 1-6..... diye çalışma sayfaları sonundaki "LİSTE" sayfasında listelenmesi mümkün müdür ?

 

[usubaykan]

Merhaba,

Liste sayfanızın kod bölümüne aşağıdaki kodu denermisiniz. Sayfa aktif hale geldiğinde makro çalışacaktır.

Private Sub Worksheet_Activate()
Dim U As Long, Satır As Long
Application.ScreenUpdating = False
Sheets("LİSTE").Range("B4:D" & Range("D65536").End(3).Row + 1).ClearContents
    For U = 1 To Worksheets.Count - 1
        Sheets(U).Range("B22").Copy
        Satır = Sheets("LİSTE").Range("B65536").End(3).Row
        Sheets("LİSTE").Cells(Satır + 1, "B").PasteSpecial Paste:=xlPasteValues
        Sheets(U).Range("E19").Copy
        Sheets("LİSTE").Cells(Satır + 1, "C").PasteSpecial Paste:=xlPasteValues
        Sheets(U).Range("E28").Copy
        Sheets("LİSTE").Cells(Satır + 1, "D").PasteSpecial Paste:=xlPasteValues
    Next
MsgBox "İşleminiz tamamlanmıştır !", vbInformation
Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

Selamlar,

Eğer sayfa isimleriniz bahsettiğiniz gibiyse alternatif olarak bu işlemi formüllede rahatlıkla yapabilirsiniz.

LİSTE sayfasında;

B4 hücresine aşağıdaki formülü uygulayın.

=EĞER(EHATALIYSA(DOLAYLI("'Sayfa-"&SATIR(A1)&"'!B22"));"";DOLAYLI("'Sayfa-"&SATIR(A1)&"'!B22"))

C4 hücresine aşağıdaki formülü uygulayın.

=EĞER(EHATALIYSA(DOLAYLI("'Sayfa-"&SATIR(A1)&"'!E19"));"";DOLAYLI("'Sayfa-"&SATIR(A1)&"'!E19"))

D4 hücresine aşağıdaki formülü uygulayın.

=EĞER(EHATALIYSA(DOLAYLI("'Sayfa-"&SATIR(A1)&"'!E28"));"";DOLAYLI("'Sayfa-"&SATIR(A1)&"'!E28"))

Bu formülleri sayfa sayınız kadar aşağıdaki boş satırlarada uygulayın.