variable not accepting range value

[egoosen3]

Hi

I am using an inputBox to get a value from a cell in excel. My variable gInput is not accepting the value from the range.
ub gAddDetail1()
Dim rng As Range
Dim gInput As Variant
'Get A Cell Address From The User to Get Number Format From
On Error Resume Next
Set rng = Application.InputBox( _
Title:="Data field from Cell", _
Prompt:="Select a cell to pull in your Data Field", _
Type:=8)
On Error GoTo 0

'Test to ensure User Did not cancel
If rng Is Nothing Then Exit Sub

'Set Variable to first cell in user's input
Set rng = rng.Cells(1, 1)

'Data Field
gInput = rng.Value

'

End Sub

 

[Fluff]

Can you please explain what you mean by this.

My variable gInput is not accepting the value from the range.

 

[egoosen3]

if i run the code, the rng.Value contains the value of the cell in excel, however gInput in gInput = rng.Value is empty

 

[jasonb75]

You must be looking before the code has stepped past the line that is assigning the cell value to the glinput variable.

 

[egoosen3]

But why does gInput stay empty if i mset through the line if rng.Value contains a value?

 

[Fluff]

If you step through the code using F8, then gInput will not have a value until End Sub is highlighted yellow.
The yellow line is the next line to get run.

 

[jasonb75]

Until the code goes past the line where the value of the cell is assigned to the variable, the variable will be empty because it hasn't received the instruction yet.

 

[egoosen3]

I ran tit to the end sub still stay empty

 

[jasonb75]

Works fine for me. Add a message box at the end what does it say?

gInput = rng.Value

MsgBox gInput

End Sub

 

[egoosen3]

ok sorry sorted thanks