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

• #53719 Talala senior tag Fferi50 #53718

  Új Válasz 2024-12-20 15:46:00 #53719

  Ú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

  

  Talala

  senior tag

  válasz Fferi50 #53718 üzenetére

  Igen azt tudom, hogy makró kell.
  Ez volt az egyetlen amivel eredmény is született és nem hibára futott a képlet végül.
  Viszont ez csak a kézzel színezett cellákat számolja, a feltételes formázással színezettet nem. A másik gond vele hogy ha változik a munkafüzet akkor nem frissül az eredmény.
  Function CountCcolor(range_data As Range, criteria As Range) As Long
  Dim datax As Range
  Dim xcolor As Long
  xcolor = criteria.Interior.ColorIndex
  For Each datax In range_data
  If datax.Interior.ColorIndex = xcolor Then
  CountCcolor = CountCcolor + 1
  End If
  Next datax
  End Function
  A hozzá tartozó képlet
  =CountCcolor(C11:G15;B4)

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