Userform without variables declared

[bugatti79]

Folks,

I have a userform which contains a number of sub procedures. Because there are no variables declared, I dont know how to use a certain value retrieved in one sub procedure and put it in another procedure.

I have attached 2 sub procedures. The first 1 retrieves a value from a table. The 2nd sub contains some calculations. I want to put the value of 'Property_E' in place of '1000'

Private Sub ComboBox1_Change()

Dim ws As Worksheet
    Set ws = Worksheets("Table of Material Data")
    
        Property_E = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, ws.Range("A2:H18"), 2, False)


End Sub

Private Sub TextBox2_Change()

Me.Label26.Caption = (1 * (Val(TextBox2.Value)) * 2) / (1000) ^ 2

End Sub

Any ideas?
Thanks

 

[JoeMo]

Try a Dim statement above the first sub procedure so that either procedure recognizes the variable.

Dim Property_E as Variant
Private Sub ComboBox1_Change()
......

 

[bugatti79]

Hi Joe,

That works a treat.

Thanks