• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2698
  • Last Modified:

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
0
Tocogroup
Asked:
Tocogroup
1 Solution
 
SteveCommented:
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

Featured Post

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now