Excel Macros
Closed
sreenivasulu
Posts
1
Registration date
Monday August 26, 2013
Status
Member
Last seen
August 26, 2013
-
Aug 26, 2013 at 06:16 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Aug 26, 2013 at 11:53 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Aug 26, 2013 at 11:53 AM
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
December 27, 2022
552
Aug 26, 2013 at 11:53 AM
Aug 26, 2013 at 11:53 AM
Hi Sreenivasulu,
Here you go:
Best regards,
Trowa
Here you go:
Sub RunMe() Dim lRow, x As Integer lRow = Range("D" & Rows.Count).End(xlUp).Row For Each cell In Range("D1:D" & lRow) x = 0 Do x = x + 1 If cell.Value = Range("A" & x).Value And _ cell.Offset(0, 1).Value = Range("B" & x).Value Then cell.Offset(0, 2).Value = Range("C" & x).Value End If Loop Until x = lRow Next cell End Sub
Best regards,
Trowa