Copy certain rows that have a certain value range in a column to a new worksheet

[ambarish]

Hi,

Could you please help me with a VBA code that would look at column M in sheet 1 and if any cells in column M =>10,000,000 then this entire row gets copied on another worksheet. Thanks so much for your help.

Ambarish

 

[pboltonchina]

Try this on a copy of your data as it is untested

Sub Copy()
Application.ScreenUpdating = False
Dim LR As Long, i As Long
LR = Range("M" & Rows.count).End(xlUp).Row
For i = LR To 1 Step -1
If Range("M" & i).Value => "10,000,000" Then Rows(i).Copy Destination:=Sheets("Sheet2").Cells(Rows.count, "A").End(xlUp).Offset(1)
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[ambarish]

Thanks for your reply. I get an error message - Compile Error: (End if without block if). Could you please help? Thanks again.