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

• #43866 Fferi50 Topikgazda Doki16 #43864

  Új Válasz 2020-05-06 13:49:20 #43866

  Ú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

  

  Fferi50

  Topikgazda

  válasz Doki16 #43864 üzenetére

  Szia!
  Bekapcsolod az autoszűrőt. A két oszlopra külön-külön csinálsz szín szerinti szűrést a sárga cellákra.
  A C oszlopba a képlet:
  Amikor az első oszlopot szűröd:
  =A2 (az első látható cella az A oszlopban)
  Amikor a második oszlopot szűröd:
  =B3 (az első látható cella a B oszlopban)
  A képletet végighúzod az érvényes szűrő alatt a látható cellákon.
  Utána megszüntetheted a szűrést.

  Üdv.

• #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