search and replace data
Hi Anthony
This will replace all found instances of sheet1 A2, in Sheet 2 in the
range given.
Sub FindRplce()
Set rngA = Sheets("Sheet1").Range("A2")
Set rngB = Sheets("Sheet2").Range("A12:A100")
Set CpyRng = Sheets("Sheet1").Range("A2:O2")
For Each CellB In rngB
Found = False
For Each cellA In rngA
If CellB.Value = cellA.Value Then
Found = True
CpyRng.Copy CellB
End If
Next
Next
End Sub
Regards
Marcus
|