VBA Code numbering Cross Reference

[khikha1]

dear all

please need your help with a VBA code to find cross references and number them. i add a colors to explain my need. the code should take an item from column A and look in column B and C if it finds a reference for it it has to search column A again , if it find it or find them ,the code is to number them is column D. ( 1,2, ......) , if there is no Cross reference the cell in column D is to be Empty .
hope the attached picture is clear .
i really appreciate your help with this code as i am in real need for it .

regards
ziad alsayed .

 

[khikha1]

dear plettieri

please need your assistance

i found this code and problem sorted out , thanks again

Sub UnifyItems()
Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Dim currentItem As String
Dim itemCounter As Integer
itemCounter = 1
Dim i As Long
For i = 2 To lastRow
If Cells(i, 2) <> "" Then
currentItem = Cells(i, 2)
ElseIf Cells(i, 3) <> "" Then
currentItem = Cells(i, 3)
Else
currentItem = Cells(i, 1)
End If
If currentItem <> "" Then
Dim j As Long
For j = 2 To lastRow
If Cells(j, 1) = currentItem Or Cells(j, 2) = currentItem Or Cells(j, 3) = currentItem Then
Cells(j, 4).Value = itemCounter
End If
Next j
itemCounter = itemCounter + 1
End If
Next i
End Sub

 

[StephenCrump]

i found this code and problem sorted out ,

OK, I'm glad you found a solution.

But this code produces results totally different to anything you have posted here in this thread.