In my user form,I have a combo box which has w/sheet names and two option
buttons 1.males,2.females. In each sheet of my w/book ,range b2:b4 = names of
males and range c2:c4 =names of females.I have 3 text boxes and cmd button
'populate'.If I select w/sheet name from combobox and select an option say 2.
females,and press populate button ,the relevant sheet's females names be
populated in 3 text boxes. I have created a user form but unable add code.
How to achieve this?.Any help is sincerely appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1

Sub CommandButton1_Click() 'Populate
Dim ws As Worksheet
With UserForm1
Set ws = Worksheets(.ComboBox1.Value)
If .OptionButton1.Value = True Then 'males
.TextBox1.Value = ws.Range("B2")
.TextBox2.Value = ws.Range("B3")
.TextBox3.Value = ws.Range("B4")
Else 'females
.TextBox1.Value = ws.Range("C2")
.TextBox2.Value = ws.Range("C3")
.TextBox3.Value = ws.Range("C4")
End If
End With
End Sub

This is untested so give it a shot.
Mike F
"tkraju via OfficeKB.com" <u16627@uwe wrote in message
news:64341184d6db6@uwe...
In my user form,I have a combo box which has w/sheet names and two option
buttons 1.males,2.females. In each sheet of my w/book ,range b2:b4 = names
of
males and range c2:c4 =names of females.I have 3 text boxes and cmd
button
'populate'.If I select w/sheet name from combobox and select an option say
2.
females,and press populate button ,the relevant sheet's females names be
populated in 3 text boxes. I have created a user form but unable add
code.
How to achieve this?.Any help is sincerely appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1

Thanks,Mike,Its working great.How to enable optionbutton1 as default(true) ,
most of the times males option button use is morethan 90%.

Mike Fogleman wrote:
Sub CommandButton1_Click() 'Populate
Dim ws As Worksheet
With UserForm1
Set ws = Worksheets(.ComboBox1.Value)
If .OptionButton1.Value = True Then 'males
.TextBox1.Value = ws.Range("B2")
.TextBox2.Value = ws.Range("B3")
.TextBox3.Value = ws.Range("B4")
Else 'females
.TextBox1.Value = ws.Range("C2")
.TextBox2.Value = ws.Range("C3")
.TextBox3.Value = ws.Range("C4")
End If
End With
End Sub

This is untested so give it a shot.
Mike F
In my user form,I have a combo box which has w/sheet names and two option
buttons 1.males,2.females. In each sheet of my w/book ,range b2:b4 = names
[quoted text clipped - 7 lines]
code.
How to achieve this?.Any help is sincerely appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1

Mike:
The OP's Combobox1...(question).
How did/would you populate a combobox with
The sheet names (and of course make it dynamic)?
Thanks,
Jim

"Mike Fogleman" wrote in message
:

Sub CommandButton1_Click() 'Populate
Dim ws As Worksheet
With UserForm1
Set ws = Worksheets(.ComboBox1.Value)
If .OptionButton1.Value = True Then 'males
.TextBox1.Value = ws.Range("B2")
.TextBox2.Value = ws.Range("B3")
.TextBox3.Value = ws.Range("B4")
Else 'females
.TextBox1.Value = ws.Range("C2")
.TextBox2.Value = ws.Range("C3")
.TextBox3.Value = ws.Range("C4")
End If
End With
End Sub

This is untested so give it a shot.
Mike F
"tkraju via OfficeKB.com" <u16627@uwe wrote in message
news:64341184d6db6@uwe...

In my user form,I have a combo box which has w/sheet names and two option
buttons 1.males,2.females. In each sheet of my w/book ,range b2:b4 = names
of
males and range c2:c4 =names of females.I have 3 text boxes and cmd
button
'populate'.If I select w/sheet name from combobox and select an option say
2.
females,and press populate button ,the relevant sheet's females names be
populated in 3 text boxes. I have created a user form but unable add
code.
How to achieve this?.Any help is sincerely appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1

For your OptionButton and Jim May's dynamic sheet name list, both can be
done in the UserForm Initialize code:

Private Sub UserForm_Initialize()
Dim ws As Worksheet

For Each ws In Worksheets
Me.ComboBox1.AddItem ws.Name
Next ws

Me.OptionButton1.Value = True
End Sub

Before you ask, the use of Me refers to the object that this code module
belongs to. This is Private code that resides in UserForm1, so Me referes to
UserForm1. If the code belonged to UserForm2 or Sheet1,etc., then Me would
refer to those objects. Kind of a short cut way to write the object's name

Mike F


"tkraju via OfficeKB.com" <u16627@uwe wrote in message
news:6436fc09c0b18@uwe...
Thanks,Mike,Its working great.How to enable optionbutton1 as default(true)
,
most of the times males option button use is morethan 90%.

Mike Fogleman wrote:
Sub CommandButton1_Click() 'Populate
Dim ws As Worksheet
With UserForm1
Set ws = Worksheets(.ComboBox1.Value)
If .OptionButton1.Value = True Then 'males
.TextBox1.Value = ws.Range("B2")
.TextBox2.Value = ws.Range("B3")
.TextBox3.Value = ws.Range("B4")
Else 'females
.TextBox1.Value = ws.Range("C2")
.TextBox2.Value = ws.Range("C3")
.TextBox3.Value = ws.Range("C4")
End If
End With
End Sub

This is untested so give it a shot.
Mike F
In my user form,I have a combo box which has w/sheet names and two
option
buttons 1.males,2.females. In each sheet of my w/book ,range b2:b4 =
names
[quoted text clipped - 7 lines]
code.
How to achieve this?.Any help is sincerely appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1

Thanks Mike.Thank you so much.

Mike Fogleman wrote:
For your OptionButton and Jim May's dynamic sheet name list, both can be
done in the UserForm Initialize code:

Private Sub UserForm_Initialize()
Dim ws As Worksheet

For Each ws In Worksheets
Me.ComboBox1.AddItem ws.Name
Next ws

Me.OptionButton1.Value = True
End Sub

Before you ask, the use of Me refers to the object that this code module
belongs to. This is Private code that resides in UserForm1, so Me referes to
UserForm1. If the code belonged to UserForm2 or Sheet1,etc., then Me would
refer to those objects. Kind of a short cut way to write the object's name

Mike F

Thanks,Mike,Its working great.How to enable optionbutton1 as default(true)
,
[quoted text clipped - 25 lines]
code.
How to achieve this?.Any help is sincerely appreciated.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200608/1