Hi all, this is probably so easy but it is eluding me !!

I need to make an edit button that inserts a 1 in A1 and the caption
then changes to "DONE" and when clicked again it removes the 1 from A1
and the caption then changes back to "EDIT"


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Done" Then
CommandButton1.Caption = "Edit"
Range("A1") = ""
Else
CommandButton1.Caption = "Done"
Range("A1") = 1
End If
End Sub

--

Regards,
Nigel




"Les Stout" wrote in message
...
Hi all, this is probably so easy but it is eluding me !!

I need to make an edit button that inserts a 1 in A1 and the caption
then changes to "DONE" and when clicked again it removes the 1 from A1
and the caption then changes back to "EDIT"


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

Maybe this?

Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "DONE" Then
ActiveSheet.Range("A1").Value = ""
.Caption = "EDIT"
Else
ActiveSheet.Range("A1").Value = "1"
.Caption = "DONE"
End If
End With
End Sub

Rick



"Les Stout" wrote in message
...
Hi all, this is probably so easy but it is eluding me !!

I need to make an edit button that inserts a 1 in A1 and the caption
then changes to "DONE" and when clicked again it removes the 1 from A1
and the caption then changes back to "EDIT"


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

les,

I'm not sure what you mean by an 'Edit Button' so this is a 'Toggle Button'
from the Control toolbox.

Set the caption to 'Edit' right click the button, view code and paste this in

Private Sub ToggleButton1_Click()
With ToggleButton1
If .Caption = "Edit" Then
Range("A1").Value = 1
.Caption = "Done"
Else
Range("A1").Value = ""
.Caption = "Edit"
End If
End With
End Sub


Mike

"Les Stout" wrote:

Hi all, this is probably so easy but it is eluding me !!

I need to make an edit button that inserts a 1 in A1 and the caption
then changes to "DONE" and when clicked again it removes the 1 from A1
and the caption then changes back to "EDIT"


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

Thanks so much for the replies, all great
--
Les


"Mike H" wrote:

les,

I'm not sure what you mean by an 'Edit Button' so this is a 'Toggle Button'
from the Control toolbox.

Set the caption to 'Edit' right click the button, view code and paste this in

Private Sub ToggleButton1_Click()
With ToggleButton1
If .Caption = "Edit" Then
Range("A1").Value = 1
.Caption = "Done"
Else
Range("A1").Value = ""
.Caption = "Edit"
End If
End With
End Sub


Mike

"Les Stout" wrote:

Hi all, this is probably so easy but it is eluding me !!

I need to make an edit button that inserts a 1 in A1 and the caption
then changes to "DONE" and when clicked again it removes the 1 from A1
and the caption then changes back to "EDIT"


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***

I would **not** use the following in production code... I'm posting it more
to get the reader to see there are ways to "think outside the box" when it
comes to coding (and, also, as an exercise for the reader to decipher why it
works<g)...

Private Sub CommandButton1_Click()
Range("A1").Value = String(1 - Val(Range("A1").Value), "1")
CommandButton1.Caption = Split("EDIT DONE")(Val(Range("A1").Value))
End Sub

Rick


"Rick Rothstein (MVP - VB)" wrote in
message ...
Maybe this?

Private Sub CommandButton1_Click()
With CommandButton1
If .Caption = "DONE" Then
ActiveSheet.Range("A1").Value = ""
.Caption = "EDIT"
Else
ActiveSheet.Range("A1").Value = "1"
.Caption = "DONE"
End If
End With
End Sub

Rick



"Les Stout" wrote in message
...
Hi all, this is probably so easy but it is eluding me !!

I need to make an edit button that inserts a 1 in A1 and the caption
then changes to "DONE" and when clicked again it removes the 1 from A1
and the caption then changes back to "EDIT"


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***