can't get a macro to work in a userform

still learning · Oct 14, 2017

Hi
I have a user form that comes up from another userform
the new userform will find a range.

HTML:

Private Sub CommandButton4_Click()
   usf3
  Unload Me
  End Sub

I can’t seem to have a message box come up for certain “cases”. The “cases” that have an >>Application. Goto>>> work fine
I tried to use a macro name, then I actually used the macro itself.
What Am I doing wrong?

HTML:

Private Sub CommandButton1_Click()
  Dim bUnload As Boolean
   bUnload = True
    Sheets("Sheet3").Select
  Select Case Me.ListBox1.Value
  Case Is = "A":  Application.Goto Reference:="dela", Scroll:=True
  Case Is = "B":  Application.Goto Reference:="delb", Scroll:=True
  Case Is = "C":  Application.Goto Reference:="delc", Scroll:=True
     ‘   I tried to change the nl to the actual macro but it still doesn't work
  Case Is = "D":    MsgBox "        No Deleted Letter"
       bUnload = False
  Case Is = "E":  nl
       bUnload = False
  Case Is = "F":  Application.Goto Reference:="delf", Scroll:=True
     Case Is = "G":  nl     
    End Select
    If bUnload Then Unload Me
  End Sub

HTML:

Nl is :

  Sub nl()
   '  small n and small L
  MsgBox "        No Deleted Letter"
  End Sub

Mike

royUK · Oct 15, 2017

Where is the macro n1?

still learning · Oct 16, 2017

Hi royUK,

HTML:

Sub nl()  
   MsgBox "        No Deleted Letter"
  End Sub

nl is short for no listing
the macro will work when I try it alone
Mike

royUK · Oct 16, 2017

What I wanted to know is where you have the n1 macro. For example, if it is in Module1 then try calling it like this:

Code:

Option Explicit


Private Sub CommandButton1_Click()
 Dim bUnload As Boolean
   bUnload = True
    Sheets("Sheet3").Select
  Select Case Me.ListBox1.Value
  Case Is = "A":  Application.Goto Reference:="dela", Scroll:=True
  Case Is = "B":  Application.Goto Reference:="delb", Scroll:=True
  Case Is = "C":  Application.Goto Reference:="delc", Scroll:=True
     '   I tried to change the nl to the actual macro but it still doesn't work
  Case Is = "D":    MsgBox "        No Deleted Letter"
       bUnload = False
  Case Is = "E":  nl
       bUnload = False
  Case Is = "F":  Application.Goto Reference:="delf", Scroll:=True
     Case Is = "G":  Module1.nl
    End Select
    If bUnload Then Unload Me


End Sub

You need to explicitly name the container, so if it is in the other UserForm you would use (change the name of the UserForm as required)

Code:

UseForm1.n1

still learning · Oct 16, 2017

The macro is in Module 1
I retyped the code from scratch for the command button instead of copy and past and just changing the letters. I didn't think to do that till after you first reply.
Now it works
I'm guessing that I somehow had the row source and the code mismatched.

Thank you anyway

Mike

can't get a macro to work in a userform

still learning

Well-known Member

Excel Facts

royUK

Well-known Member

still learning

Well-known Member

royUK

Well-known Member

still learning

Well-known Member

Similar threads

Forum statistics

Share this page

can't get a macro to work in a userform

still learning

Well-known Member

Excel Facts

royUK

Well-known Member

still learning

Well-known Member

royUK

Well-known Member

still learning

Well-known Member

Similar threads

Forum statistics

Share this page

We've detected that you are using an adblocker.

Which adblocker are you using?

Disable AdBlock

Disable AdBlock Plus

Disable uBlock Origin

Disable uBlock