seštevanje v označenih celicah

[slavkom12]

Rad bi, da mi makro na delovne listu v na nekem območju sešteje vse
vrednosti, ki so v rdečih celicah, vse v rumenih ... in jih izpiše v neko celico.

Hvala za pomoč

[admin]

Pozdravljeni,

Spodaj je makro, ki vam ed izbranimi celicami sešteje celice z izbrano barvo. Barva je določena v Excelovi paleti parv z indeksom. Indeks določene barve najlažje najdete tako, da vključite snemanje makra in celico pobarvate z izbrano barvo, nato pa pogledate indeks v makru, ki ga je excel napisal.

Makro je torej sledeč:

Koda: Izberi vse

Sub SestejBarvneCelice()
  Dim Celica
  Dim Sestevek
  
  Sestevek = 0#
  For Each Celica In Selection.Cells
    ' tu vpišete indeks barve (namesto 45)
    If (Celica.Interior.ColorIndex = 45) Then
      Sestevek = Sestevek + Celica.value
    End If
  Next
  
  MsgBox "Seštevek je " & Sestevek
End Sub