Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Find duplicate, but only if an adjacent cell is identical | Excel Worksheet Functions | |||
find lowest number and return it's adjacent cell | Excel Worksheet Functions | |||
When data match, copy adjacent value to adjacent column | Excel Worksheet Functions | |||
How to find out the cell location | Excel Discussion (Misc queries) | |||
find data in adjacent cell | Excel Discussion (Misc queries) |