Defining textbox value as a variable

**roarwali** · 12-18-2013, 06:30 AM

Hello to everybody;

I have a Userform with a Textbox named Lead Time. What I want to do is to enter a value to the lead Time Textbox and saved it on a worksheet. I then use the saved value as a variable in my code (lead time variable). The problem is that each time the code executes, it picks up the Text/value property value as a leadtime variable value instead of the one I assigned via Textbox. If i leave blank the text property of the Textbox, the code considers Leadtime of Zero.

I checked many threads but none is working for me.

Thanks in advance

**Leon V (AW)** · 12-18-2013, 07:01 AM

do the veriables have the same name?
also if you are saving it to a cell do you need to make it a variable again? (couldn't you just ref the cell?)

**roarwali** · 12-18-2013, 09:13 AM

Thanks Leon for the reply.
First i populate cells with a Userform (but the range is not fixed). Then i refer to the cells' values using variables. For example for the lead Time Textbox, I enter a value let's suppose 3. This value is saved on a sheet. Then i reference the saved value using a variable i.e. intLT (Leadtime variable) in a code. Also, the textbox name and the variable name is not the same. Textbox name is LTBox and variable referring to the box value is intLT (an integer).

Below is the code;

Sub PlannedOrderRelease()

Dim POR As Long ' Planned Order Receipt
Dim intLT as integer ' Value that i entered via LeadTime TextBox and saved on a worksheet

Set MRP = Sheets("MRP")

For POR = 3 To MRP.Cells(8, 3).End(xlToRight).Column

If MRP.Cells(8, POR).Value = 0 Then

MRP.Cells(8, POR).Offset(1, -intLT).Value = ""
Else

MRP.Cells(8, POR).Offset(1, -intLT).Value = MRP.Cells(8, POR) ' offseting value in the immediate row below using a variable intLT

End If

Next

End Sub