Read List1 and write List2

[Kevin]

This is a 2 part question.
1. I create 2 lists, List1 on column A and List2 in column B. List1 and
List2 are linked to a Forms ComboBox and can be switch from one list to the
other via 2 OptionButton. List1 is the narrative of a job and List2 is the
acronym/code for the narrative. What I do is look at the narrative and then
click on one of OptionButtons to switch to the acronym and click on it to
trigger a macro to paste that/ code to a preselected cell. This works fine,
but I would like to change it to something more stream line, like I see the
Narrative(from List1) on the combobox and when I click/choose one of the
values it narrative it writes the code. ie; I select the value "Photograph
difficult matter" and it writes PDM on a selected cell. I had some
ideas(Vlookup) but I was not able to make it work Any guidance will be
appreciated

2.When I created the Forms combobox and the I change form List1 to Liist2
via clicking on OptionButtons the combobox will automatically refresh to the
respective cell, meaning the value of A2 would change to the value of B2 by
switching Option Boxes. The question is, when I create a Control Combobox It
Will not refresh automatically, is there something I can do to autorefresh.

Thank you very much for your help

Kevin

 

[Nigel]

An approach to consider, it sounds like you are using each list separately
to fill the combo box. ?

Why not use both together setting the number of columns (ColumnCount) to 2,
you can control which column is displayed by setting the ColumnWidth either
as 0,100 or 100,0 this will show either column. (choose an appropriate value
for the column to be displayed, anything >0 will show the column).

Your option button would change the value of the ColumnWidth property, hence
change from column A to column B. you might find two buttons one to select
column A (Text) and obe for column B (Acronym) is the easiest way of setting
the combobox to show what you want in the list.

Set Combobox1.RowSource to equal the range of both columns A and B
containing the data list
eg RowSource = Sheet1!A1:B4

' show column A
Private Sub CommandButton1_Click()
ComboBox1.ColumnWidths = "100,0"
End Sub

' show column B
Private Sub CommandButton2_Click()
ComboBox1.ColumnWidths = "0,100"
End Sub

Your selection shown in the combobox will change as the columns are switched

I think this will solve both your questions?

Cheers
Nigel

 

[Kevin]

Nigel, thank you for your response, It took me this long to respond because
I was out of town.
I have tried you advice and it works very well, Partially!. I had some
trouble trying to figure out exactly what you where trying to say by setting
the ColumnWidth either as 0,100 or 100,0, I think I got it to work. But I'm
still having trouble trying to see one list and clicking on a value from
column A and then writing what is in Column B (Acronym).
I'm new at excel so is going to take me a bit longer than normal, I'll
continue to study your response in hope that I can figure it out.

Thank you.

An approach to consider, it sounds like you are using each list separately
to fill the combo box. ?

Why not use both together setting the number of columns (ColumnCount) to 2,
you can control which column is displayed by setting the ColumnWidth either
as 0,100 or 100,0 this will show either column. (choose an appropriate value
for the column to be displayed, anything >0 will show the column).

Your option button would change the value of the ColumnWidth property, hence
change from column A to column B. you might find two buttons one to select
column A (Text) and obe for column B (Acronym) is the easiest way of setting
the combobox to show what you want in the list.

Set Combobox1.RowSource to equal the range of both columns A and B
containing the data list
eg RowSource = Sheet1!A1:B4

' show column A
Private Sub CommandButton1_Click()
ComboBox1.ColumnWidths = "100,0"
End Sub

' show column B
Private Sub CommandButton2_Click()
ComboBox1.ColumnWidths = "0,100"
End Sub

Your selection shown in the combobox will change as the columns are switched

I think this will solve both your questions?

Cheers
Nigel



Combobox




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption

=---

 

[Nigel]

Kevin,

Try putting the following code behind your form, I think it provides you the
template you need. I have shown the value chosen in a MsgBox, you will use
this value for your process.

' use double clicks a value in the combo box
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ComboBox1
If .ListIndex > -1 Then 'this checks it is a valid list entry (not
blank)
MsgBox "Selection = " & Range("A1", "B4").Cells(.ListIndex +
1, 2)
End If
End With
End Sub

' displays the name values columnA
Private Sub CommandButton1_Click()
ComboBox1.ColumnWidths = "100,0"
End Sub

'displays the acronym values columnB
Private Sub CommandButton2_Click()
ComboBox1.ColumnWidths = "0,100"
End Sub

' initialises the form showing just columnA
Private Sub UserForm_Initialize()
ComboBox1.ColumnWidths = "100,0"
End Sub

 

[Kevin]

Sorry Nigel, I been to busy and forgot to answer back.
Thank you for helping out with the code I tried it and it works as you said
and I can tweak it to fit my needs.
Thanks

Kevin

Kevin,

Try putting the following code behind your form, I think it provides you the
template you need. I have shown the value chosen in a MsgBox, you will use
this value for your process.

' use double clicks a value in the combo box
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With ComboBox1
If .ListIndex > -1 Then 'this checks it is a valid list entry (not
blank)
MsgBox "Selection = " & Range("A1", "B4").Cells(.ListIndex +
1, 2)
End If
End With
End Sub

' displays the name values columnA
Private Sub CommandButton1_Click()
ComboBox1.ColumnWidths = "100,0"
End Sub

'displays the acronym values columnB
Private Sub CommandButton2_Click()
ComboBox1.ColumnWidths = "0,100"
End Sub

' initialises the form showing just columnA
Private Sub UserForm_Initialize()
ComboBox1.ColumnWidths = "100,0"
End Sub

refresh of




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! >100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption

=---