Question

I am trying to look up cells in a certain column that have a string (e.g. Names), copy the corresponding cells in the column to its right (i.e. offset(0,1) ), then paste it to a column in a different sheet. I have the following code to find the range variable that I want. However, I can’t select it from a different sheet!
When I use Sheets(1).MyRange.Copy, it doesn’t accept it. Am I referring to the range in a wrong way? What am I doing wrong?

Here’s code that I use to get MyRange:

Option Explicit

Sub SelectByValue(Rng1 As Range, Value As Double)

Dim MyRange As Range
Dim Cell As Object

 'Check every cell in the range for matching criteria.
For Each Cell In Rng1
    If Cell.Value = Value Then
        If MyRange Is Nothing Then
            Set MyRange = Range(Cell.Address)
        Else
            Set MyRange = Union(MyRange, Range(Cell.Address))
        End If
    End If
Next


End Sub

Sub CallSelectByValue()

 'Call the macro and pass all the required variables to it.
 'In the line below, change the Range, Minimum Value, and Maximum Value as needed
Call SelectByValue(Sheets(1).Range("A1:A20"), "Tom")

End Sub

One More Question: Rather than specifying the exact range to look at (e.g. “A1:A20”), I would LOVE to look at all of column A. But I don’t want to use (“A:A”) so it wouldn’t look at all rows of A. Isn’t there a method to look only in cells that have entries in column A?

Thank you VERY much.

Al

Answer 1

You only need MyRange.Copy.

To restrict only to cells in column A which might have values, you could use

With Sheet1
   Set rngToSearch = Application.Intersect(.Columns(1), .UsedRange)
  End With

…or maybe look at .SpecialsCells()