sayfa toplamlarını alma

[h.aykol_]

arkadaşlar eklediğim excel sayfasında örnek verdim.sayfalardaki verileri başka bir sayfaya listeleyecek.sayfayı ben ekledikçe sayfayı kendisi bulacak.makro ile yapılabilirmi.?

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un kod bölümüne kopyalayıp dener misiniz?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "İCMAL" Then Exit Sub
On Error GoTo Son
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
Set Bul = Sheets("İCMAL").[A:A].Find(ActiveSheet.Name)
If Bul Is Nothing Then
    Satır = Sheets("İCMAL").[A65536].End(3).Row + 1
    Sheets("İCMAL").Cells(Satır, "A") = ActiveSheet.Name
Else
    Satır = Bul.Row
End If
Son = [A65536].End(3).Row
Sheets("İCMAL").Cells(Satır, "B") = Range("B" & Son)
Sheets("İCMAL").Cells(Satır, "C") = Range("C" & Son)
Sheets("İCMAL").Cells(Satır, "D") = Range("D" & Son)
Sheets("İCMAL").Cells(Satır, "E") = Range("E" & Son)
Son:
End Sub

 

[h.aykol_]

üstat çok ama çok teşekkür ederim. inan bir işime yarayacak.süper.sağol