Hello Friends and educators!

  I am a newbie to Vba Excel.Is there anyone out there able to guide me on this?
  I use a CommandButton (Active X Control)to change data on cell
A1 . The 1st time I click the button, cell A1 displays "200"; and changes its button caption to , say, "Link".
     The 2nd time I click again cell A1 displays "300", and changes its button caption to,say, " More".
    The 3rd time I click again cell A1 displays "400", and changes the button caption to "Enough".
    The 4th time I click again cell A1 would display "Exceed Limit", and changes the button caption to "Back"

   Appreciate all help and guidance.
:)
CHIN

Hi Chin,

two questions,

1 Before you click the button what is in cell A1?
2 what do you want to happen after the user clicks the button a fifth time?

Cheers

Matthew

Here is some code to do what it is I think you want...

in the VB editor open the code page behind Sheet1 (of whichever sheet contains the commandbutton), remember this code page is not an inserted module but within the Excel object shown as sheet1.

Ensure the button on sheet1 is called CommandButton1, paste this code in the above code page...

Private Sub CommandButton1_Click()
    Select Case Range("a1").Value
        Case ""
            Range("a1").Value = 200
            CommandButton1.Caption = "Link"
        Case 200
            Range("a1").Value = 300
            CommandButton1.Caption = "More"
        Case 300
            Range("a1").Value = 400
            CommandButton1.Caption = "Enough"
        Case 400
            Range("a1").Value = "Exceed Limit"
            CommandButton1.Caption = "Back"
        Case Else
            Range("a1").Value = ""
            CommandButton1.Caption = "Link"
    End Select
End Sub



cheers

Matthew

Hi, Matthew,

          Thanks for your effort. Actually, I would begin with an empty cell ("A1").
          When the last click(the 5th one ) is executed, it should go back to the original position before I click the first time.
          I shall test your codes if ever you have any ideas to go about it and see whether it works on my excel 2000.
         You are just wonderful and discerning.

CHIN

nice lips..

;)

M