Passing Value from Sub to Userform textbox

[hajiali]

I have a Simple Textbox1, Textbox2, and Textbox3 userform8

I what to be able to pull E1, E2, and a cell value to each textbox from a subroutine and active sheet

In my Macro I have:

Sub calltxtbx()
Dim E1 As Range
Dim E2 As Range

        Set E1 = Range("A2:A1000").Find(Range("AN2"), LookIn:=xlValues, LOOKAT:=xlWhole)
        Set E2 = Range("A2:A1000").Find(Range("AP2"), LookIn:=xlValues, LOOKAT:=xlWhole)
        UserForm8.Show
End Sub

my Userform8 code below

Private Sub TextBox1_Change()
TextBox1 = E1.Offset(0, 2) & ", " & E1.Offset(0, 1)
End Sub
Private Sub TextBox2_Change()
TextBox2 = E2.Offset(0, 2) & ", " & E2.Offset(0, 1)
End Sub
Private Sub TextBox3_Change()
TextBox3 = Range("AQ2")
End Sub

However all textbox are blank. Any help is greatly appreciate.

 

[NdNoviceHlp]

Place these at the top of module code... remove from userform code. HTH. Dave

Public E1 As Range
Public E2 As Range