Toplam aldırma

[excelmaster]

Sistemden sayfa 1'deki gibi satır sayıları değişen bir rapor alıyorum.

-B65536 satırından yukarı doğru çıkıldığında ilk dolu hücrenin (B11) bir üstündeki satır (10.satır), en sağdaki dolu satırdan bir önceki satır (G kolonu) ve 1.satır arasında kalan kısmı (B1:G10) yeni bir sayfa ekleyip buraya kopyalayacağım.

-Bu yeni sayfada B,C,D,E, sütunlarının toplamını aynı kolonlardaki ilk boş hücreye (hepsi aynı satırda olmak üzere) yazdırmak istiyorum. Burada özellikle istediğim şey; toplam aldırırken örneğin B11=TOPLA(B2:B10) şeklinde bir toplama yapmak değil, B sütunu için 2.satırdan başlayarak (B2) son dolu hücreye kadar (B10) ilk boş hücrede (B11)'de toplam aldırmaktır.

Makro çalıştıktan sonra Sayfa1'deki rapor Sayfa 2'deki gibi son halini almış olmalı.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip çalıştırın. Makro her çalıştığında yeni bir sayfa ekleyerek verileri aktaracaktır.

Option Explicit
 
Sub AKTAR_TOPLAM_AL()
    Dim SY As Worksheet, SATIR As Long
 
    Set SY = Sheets.Add
    ActiveSheet.Move , Sheets(Worksheets.Count)
    With Sheets("Sayfa1")
        .Range("B1:G" & .Cells(65536, 2).End(3).Row - 1).Copy SY.Range("A1")
    End With
 
    SY.Cells.EntireColumn.AutoFit
 
    SATIR = SY.Range("A65536").End(3).Row + 1
 
    With SY.Range(Cells(SATIR, "B"), Cells(SATIR, "E"))
        .Interior.ColorIndex = 6
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
        .Formula = "=SUM(B2:B" & SATIR - 1 & ")"
    End With
 
    Set SY = Nothing
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[excelmaster]

Makro hata (400) veriyor.

En alttaki satır (örnekteki 11.satır) kopyalanmayacaktı.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. Ayrıca örnek dosya ekledim. İncelermisiniz.

 

[excelmaster]

Eyvallah, aynen istediğim gibi olmuş.