Would like to access a textbox in userform to another module

[ArnMan]

Hello,
I have a user form with a textbox. and I have a module I cant seem to get the value from the textbox in the userform and use it in another module, I have tried several different codes and cant seem to get it to work.

Here is my userform:

I am able to use msgbox to display the text to make sure my OpCheck variable is working.

Private Sub AddOpChecks_Click()
Call Blank
Call OperationalPassFail
Call Blank
If OperationChecks.CheckBox1.Value = True Then
OpText = OperationChecks.TextBox1.Text
MsgBox OpText
Call PassFailRow1
Call ChangeSwap
End If

If OperationChecks.CheckBox2.Value = True Then
OpText = OperationChecks.TextBox2.Text
MsgBox OpText
Call PassFailRow1
Call ChangeSwap
End If

End Sub

And here is my module that I want to add the text to a cell:
I can use

ColB.Value = OperationChecks.TextBox1.Text

and that works, but I am going to use a loop of some sort because I will have more textboxes in my userform that may or may not be used. Each checked, textbox will rerun the below module. So hopefully the OpText variable will display the correct text.

Sub PassFailRow1()
    Call lRows
    
    Sheets("Sheet1").Range("B" & lRow & ":" & "N" & lRow).Clear
      
    Call BCol
    
    'AAA Column
    ColA.Font.Color = White
    ColA.Value = "1"
    
    
    'B Column
    
    Range(ColB, "E" & lRow).Merge
    ColB.HorizontalAlignment = xlRight
    
    'ColB.Value = OperationChecks.TextBox1.Text
    MsgBox OpText
    ColB.Value = OpText
    
    'C Column
    
    
    Call ChangeSwap
    
    
    
    
 
End Sub

So any help well be greatly appreciated. And I thank you just for taking the time to read my posts.

 

[dmt32]

Hi,
Pass the value as an argument


e.g

Your userform code

Private Sub AddOpChecks_Click()
'declare variables
    Dim OpText As String
    
    'your code
    
    
    
    Call PassFailRow1(OpText)






End Sub

Standard module code

Sub PassFailRow1(ByVal Text As String)
    
    MsgBox Text
    
    
End Sub

Dave

 

[ArnMan]

Oh my that worked flawlessly. Thank you for helping me. I haven't used that process, and probably need to remember this

Thank you again. You are the best.

Hi,
Pass the value as an argument


e.g

Your userform code

Private Sub AddOpChecks_Click()
'declare variables
    Dim OpText As String
    
    'your code
    
    
    
    Call PassFailRow1(OpText)






End Sub

Standard module code

Sub PassFailRow1(ByVal Text As String)
    
    MsgBox Text
    
    
End Sub

Dave