Use CommandButton to Cycle/ Loop color of cell

[noexcelguru]

The idea is to change the Interior.Color of a cell by using one CommandButton
I've tried different variants of MyPlage and Dim in fustration because i can't find any related works here or with google
And what's the difference between Cycle and Loop?

The closest I got;

Private Sub CommandButton17_Click()
Dim i As Integer
Case xlNone
Cell.Interior.ColorIndex = 3

Next i
Cell.Interior.ColorIndex = 6

Next i
Cell.Interior.ColorIndex = 4

Next i
Cell.Interior.ColorIndex = xlNone
End Selected
End Sub

 

[RichardMGreen]

Are you trying to loop through set colours by clicking the macro to change it?
If so, try this (untested):-

Private Sub CommandButton17_Click()
Select case cell.interior.colorindex
    case xlnone: Cell.Interior.ColorIndex = 3
    case 3: Cell.Interior.ColorIndex = 6
    case 6: Cell.Interior.ColorIndex = 4
    case 4: Cell.Interior.ColorIndex = xlnone
End Select
End Sub

 

[noexcelguru]

Thanks, RichardMGreen, but i get the message "object requried" and yellow marking at: Select case cell.interior.colorindex

 

[RichardMGreen]

OK, try replacing all the "cell"s with Activecell.

 

[noexcelguru]

SOLVED: Use CommandButton to Cycle/ Loop color of cell

It works. Thank you, Richard.

 

[RichardMGreen]

Re: SOLVED: Use CommandButton to Cycle/ Loop color of cell

No problem.