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 Contributor Last seen December 27, 2022 - Aug 26, 2013 at 11:53 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Contributor Last seen December 27, 2022 - Aug 26, 2013 at 11:53 AM
Related:
- Excel Macros
- Excel online macros - Guide
- Excel mod apk for pc - Download - Spreadsheets
- Kernel for excel repair - Download - Backup and recovery
- Vat calculation excel - Guide
- Excel run macro on open - Guide
1 response
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Contributor
Last seen
December 27, 2022
555
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