Populating a dialogbox

[Patrick Simonds]

I am using the code below to populate a dialogbox. I only want this to work
if there is a value in the selected cell. If there is a formula and not a
value then I want the Textboxes to be empty.


Private Sub UserForm_Initialize()
Dim rng
Set rng = Cells(ActiveCell.Row, 1)

TextBox1.Text = rng(1, 1).Value
TextBox2.Text = rng(1, 2).Value
TextBox3.Text = rng(1, 3).Value
TextBox4.Text = rng(1, 4).Value
End Sub

 

[Rowan]

Maybe like this:

If Not rng(1, 1).HasFormula Then
TextBox1.Text = rng(1, 1).Value
End If

Regards
Rowan

 

[Patrick Simonds]

Thanks, that did the trick

Maybe like this:

If Not rng(1, 1).HasFormula Then
TextBox1.Text = rng(1, 1).Value
End If

Regards
Rowan

 

[Rowan]

You're welcome.