Aynı Numaralı Satırları Toplayarak Fazla satırları sılme

[dragonflyvtr]

Merhaba
A1 ile Z10000 arasında veri olan bir tabloda F1 ile F10000 arasında fatura numaraları mevcut bu kolonda olan numaraların aynı olması durumunda P kolonu ve r kolonunu tek satırda toplayıp toplama dahil edilenleri silmesi hakkına formül yada kod mümkün mü ?
aslında bir nevi alttoplamı hızlı yaparak alt toplam satırlarının olmadan hali.

 

[YUSUF44]

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz. Denemeden önce verilerinizi yedeklemeyi unutmayınız. Verilerinizin çokluğuna göre makronun çalışmayı bitirmesi uzun sürebilir:

Sub faturatoplam()
ilk = Cells(Rows.Count, "F").End(3).Row
For i = 1 To ilk
    If WorksheetFunction.CountIf(Range("F" & i + 1 & ":F" & ilk), Cells(i, "F")) > 0 Then
        eski = Cells(Rows.Count, "F").End(3).Row
        For j = eski To i + 1 Step -1
            If Cells(j, "F") = Cells(i, "F") Then
                Cells(i, "P") = Cells(i, "P") + Cells(j, "P")
                Cells(i, "R") = Cells(i, "R") + Cells(j, "R")
                Rows(j).Delete
                ilk = ilk - 1
            End If
        Next
    End If
Next
End Sub

Not: Satır/Sütun/Hücrede Silme/Ekleme işlemleri formülle olmaz. Formüllerle sadece verilerde ve biçimde değişiklik yapılabilir.