Why does the code below not set OptionButton1.Value to True?

Private Sub UserForm_Initialize()

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

TextBox1.Text = rng(1, 1).Text
TextBox2.Text = rng(1, 2).Text
TextBox3.Text = rng(1, 4).Text

If rng(1, 3) = "member" Then
OptionButton1.Value = True
End If

End Sub

the obvious answer is that rng(1,3) = "member"
even though you might think it does. (extra space?, activecell not what you
think it is? )

--
Regards,
Tom Ogilvy




"Patrick Simonds" wrote:

Why does the code below not set OptionButton1.Value to True?

Private Sub UserForm_Initialize()

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

TextBox1.Text = rng(1, 1).Text
TextBox2.Text = rng(1, 2).Text
TextBox3.Text = rng(1, 4).Text

If rng(1, 3) = "member" Then
OptionButton1.Value = True
End If

End Sub

Turns out it case case sensative. The rng(1, 3) contained the word Member
not member


"Tom Ogilvy" wrote in message
...
the obvious answer is that rng(1,3) = "member"
even though you might think it does. (extra space?, activecell not what
you
think it is? )

--
Regards,
Tom Ogilvy




"Patrick Simonds" wrote:

Why does the code below not set OptionButton1.Value to True?

Private Sub UserForm_Initialize()

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

TextBox1.Text = rng(1, 1).Text
TextBox2.Text = rng(1, 2).Text
TextBox3.Text = rng(1, 4).Text

If rng(1, 3) = "member" Then
OptionButton1.Value = True
End If

End Sub

There you go! <g

Yes, equality of strings is case sensitive unless you change with declare

Option Compare Text

at the top of the module

better probably is you can make it case insensitive with

if lcase(rng(1,3)) = "member" then


--
Regards,
Tom Ogilvy

"Patrick Simonds" wrote in message
...
Turns out it case case sensative. The rng(1, 3) contained the word Member
not member


"Tom Ogilvy" wrote in message
...
the obvious answer is that rng(1,3) = "member"
even though you might think it does. (extra space?, activecell not what
you
think it is? )

--
Regards,
Tom Ogilvy




"Patrick Simonds" wrote:

Why does the code below not set OptionButton1.Value to True?

Private Sub UserForm_Initialize()

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

TextBox1.Text = rng(1, 1).Text
TextBox2.Text = rng(1, 2).Text
TextBox3.Text = rng(1, 4).Text

If rng(1, 3) = "member" Then
OptionButton1.Value = True
End If

End Sub