Collect rows matching criteria to display in a message box

S

Sunryzz

I am writing a small Excel app that allows the user to enter a word they are
looking for and then searches through the worksheet to find any rows that
contain that word. I then want to list those rows so the user can choose the
one they want. I've gotten this far...

Sub Find()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter your word")

If Trim(FindString) <> "" Then
Set Rng = Cells.Find(What:=FindString, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False)

I just don't know what to do now to take the items I find and collect them
to display. Is this even possible? I've heard developers say that "anything
is possible", but I've been working on this for 2 days and I just am
clueless!!

Thank you for any help you can provide!!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top