Copy and past the not equal value using macro [Solved/Closed]

Question

Copy and past the not equal value using macro [Solved/Closed]

Report

ctran123

Posts: 3
Registration date: Wednesday January 21, 2015
Status: Member
Last seen: March 3, 2015

- Updated on Nov 12, 2018 at 12:52 AM
Sam - Jul 10, 2017 at 08:36 AM

Hi guys!! Please help me with this.
I'm trying to compare two sheets in excel. If it is NOT a match then copy the entire row into a new third sheet.

Compare

Sheet 1 column C to Sheet 2 column E, if the numbers NOT match copy the entire row of matching sheet 1 column C data to a third Sheet 3.

Any help would be appreciated

Thanks!
Here is the code:

Sub RunMe()
Dim lRow, x As Long

Sheets("Sheet1").Select
lRow = Range("C1").End(xlDown).Row

For Each cell In Range("C2:C" & lRow)
x = 2
Do
If cell.Value <> Sheets("Sheet2").Cells(x, "E").Value Then
cell.EntireRow.Copy Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
x = x + 1
Loop Until IsEmpty(Sheets("Sheet2").Cells(x, "E"))
Next

End Sub

Excel vba if cell value equals then run macro
Make a macro run when data entered in a cell ✓ - Forum - Excel
Aimp equalizer presets - How-To - Software
Irql not less or equal - How-To - Windows
Vlc equalizer android - How-To - Android
Vlc equalizer settings for headphones - How-To - VLC

1 reply

Ask a question

RayH · Accepted Answer · 2015-01-21T19:51:01-0500

Answer 1 / 1

RayH
Jan 21, 2015 at 07:51 PM

Thanks for the sample code it really helps.
I made a few changes for you.


Sub runme2()
Dim lRow As Long, lastRowE As Long

Sheets("Sheet1").Select
lRow = Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row
lastRowE = Sheets("Sheet2").Range("E" & Rows.Count).End(xlUp).Row

For Each cell In Range("C2:C" & lRow)
 On Error GoTo docopy
 r = Rows(Application.Match(cell.Value, Sheets("Sheet2").Range("E1:E" & lastRowE), 0)).Row
Next
Exit Sub

docopy:
cell.EntireRow.Copy Sheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Resume Next
End Sub

Report

ctran123

Posts: 3
Registration date: Wednesday January 21, 2015
Status: Member
Last seen: March 3, 2015

Jan 21, 2015 at 08:05 PM

Thanks you so much.
it works perfectly !!!!

Report

Sam
Jul 10, 2017 at 08:36 AM

I was expecting this, thanks for sharing this one

Copy and past the not equal value using macro [Solved/Closed]

1 reply

Your reply

Subscribe To Our Newsletter!