Pulling rows from worksheet into userform

[llan_man]

Hi,

I'm hoping someone can help me here. What I have is the following:

A spreadsheet with 20 columns
The fourth column contains an identifier relating to a particular "section"
There are many rows relating with the same identifier
I have a user form which has a combobox so the user can select a predefined identifier.
When the user selects this identifier, I want to recover all rows in my worksheet which have the same identifier in th fourt column,
Ideally I would like all columns to appear in one textbox separated by some form of split bar and a scroll bar. These must also be totalled at the bottom.

Anyone have any ideas on how I should get started as I'm struggling.

Thanks

Harv

 

[anthonya2369]

Private Sub ComboBox1_Change()
TextBox1.Text = ""

Dim cell As Range

For Each cell In Range(Range("d1"), Range("d65536").End(xlUp))
    If cell.Value = ComboBox1.Text Then
        TextBox1.Text = TextBox1.Text & cell.Offset(0, 1).Value & vbCrLf
    End If
Next cell



End Sub

Something like this will pull in the column right next to it with the offset command. I do not know if you have column 4 populated in each row or not but this should get you going in the right direction. The vbcrlf is to go down a line and in my textbox, I have it set to multiline = true.

 

[llan_man]

Anthony

Thanks very much. That's extremely useful code. Would you know how to display the data in columns within the same textbox?

Thanks

Harv

 

[anthonya2369]

You would probably be better with a listbox.

With Listbox, change the code:

TextBox1.Text = TextBox1.Text & cell.Offset(0, 1).Value & vbCrLf

To this:

listbox.add cell.offset(0,1).value

 

[llan_man]

Thanks Anthony. I'll give that a go.

Hav