Verileri kısa raporlama

[acetinnster]

Arkadaşlar ek teki dosya da yardımcı olabilirmisiniz

Açıklama içindedir herkese teşekkür ederim.

 

[çıtır]

Konuyu makro bölümünde açmışsınız ben formülle bir dosya hazırladım.İşinizi yarar mı bilmem. Mutlaka makromu olsun istersiniz?

 

[askm]

Aşağıdaki şekilde bir deneyin.

Sub askm()
Dim son As Long
son = Range("M" & Rows.Count).End(3).Row
For i = 3 To son
    If WorksheetFunction.CountIf(Range("M3:M" & i), Range("M" & i)) = 1 Then
        Range("N" & i) = WorksheetFunction.SumIf(Range("M3:M" & son), Range("M" & i), Range("N3:N" & son))
    Else
        Rows(i).Delete
    End If
Next i
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[acetinnster]

Değerli hocalarım verdiğiniz değerli bilgiler için çok teşekkürler her zaman ki gibi çözüm ürettiniz.