Nějak nechápu jak jednoduše to začlenit do programu, potřebuju toto:If Cells(1, 1).Interior.Color = RGB(255, 0, 0) ThenUserForm1CommandButton1.BackColor = RGB(255, 0, 0)End IfIf Cells(2, 1).Interior.Color = RGB(255, 0, 0) ThenUserForm1CommandButton2.BackColor = RGB(255, 0, 0)End IfIf Cells(3, 1).Interior.Color = RGB(255, 0, 0) ThenUserForm1CommandButton3.BackColor = RGB(255, 0, 0)End IfIf Cells(4, 1).Interior.Color = RGB(255, 0, 0) ThenUserForm1CommandButton4.BackColor = RGB(255, 0, 0)End IfNahradit tímto:For i = 1 To Prazdny_radektlacitko = "UserForm1.CommandButton" & pozice & ".BackColor" 'vytvoření řetězceIf Cells(pozice, 1).Interior.Color = RGB(255, 0, 0) Then 'podmínka když je buňka červenátlacitko = RGB(255, 0, 0) ' tkačítko bude také červenéEnd Ifpozice = pozice + 1Next i
