MS Excel

A co takto?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim Radek As Long
Radek = ActiveCell.Row

Cells.Interior.ColorIndex = xlNone

Cells(Radek, 2).Interior.ColorIndex = 3
Cells(Radek, 6).Interior.ColorIndex = 3

End Subcitovat

Díííky. Toakhle jsem to přesně potřeboval.citovat

Jde o to, že tato informace je fuč. Musí se někde zálohovat.
Pak teda
For Sloupec = 1 To 8 Step 1
if něco = true then
Cells(Radek, Sloupec).Interior.ColorIndex = 3
else
'jestli se jedná o jednu konkrétní buňku
Cells(Radek, Sloupec).Interior.ColorIndex = 4
'nebo celý řádek je zelený s tím, že v prvním sloupci
'se barva nemění
Cells(Radek, Sloupec).Interior.Color = Cells(radek, 1).Interior.Color
'nebo celý sloupec je zelený s tím, že v prvním řádku
'se barva nemění
Cells(Radek, Sloupec).Interior.Color = Cells(1, Sloupec).Interior.Color
'nebo lze zálohovat celé schéma třeba o 10 sloupců vpravo
Cells(Radek, Sloupec).Interior.Color = Cells(Radek, Sloupec + 10).Interior.Color
end if
Next Sloupec

Ale zamysli se jestli není vhodnější použít podmíněný formát?!citovat