I am using the following code to search through multiple sheets for a value.
I need to select the data in the column to the left of the value and copy it
to another sheet. What do I need to replace the "C.value = "" " statement
with to select and copy to another location?
Sub FindEID()
Dim c As Range
Dim sFirstHit As String 'address of first hit
For i = 1 To Sheets.Count 'look in all sheets
With Range("c:c") 'use column c on all sheets
Set c = .Find(Range("EIDNO").Value, LookIn:=xlValues) 'find EIDNo from
Report Worksheet
If Not c Is Nothing Then 'find value
sFirstHit = c.Address
Do
'c.Value = ""
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
Next i
End Sub
Bookmarks