Move code form Userform to Module

[Excelpromax123]

Code Userform

Private Sub CommandButton1_Click()
If Range("A1") = 1 Then
Range("A1").Value = TextBox1.Value
Else
Unload Me
End If
End Sub

Now I just move all the code to Userform. then from Userform call Module

Private Sub CommandButton1_Click()
aaa
End Sub


Sub aaa()
If Range("A1") = 1 Then
Range("A1").Value = TextBox1.Value
Else
Unload Me
End If
End Sub

I did the above but the code doesn't work. Thanks to everyone for help. thank

 

[BSALV]

with the right name of your userform

Range("A1").Value = Userform1.TextBox1.Value

 

[dmt32]

Another way, you can pass information about the currently executing instance of a class (your userform) to a procedure in another module using the ME keyword.

The Me keyword allows you to refer to a current worksheet, workbook, or userform without having to hard code the objects name and represents the parent object from where the code resides. You cannot though as you have discovered, use the Me keyword in a standard module.

Your updated procedure in a STANDARD module (with a parameter added to allow an argument to be passed to it.)

Sub aaa(ByVal Form As Object)
    If Range("A1") = 1 Then
        Range("A1").Value = Form.TextBox1.Value
    Else
        Unload Form
    End If
End Sub

You call this procedure from your userform commandbutton code and pass the current instance of the UserForm class as an argument using the ME keyword

Private Sub CommandButton1_Click()
    aaa Me
End Sub

Your code should now do what you want.

Hope Helpful

Dave