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

• #26193 Delila_1 veterán lokos19 #26192

  Új Válasz 2015-03-24 10:33:03 #26193

  Ú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

  

  Delila_1

  veterán

  válasz lokos19 #26192 üzenetére

  For Each cell In Range(ter)
  If cell.Interior.ColorIndex = 6 Then Cells(5, 5) =Cells(5, 5) +cell.value 'sárga
  If cell.Interior.ColorIndex = 5 Then Cells(5, 12) =Cells(5, 12) +cell.value 'kék
  If cell.Interior.ColorIndex = 3 Then Cells(5, 15) =Cells(5, 15) +cell.value 'piros
  Next

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