View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
JJalomo JJalomo is offline
external usenet poster
 
Posts: 1
Default Find Cell and Copy adjacent value to another location

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