Click a button - pass some information - How To?

**Askjerry** · 01-23-2014, 05:21 PM

This should be simple... but I'm missing something.

Imagine two buttons on a form.

When you click either button you want the same MACRO to run, but do slightly different tasks. (Different range, different color, etc.)
You install a variable called "mydata" and if it has a value of "1" it will behave one way, if "2" it will behave another.

For now... let's just put this value into cell "B3"... just so I can see that the data is actually passed.

Sub DO_SOMETHING()
    Dim myinfo As String
    Range("B3").Select
    ActiveCell.FormulaR1C1 = myinfo
    Range("A1").Select
End Sub

I thought that I could just change the routine to

Sub DO_SOMETHING_ELSE(myinfo)
    Dim myinfo As String
    Range("B3").Select
    ActiveCell.FormulaR1C1 = myinfo
    Range("A1").Select
End Sub

But if I do... when I try to assign it to a button...

BUTTON 1 would call DO_SOMETHING_ELSE("1")
...OR...
BUTTON 2 would call DO_SOMETHING_ELSE("2")

It say's it's too complex.

I can call WORKBOOK!DO_SOMETHING just fine... but if I add the data field... FAIL.

So...

How do I call DO_SOMETHING and pass the variable... or call DO_SOMETHING_ELSE(data) ?

Thanks,
Jerry

**judgeh59** · 01-23-2014, 05:26 PM

something like this.....un-tested

SUB Button1Click()
    DO_SOMETHING_ELSE 1
SUB END

SUB Buuton2Click()
    DO_SOMETHING_ELSE 2
SUB END

SUB DO_SOMETHING_ELSE(myinfo)
    
    If myinfo = 1 then
        play guitar ' do something
   else
       play fiddle ' do something else
   end
SUB END

if you have more button you might consider switching to a CASE/SELECT construct....

**Askjerry** · 01-23-2014, 05:34 PM

Right at the time you were sending a reply... I tried this... it worked... not elegant... but it worked.

Sub DO_SOMETHING(myinfo)
    Range("B3").Select
    ActiveCell.Value = myinfo
    Range("A1").Select
End Sub

Sub BTN1()
DO_SOMETHING (1)
End Sub

Sub BTN2()
DO_SOMETHING (2)
End Sub

So it looks like that's the way to do it.
Thanks for the help!!

Jerry

**6StringJazzer** · 01-23-2014, 05:44 PM

I think you will find this to be a better technique, not related to your original question. No need to Select and then operate on ActiveCell.

Sub DO_SOMETHING(myinfo)
    Range("B3").Value = myinfo
    Range("A1").Select
End Sub

Click a button - pass some information - How To?

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Click a button - pass some information - How To?

Re: Click a button - pass some information - How To?

Re: Click a button - pass some information - How To?

Re: Click a button - pass some information - How To?

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] click on a color button and after button click it will color entire row of cell you click

[SOLVED] Can you pass a button name to a macro?

how can ListIndex can be pass when botton click

Call button click event from a button on anther sheet

[SOLVED] [SOLVED] Create floating button based on button click in menu

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions