Új hozzászólás Aktív témák

• #43865 Guitar14 senior tag Doki16 #43864

  Új Válasz 2020-05-06 13:27:50 #43865

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Guitar14

  senior tag

  válasz Doki16 #43864 üzenetére

  Helló!
  Nézet fülben kattints a makrókra, csinálj újat és szerkeszd aztán töröld ki üresre és illeszd be ezt:
  Function SumByColor(CellColor As Range, rRange As Range)
'Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
  If cl.Interior.ColorIndex = ColIndex Then
    cSum = WorksheetFunction.Sum(cl, cSum)
End If
Next cl
SumByColor = cSum
End Function

  Mentsed le makróbarát munkafüzetként valahová, azt nyisd meg és írd be így a képletet:
  
  (megpróbáltam replikálni a táblád )
  Lényeg, hogy ami nekem kék színnel van arra egy olyat rögzíts $ jelekkel előtte ami olyan színü amilyen adat kell tehát egy sárga cellát jelölj meg vele, aztán húzd le a képletet és kész.

Új hozzászólás Aktív témák