I don't know what IDS is on sheet System C. Is it column D or column E?
You might go into more detail.
e.g.
Step 1:
1. Cat A would:
a. Copy, System C!D8:D17 to System B!A19
Try a before and after for System B so we can see what you need for that part. Once we get that done, we can do the other parts.
Thanks for your reply Kenneth. The IDS on System C is on Column D. I have managed to get the following code with quite a bit of asisstance.
Sub CAT A()
'
' CATA Macro
'
'
Dim R As Range, Fr As Range
Dim FindAddress As String
Worksheets("System C").Select
'Reset the interior color of the range to none.
Range("M10:O22").Interior.ColorIndex = xlNone
'Loop through each cell of the named range "Flow_llu".
For Each Fr In Range("Flow_llu")
'If the cell is not empty then.
If Fr.Value <> "" Then
Worksheets("System B").Select
With Range("A1:C100")
'Start searching for the cell value in Range("A1:C100").
Set R = .Find(Fr.Value)
'If a match is found.
If Not R Is Nothing Then
'Store the address of the cell where the first match is found in a variable.
FindAddress = R.Address
'Start to loop.
Do
'Color the cell where a match is found grey
R.Interior.ColorIndex = 15
R.Offset(0, 1).Select
Selection.Interior.ColorIndex = 15
'Search the next cell with a matching value.
Set R = .FindNext(R)
'Loop as long matches are found, and the address of the cell where a match is found,
'is <> as the address of the cell where the first match is found (FindAddress).
Loop While Not R Is Nothing And R.Address <> FindAddress
End If
End With
End If
'Go to the next cell.
Next Fr
'Clear memory.
Set R = Nothing
End Sub
This manages to highlight the required cells, but I now need to add values of the cells that have highlighted in gray so that this could be compared to the values to the System A sheet.
hope that makes sense. thanks once again.
Bookmarks