List Box with macro

[VETcalc]

I have 100 clients and store their data on one sheet.


Example: Client A's data would be located at b230:k254.

Client B's data would be located at b260:k284

I would like to develop a List Box that would contain all of my clients.
Once a client is highlighted, I would like to press enter and have a
macro take me to the selected clients data.

Can someone please point me in the right direction to accomplish this task.

Thanks,

Bob

[Richard Buttrey]

On Mon, 27 Feb 2006 10:14:34 -0600, VETcalc
<VETcalc.23wbiz_1141056902.9177@excelforum-nospam.com> wrote:

>
>I have 100 clients and store their data on one sheet.
>
>
>Example: Client A's data would be located at b230:k254.
>
>Client B's data would be located at b260:k284
>
>I would like to develop a List Box that would contain all of my
>clients.
>Once a client is highlighted, I would like to press enter and have a
>macro take me to the selected clients data.
>
>Can someone please point me in the right direction to accomplish this
>task.
>
>Thanks,
>
>Bob

Probably several ways, but one that springs to mind is:

Create a unique list of your client names/codes and name the range say
"Clients"

In the RowSource property of the list box, enter the name "Clients"

I'm going to assume here that your data has the client name/code in
column A of sheet1. Change the code as necessary

In say the Click event of the ListBox, enter the following

Private Sub ListBox1_Click()
Dim stMyClient As String

stMyClient = UserForm1.ListBox1
Worksheets("sheet1").Activate
Range("a1").Select
Columns("A:A").Find(What:=stMyClient, After:=ActiveCell).Activate

End Sub

Hope this gives a general idea.





Richard Buttrey
__

[VETcalc]

Richard,

Thank you!

Bob