Passing Userform values into another module

[joobalooba]

Hello,
I'm trying to set up a budget template for my colleagues. The first sheet is a set up sheet which contains a userform which they have to fill in. They then have to press a command button at the bottom called "Create New Budget".

Within the userform, there are several inputs for staff - e.g. "txtBudgetName" and "cboBudgetYear". Once staff have filled in these values and press the button, the sub attached to the command button has a Call "CreateBudget()" sub, which is saved in another module. The intention is that the CreateBudget sub creates the template budget sheet on another sheet.

The problem is that the CreateBudget sub relies on the staff inputs - txtBudgetName and cboBudgetYear etc, but I think these get forgotten once VBA moves off the userform and then onto the module with CreateBudget sub on it.

Is there something I can do to have VBA remember these values? Or should I just get rid of the CreateBudget sub and stuff all of its contents into the command button on the userform?

Thanks in advance!

 

[steve the fish]

Within your standard module you declare your variables at the top of the module eg:

Public myText As String

Sub macro1()

MsgBox myText

End Sub

Then the userform module eg:

Private Sub UserForm_Click()

myText = TextBox1.Value
Call macro1

End Sub

 

[Norie]

Are you unloading or hiding the useform when you 'move off' it?

If you are only hiding it then you can still access the values on it.

 

[joobalooba]

I must be missing something - I tried both things and neither worked. Definitely didn't unload the userform, but rather just hide it. Even if I do nothing to the userform, it still doesn't work!

I've attached a simplified version of what I'm trying to do here: https://drive.google.com/file/d/1uyUYl1d6wXIpg2r200J6oX5lZBsnt8ub/view?usp=sharing

Grateful for any help!

Thanks in advance!

 

[Fluff]

Try

Sub macro1()
With Worksheets("Sheet2")
   .Range("B2").Value = UserForm1.txtbox1
   .Range("B4").Value = UserForm1.txtbox2
End With
End Sub

But I'd tend to keep it within the Button click event.

 

[Norie]

You need to reference the userform to get the values from it.

Sub macro1()

    With Worksheets("Sheet2")
        .Range("B2").Value = UserForm1.txtbox1.Value
        .Range("B4").Value = UserForm1.txtbox2.Value
    End With

    Unload UserForm1

End Sub