Hi,

I’m trying to find a way to use this code:

Set RngColD = Range("D2", Range("D" & Rows.Count).End(xlUp))
Info = ""
For Each i In RngColD
If i.Value = Range("A493").Value Then
If Info = "" Then
Info = i.Offset(, 10).Value
Else
Info = Info & "," & i.Offset(, 10).Value
End If
End If
Next i
Range("I493") = Info
Info = ""


but is taking me too long because I have to apply it cell by cell, is
there any way to modified it to work in complete columns, something
like this



Set RngColD = Range("D2", Range("D" & Rows.Count).End(xlUp))
Info = ""
For Each i In RngColD
If i.Value = Range("A493:A519").Value Then
If Info = "" Then
Info = i.Offset(, 10).Value
Else
Info = Info & "," & i.Offset(, 10).Value
End If
End If
Next i
Range("I493:A519") = Info
Info = ""


--
John21
------------------------------------------------------------------------
John21's Profile: http://www.excelforum.com/member.php...o&userid=36983
View this thread: http://www.excelforum.com/showthread...hreadid=570427