How to exclude the value 0,00 or 0.00 from being copied

[Romano_odK]

Good afternoon,

Using this code I can copy values from one column to another. Now I would like to exclude the values 0,00 or 0.00 from being copied. Can this be done?

Thank you for your time.

Romano

Range("D9", Cells(Rows.Count, "D").End(xlUp)).Copy

Worksheets("OPXML").Range("C9").PasteSpecial Paste:=xlPasteValues, SkipBlanks:=False

 

[JEC]

Not knowing how your data looks like, but you could do a filter first. Make sure you data has a header in D9

Sub jec()
 Application.ScreenUpdating = False
 With Range("D9", Cells(Rows.Count, "D").End(xlUp))
   .AutoFilter 1, "<>0.00", xlAnd, "<>0,00"
   .Offset(1).Copy
    Sheets("OPXML").Range("C9").PasteSpecial xlPasteValues
   .AutoFilter
 End With
End Sub