Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Creating a clickable button
Hey all,
I have written a macro that does the following: ~~~~~~~~~~~~~~~~~~~~~~~~ Sub ButtonRefreshTest() Dim mdb_Obj As Object Set mdb_Obj = CreateObject("Access.Application") Dim app As Application Set app = Application mdb_Obj.Visible = True mdb_Obj.OpenCurrentDatabase ("\\~edit~.mdb") mdb_Obj.DoCmd.RunMacro "Make Union176 Table" MsgBox "Updated DataBase with Latest Data! Check 'SummarySheet'" mdb_Obj.Quit Range("SummarySheet176").QueryTable.Refresh BackgroundQuery:=False app.Application.Calculate MsgBox "Updated Successfully!" End Sub ~~~~~~~~~~~~~~~~~~~~~~ This works fine for me, but I have to run it from within VB. How can I make this into a clickable button within excel? |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Creating a clickable button
Make a note of the name of the macro, then go to the Excel worksheet, draw a
button, right-click the button and select assign macro, and click on the macro name. Then click OK. -- Brevity is the soul of wit. "S Davis" wrote: Hey all, I have written a macro that does the following: ~~~~~~~~~~~~~~~~~~~~~~~~ Sub ButtonRefreshTest() Dim mdb_Obj As Object Set mdb_Obj = CreateObject("Access.Application") Dim app As Application Set app = Application mdb_Obj.Visible = True mdb_Obj.OpenCurrentDatabase ("\\~edit~.mdb") mdb_Obj.DoCmd.RunMacro "Make Union176 Table" MsgBox "Updated DataBase with Latest Data! Check 'SummarySheet'" mdb_Obj.Quit Range("SummarySheet176").QueryTable.Refresh BackgroundQuery:=False app.Application.Calculate MsgBox "Updated Successfully!" End Sub ~~~~~~~~~~~~~~~~~~~~~~ This works fine for me, but I have to run it from within VB. How can I make this into a clickable button within excel? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I make a clickable button to do a Key Combo? | Excel Worksheet Functions | |||
Hiding a button when hiding rows | Excel Discussion (Misc queries) | |||
Please Help Me with Custom menus | Excel Worksheet Functions | |||
Creating a form on a worksheet - Can I make a button for "notes" | Excel Worksheet Functions | |||
Command Button anomalies | Excel Discussion (Misc queries) |