Vba ile Toplama

[bunyaming]

Merhaba,

Açıklamayı örnek içerisin de belirtim, belli aralıklar da toplama ve çıkarma işlemi gerekiyor

yardımlarınızı rica ediyorum

teşekkürler

 

[Orion1]

Sayı 27 den küçükse ne olacak?

 

[bunyaming]

Sayı 27 den küçükse ne olacak?

es geçecek hocam hiç bir şey yapmayacak

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Topla_Cikar()
    Dim Veri As Range, Son As Long, Toplam As Double
    
    Son = Cells(Rows.Count, 3).End(3).Row
    
    For Each Veri In Range("C2:C" & Son)
        If Veri.Interior.ColorIndex = -4142 Then
            Toplam = Toplam + Veri.Value
        End If
        If Veri.Interior.ColorIndex = 6 Then
            Veri.Value = Veri.Value - Toplam
            Toplam = 0
        End If
    Next

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub