Move along one Cell???

[martyloo]

My code so far is.......

Sub Ace1_Click()
If IsEmpty(Range("B16")) Then
Range("B16") = 11
Else
Range("C16") = 11
End If
End Sub

All this does is if I press the relevant button "Ace1" it will display the value= 11 in cell B16, If i press this button again it will display the value=11 in cell C16, thats as far as my code goes.....

I would like it so if I press this button again it will display 11 in cell D16, if I press it again likewise cell E16, F16.

Not transferring the previous values. In the end if I click the button five times i want cells B16 C16 D16 E16 F16 all to have the value 11 in it.

Is this possible

 

[lynnnow]

Why go through five clicks to fill five cells? Why not use a single click to fill the five cells?

 

[martyloo]

because I dont want it to do that it needs to be stage by stage....

Do you have any ideas?

 

[shg]

Perhaps

Sub Ace1_Click()
    Cells(16, Columns.Count).End(xlToLeft).Offset(, 1).Value = 11
End Sub

 

[VoG]

Duplicate http://www.mrexcel.com/forum/showthread.php?t=498554

 

[Joe4]

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted:
http://www.mrexcel.com/forum/showthread.php?t=127080