Help with VBA to have different function for a single macro butoon

[Akw47]

So my idea was based on the cell number. It would be the condition for the number of times my command button have to be clicked before the cell will get highlighted.
However I am unsure where to start, and have only come out with these


Private Sub CommandButton1_Click()

If ActiveSheet.Cells(3, 1) = 1 Then
rows(7).Interior.ColorIndex = 8
Else
End If

End Sub
Please assist me thanks

 

[Fluff]

Hi & welcome to MrExcel.
Is the button on a sheet, or on a userform?

 

[ranman256]

do you mean like the value of cell(x,y) then set color:

If ActiveSheet.Cells(3, 1) = 1 Then rows(7).Interior.ColorIndex = 8
If ActiveSheet.Cells(5, 1) = 2 Then rows(7).Interior.ColorIndex = 9

 

[Akw47]

Hi the button is on a userform. And I actually don't mean of changing the colour of the row, but the frequency of the button being pressed.

 

[Akw47]

Hi the button is on a userform. And I actually don't mean of changing the colour of the row, but the frequency of the button being pressed.

But my code, is just based on the sheet for the timebeing. will be on the userform in my futureworks

 

[Fluff]

How about

Private Sub CommandButton1_Click()
   With Me.CommandButton1
      .Tag = Val(.Tag) + 1
      If .Tag = ActiveSheet.Cells(3, 1).Value Then
         Rows(7).Interior.ColorIndex = 8
         .Tag = 0
      End If
   End With
End Sub

This will only work on a userform, it will not work for an activeX button on the sheet.

 

[Akw47]

wow it works. Thanks so much Will ask you again when i add more things into the code, because I actually planning to do it for inventory scanning. But just started with button clicking first. Thanks again

 

[Fluff]

You're welcome & thanks for the feedback.