Sub zmiana_kolorkow()
If Cells(5, 1) < 0 Then
Cells(5, 1).Font.ColorIndex = 10
Else
If Cells(5, 1) = 0 Then
Cells(5, 1).Font.ColorIndex = 1
Else
If Cells(5, 1) > 0 Then
Cells(5, 1).Font.ColorIndex = 3
End If
End If
End If
End Sub