Help needed in using marcos
Solved/Closed
Asmodeux
Asmodeux - Jul 30, 2013 at 11:41 AM
- Posts
- 2
- Registration date
- Sunday July 28, 2013
- Status
- Member
- Last seen
- July 28, 2013
Asmodeux - Jul 30, 2013 at 11:41 AM
Related:
- Help needed in using marcos
- Marco artist painter - Guide
- Marco to delete cells containing an interger ✓ - Forum - Excel
- Marcos ✓ - Forum - Office Software
- Marco help! One macro for multiple row tasks ✓ - Forum - Excel
4 replies
TrowaD
Jul 29, 2013 at 11:44 AM
- Posts
- 2880
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- May 2, 2022
Jul 29, 2013 at 11:44 AM
Hi Asmodeux,
You are comparing ws2 with ws2.
So change the 2 into 3 in one of the two code lines:
Set CheckRange = ws2.Range("E2:E80")
or
If cell.Value <> ws2.Cells(cell.Row, cell.Column).Value Then
Best regards,
Trowa
You are comparing ws2 with ws2.
So change the 2 into 3 in one of the two code lines:
Set CheckRange = ws2.Range("E2:E80")
or
If cell.Value <> ws2.Cells(cell.Row, cell.Column).Value Then
Best regards,
Trowa
Thank man it worked ...
One more question if you don't mind helping me around...
How to do paste the difference into another worksheet ?
Greatly appreciate for your help
One more question if you don't mind helping me around...
How to do paste the difference into another worksheet ?
Greatly appreciate for your help
TrowaD
Jul 30, 2013 at 10:31 AM
- Posts
- 2880
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- May 2, 2022
Jul 30, 2013 at 10:31 AM
Hi Asmodeux,
I'm here to help, so here we go.
It depends on which value you want to paste.
Change:
Best regards,
Trowa
I'm here to help, so here we go.
It depends on which value you want to paste.
Change:
If cell.Value <> ws2.Cells(cell.Row, cell.Column).Value Then cell.Interior.Color = RGB(200, 160, 35) End IfInto:
If cell.Value <> ws2.Cells(cell.Row, cell.Column).Value Then cell.copy Sheets("Your sheet name").range("A"&rows.count).end(xlup).offset(1,0) cell.Interior.Color = RGB(200, 160, 35) End IfOr:
If cell.Value <> ws2.Cells(cell.Row, cell.Column).Value Then ws2.Cells(cell.Row, cell.Column).copy Sheets("Your sheet name").range("A"&rows.count).end(xlup).offset(1,0) cell.Interior.Color = RGB(200, 160, 35) End If
Best regards,
Trowa