Simple Menu

[kunghel]

Ola!

I am setting up a macro to be able to better organize the macros that I am using.
I have two macros:
One to replace the shapes in black RGB to CMYK black (Thanks to Shelby and Jhon for this)
and another to convert all RGB to CMYK

After pressing the "Do it Now!" it converts what was selected.

The question is:
How do I work?
Attached the visual.

and my activation will be some like this:

GMSManager.RunMacro "KunghelMacros", "Ferramentas.RGB_Preto_para_CMYK_Preto" 'and
GMSManager.RunMacro "KunghelMacros", "Ferramentas.Converter_vetores_para_CMYK

Thank you!

[runflacruiser]

Hi.
In the vba, form editor view double click the command button.

You can put something like this in the sub it creates (ie. cmd_click)

Private Sub cmdDoIt_Click()
    If frmMain.chkConvert1.value Then
        'run a macro or sub
    ElseIf frmMain.chkConvert2.value Then
        'run a macro or sub
    End If
End Sub

...were chkConvert1 is the name of a checkbox

and frmMain is the name of the form (not needed if code is in form).

You may want to put the subs for your macro in a module that's in the same GMS and refer to them like this

myModule1.mySub1

-John

[kunghel]

Please Jhon

Check this

Private Sub fassa_Click()
If replace.preto.Value Then
        'run a macro or sub
        GMSManager.RunMacro "GlobalMacros", "Módulo1.check"
    ElseIf replace.todos.Value Then
        'run a macro or sub
        GMSManager.RunMacro "GlobalMacros", "Módulo1.bgo"
    End If
End Sub

all individual codes are working when checked, however, he does not run one after the other.

Am I wrong in something?

Thanks.

[runflacruiser]

Hi.
What is the name of your check boxes?

-John

[kunghel]

replace: name of form
preto: name of 1st check
todos: name of 2nd check
fassa: action buton

[runflacruiser]

Hi.

Make sure you referred to the gms/sub correctly. Here's an example of one of mine.

gdg_vinylEasyV2 is the name that shows first in the project explorer. This is the module name.

GDG is the name of the module.

VinylEASY is the name of the sub in the module.

GMSManager.RunMacro "gdg_vinylEasyV2", "GDG.VinylEASY"

It looks correct.

Also, Learning to debug will help you greatly. Go to view and make your locals window appear. Next click in the gray area right next to the IF statement and make a break point. Run macro, click on cmd button. This will take you to the break point. Press f8 on the keyboard to watch the sub execute slowly.

Watch and examine your locals window for values that will get assigned.

-John

[runflacruiser]

PS.
You may want to create a separate gms for your modules, rather than using GlobalMacros. This could be the problem.

-John

[kunghel]

Ok! see this.

I rewrote it again:

this is the Cod. Form of:

Private Sub Act_Buton_Click()
If Form_replacer.Convert_Black.Value Then
        'run a macro or sub
        GMSManager.RunMacro "KunghelMacros", "Cod_Replacers.RGB_Black_to_CMYK_Black"
    ElseIf Form_replacer.Convert_All.Value Then
        'run a macro or sub
        GMSManager.RunMacro "KunghelMacros", "Cod_Replacers.All_RGB_to_CMYK"
    End If
End Sub

and this is my cod. of Commands.
For now, I just put a MsgBox for some tests.

Sub RGB_Black_to_CMYK_Black()

MsgBox "Done! All Blacks are converted."
End Sub

Sub All_RGB_to_CMYK()

MsgBox "Done Too! All RGB are converted."
End Sub

What's happening:
When selected the 1st Checker (Convert_Black), it runs.
When selected the 2st Checker (Convert_All), it runs.
When selected both only the 1st run.

My need is:
When selected both, run 1st after the 2nd.

[kunghel]

Ola!
I changed the code and got the overall result I needed.

Follows:

Private Sub Act_Buton_Click()
If Form_replacer.Convert_Black.Value Then
        'run a macro or sub
        GMSManager.RunMacro "KunghelMacros", "Cod_Replacers.RGB_Black_to_CMYK_Black"
        End If
    
If Form_replacer.Convert_All.Value Then
        'run a macro or sub
        GMSManager.RunMacro "KunghelMacros", "Cod_Replacers.All_RGB_to_CMYK"
        End If
End Sub

Me I done right?
Please, can take a look Jhon?
Thank you.

[runflacruiser]

Hi.
Looks good!Removing the elseif was all that was needed.
-John