Command Button Macro

Hello guys,



Would you all give me a formula for command button “Loss”, automatically “C21″ become “100,000″. and "Others" become "Free". Also "VIP Lounge", "C13" become VIP Lounge.

Also what is formula for command button “Refresh”, and automatically clear C9,C13, C14:C18,C21 ?

Thank you all in advance.

here, try this sample. Don't have a printer now so you might take a try first.

And you need to have a macro-enabled workbook (.xlsm) for all that working, sample you provided was not.

It works for "Clear" and "Print".

But how about the macro formulas for "Other" on C19 when clicked it will change C21 & B12 (on Sheet 2) become "Free".. And when "VIP Lounge" on C11 clicked, the C12 become text "VIP Lounge" ?

Im such a beginner in VB.. Really appreciate your help.

But how about the macro formulas for "Other" on C19 when clicked it will change C21 & B12 (on Sheet 2) become "Free"..

I thought you wanted to do this, or I don't understand you. As you said or I understand, you needed macro for button "other" - when you click It, c21 & b12 on sheet2 must have text value "Free". Maybe you want something else ?

VIP lounge - didn't do nothing there, only what you asked. Maybe you had that before.

Its all done.. with all this formula below:

Sub Rectangle6_Click()
Range("c21").Value = 50000
Range("c20").Value2 = "Loss"
End Sub
Sub Rectangle7_Click()
Range("c21").Value = 50000
Range("c20").Value2 = "Broken"
End Sub
Sub Rectangle8_Click()
Range("c21").Value = "Free"
Range("c20").Value2 = "Others"
End Sub
Sub Rectangle1_Click()
Range("c12").Value = "VIP Lounge"
End Sub
Sub Rectangle5_Click()
Range("c12").Value = "Main Lobby"
End Sub
Sub Rectangle4_Click()
Range("c12").Value = "AOS"
End Sub
Sub MyPrint()
Sheet2.PrintOut
End Sub
Sub ClearButton_Click()
Range("C9").ClearContents
Range("C13").ClearContents
Range("C14:C18").ClearContents
Range("C21").ClearContents
End Sub


But why after i save as Excel Macro Enabled and closed it, every time i opened it back it doesnt working? It said that macro may not available..
How should i save it or how to open it?

But why after i save as Excel Macro Enabled and closed it, every time i opened it back it doesnt working? It said that macro may not available..

Go to Excel icon in upper left, and go to Excel options>Trust center>Trust center settings>macro settings and enable all macros. Close and re-open Excel, now macros will work.....You probably missed that.

How should i save it or how to open it?

No matter how you open, but save in .xlsm for macros. And wherever you open It, make sure PC's Excel is enabled for macros as I told you.

It didnt work!

Already set enable macro in trust setting.. but this notification keep coming like these attached pics.

Why? i really dont understand this.

It didnt work..

Its solved!
I just find this link http://support.microsoft.com/kb/927150

Many thanks to you, Lukael. Youre so helpful. I really appreciate that!

Glad you solved. You're welcome

Mark thread as solved...