Hi, your code is working, but i need the same thing applied to this code.
I can't make this work.

Sub CopyPaste()
'
' CopyPaste Macro
' Macro recorded 10.09.2009 by J
'

'
Range("B2").Select
Windows("ev com.xls").Activate
Range("B5:G150").Select
ActiveWindow.SmallScroll Down:=-129
Range("B5:G150,J5:K150").Select
Range("J5").Activate
Selection.Copy
Windows("Copy To.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
ActiveWindow.SmallScroll Down:=-18
End Sub

Thanks allot!


"Jacob Skaria" a scris:

Try the below macro which copy the range to Sheet2 ignoring the rows which
start with "zzzz" in Column B.

Sub Macro()
Dim lngRow As Long
For Each cell In Range("B2:J150").Rows
If Not cell.Cells(1).Text Like "zzzz*" Then
lngRow = lngRow + 1
cell.Copy Sheets("Sheet2").Range("A" & lngRow)
End If
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"puiuluipui" wrote:

Hi, i have a macro that copy a range (B2:J150)...and i need the macro to
ignore row that begin with "zzzz". I need macro to copy everything in range,
except the row that begin with "zzzz".
I only need this part of the code.
Can this be done?
Thanks!