How do I copy the FIND results in Excel 2010 to another worksheet ?

Hi,

I'm trying to copy the FIND results returned as they appear in a 'Find and Replace' dialog box in Excel 2010, so I can print them out.

A screenshot will not catch those results which require scrolling.

Any ideas ?
Thanks
Toco
TocogroupAsked:
Who is Participating?
 
SteveConnect With a Mentor Commented:
You could use something like the attached function:

Function find_all(str As String, rng As Range) As String
    For Each c In rng
        If InStr(1, c.Value, str, vbTextCompare) > 0 Then
            find_all = find_all & c.Address & " "
        End If
    Next
End Function

Open in new window



thsi folowing function (not in file attached) will allow you to copy the cell result into word or similar with one line per result:
Function find_all(str As String, rng As Range) As String
    Dim c As Range
    For Each c In rng
        If InStr(1, c.Value, str, vbTextCompare) > 0 Then
            find_all = find_all & c.Worksheet.Name & "!" & c.Address & vbCrLf
        End If
    Next
End Function

Open in new window

FindAll-example.xlsm
0
 
TocogroupAuthor Commented:
That's great. Many thanks Barman.
Toco
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.