excel problem.....

[Greyskull]

i've got a list of names in column A:H and i want a textbox and a commandbutton that can be used to search the list of items I've got in column A
i.e. In column A I've got a list of computer brands and by using the search button it will show the results that match up on columns I:O

Can anyone show me a code for this if it is possible to do.

Thanx for ur time,
Greyskull

[Garratt]

I can't picture what you are trying to do at all.

Can you upload a small example sheet or something?


Column A has computer brand names
Columns B:H have.... ?
Columns I:O have.......?

What is matching what?

[Just Shan]

Hi,

I don't understand why would you need a Textbox and a commandbutton to do this.

Put this code on a button and it will do for you.



Sub FindThis()
Dim MyValue, MyFindNext
[A1].Select
MyValue = InputBox("What Would you Like To Search.", "Company Name")

On Error GoTo err_Trap
Cells.Find(What:=MyValue, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate

MyFindNext = vbYes
Do Until MyFindNext <> vbYes
MyFindNext = MsgBox("Would you like to find the next instance of " & MyValue & "?", _
vbYesNo, "Find Next")
If MyFindNext = vbNo Then
Exit Sub
End If
Cells.FindNext(After:=ActiveCell).Activate
Loop
On Error GoTo 0
Exit Sub

err_Trap:
If Err.Number = 91 Then
MsgBox "Could not find " & MyValue & " anywhere on this sheet.", , "Unsuccessful search"
Else
MsgBox Err.Number & ": " & Err.Description
End If
End Sub




Best Regards,

S h a n