Disable Button

[Pete]

Hi, can anyone help me with a problem using excel macros?

I have a macro that will take away numbers from a value
that is provided in Cell A1. The problem is that when the
cell reaches Zero i would like to stop the button from
working. Because at the moment all i get is A1 going into
minus figures and that makes the rest of the spreadsheet
go wrong.

Thanks for looking.

Pete

 

[Tom Ogilvy]

Private Sub CommandButton1_Click()
if isnumeric(Range("A1").Value) then
if Range("A1").Value -1 < 0 then
Range("A1").Value = 0
CommandButton1.Enabled = False
Else
Range("A1").Value = Range("A1").Value - 1
End if
End if
End Sub

 

[Mike Fogleman]

Pete,
Put a qualifier in the loop that subtracts the numbers so the macro will
end.
If Range ("A1").value=0 Then
Exit Sub

 

[Pete]

Thank you very much for your replys thats helped me alot.
Thanks!