create a button when pressed it will +1 to another field
Private Sub Commandbutton1_Click()
Dim myRange as Range
Dim myNumber as Long
Set myRange = ActiveSheet.Range("a5") '<== change
myNumber = myRange.Value
myNumber = myNumber + 1
myRange.Value = myNumber
End Sub
susan
On Nov 24, 9:25*am, mswisher
wrote:
Customer Survey- When a button or cell is pressed once it will add 1 to
another existing field and every time it is pressed it will add another 1.. *
|