View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
FSt1 FSt1 is offline
external usenet poster
 
Posts: 3,942
Default Change from a Command Button to a Form Button

hi
my general rule is form button for forms, command buttons for the sheet.
is there a reason why you think your code needs to be in a form button? do
you now have a form?
the 2 button would do the same thing.

but to answer your question...
transfer the command button code to a standard module with a different name.
if the form button is on the sheet(???), the right click it and click asign
macro the macro dialog should popup. scroll to your macro.
if the form button is on a form, then the process is much the same as with a
command button on the sheet.

if the form button is not on a form, i recommend that you leave it in the
command button.
my thoughts.

regards
FSt1


"Ben in CA" wrote:

Hi,

Per Jessen helped me with some code, and he did a great job, but I guess I
didn't ask for what would be the best! (Sorry Per)

Do you know how I would modify this code so it could be added and performed
from a form button instead of a command button?

(It's really useful already, but now I'm thinking it should have been a form
button.)

Also, is there any way that it could automatically replace (not ask) if the
value of C33 is 0 (zero), as well as empty?

Private Sub CommandButton1_Click()

If Range("W6").Value < "" And Range("W6").Value < 0 Then
If Sheets("Quick Calculator").Range("C33").Value < "" Then
answer = MsgBox("Do you want to replace existing value for Thing
1?", vbYesNo)
If answer = vbYes Then Sheets("Quick Calculator").Range("C33") =
Me.Range("W6").Value
Else
Sheets("Quick Calculator").Range("C33") = Me.Range("W6").Value
End If
End If

End Sub

Thank you for any suggestions!

Ben