usfrom value

[nada]

I have a userform that when is shown when the user clicks a button. When the userforms opens I want to show a number in a textfield. However that fails and the field shows nothing. The number is found in a cell and the number is then read in to a variable that is to be shown in the userform. Pls help me with this problem.

Private Sub UserForm1_Initialize()
Set rngErrorMarginCell = Range("d5")
dblErrorMarginal = rngErrorMarginCell.Value
TextBox1.Text = dblErrorMarginal
End Sub

 

[abiram01]

Hi,

I think you missing the sheet name in which the range is present. Try this:

Changes are in bold.

Private Sub UserForm1_Initialize()
Set rngErrorMarginCell = Sheets(<sheet name>). Range("d5")
dblErrorMarginal = rngErrorMarginCell.Value
TextBox1.Text = dblErrorMarginal
End Sub
_________________

 

[nada]

show number in textbox

Hello! Ok my problem is:

1) I seem to fail to show any text in the textbox when the userfrom is inintialized. Thus i wonder if it is possible to show a numer/text in a textbox when the userform is shown?

2) If it is possible what am I doing wrong here? I just cannot seem to se what is the problem..
3) If it is not possible is there any tips for going around the problem.

I simplyfied my code to :

Sub UserForm1_Initialize()
Me.TextBox1.Text = "Hello World!"
End Sub

but that did not work....pls help me!

 

[abiram01]

Is it possible for you to attach the xls you have?

 

[erik.van.geit]

Hi,

the reason is very simple
you don't need the name of the userform in your code
NOT

Sub UserForm1_Initialize()

but the "general expression"

Sub UserForm_Initialize()

kind regards,
Erik

 

[nada]

Thanks!

Hello erik.van.geit! Thank you very much for your reply! You were quite correct and it works fine now. Many. many thanks!

 

[erik.van.geit]

you're welcome

think about it like

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

you wouldn't write

Private Sub Worksheet1_....

kind regards,
Erik