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

• #26192 lokos19 csendes tag

  Új Válasz 2015-03-24 10:27:39 #26192

  Ú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

  

  lokos19

  csendes tag

  Sziasztok!

  kellene egy kis segítség Excelhez, meg kellene írni a programot úgy, hogy ne csak 6-os színre sárgára nézze a cellákat hanem 5 kék színre is és azt egy másik cellában összegezze. mondjuk a Cells(5, 12)
  Sub szines()
  Dim ter As String
  Dim cell As Object
  Dim össz As Variant
  ter = "A14:V60"

  For Each cell In Range(ter)
  If cell.Interior.ColorIndex = 6 Then össz = össz + cell.Value
  Next
  Cells(5, 5) = össz

  End Sub

  THX!

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