Skip cells that equal 0 - IF, Loop

[mozza90]

Hi,

I have the below code which currently check a cell for a value greater than 0, if it is, it copies the figure into another sheet. The code loops until the last row of data.

It has now arisen that sometimes the figure in the Data cell can equal 0. Is there a way to skip the cell if it contains 0 and then continue to check the remaining data?

Do Until ActiveCell.Value = ""
          Data = ActiveCell.Offset(0, 12).Value
        
            If Data > 0 Then
                ActiveCell.Offset(0, 12).Select
                Range(ActiveCell.Offset(0, -12), ActiveCell).Select
                Selection.copy
                Sheet2.Select
                Range("A1048575").Select
                Selection.End(xlUp).Offset(1).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
             End If

            ActiveCell.Offset(0, 13).Select
            ActiveCell.FormulaR1C1 = "Client A"
            
            
            Sheet1.Select
            ActiveCell.Offset(1, 0).Select
            
     Loop

 

[Fluff]

Try

If Data >= 0 Then

 

[yky]

Do Until ActiveCell.Value = ""
          Data = ActiveCell.Offset(0, 12).Value
        
            If Data > 0 Then
                ActiveCell.Offset(0, 12).Select
                Range(ActiveCell.Offset(0, -12), ActiveCell).Select
                Selection.copy
                Sheet2.Select
                Range("A1048575").Select
                Selection.End(xlUp).Offset(1).Select
                Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
             [COLOR=#ff0000]End If <-- delete this line[/COLOR]

            ActiveCell.Offset(0, 13).Select
            ActiveCell.FormulaR1C1 = "Client A"
            
            [COLOR=#ff0000]End If <-- add this line[/COLOR]

            Sheet1.Select
            ActiveCell.Offset(1, 0).Select
            
     Loop

 

[mozza90]

Thanks Fluff. This stops my error, but it still copies the data when the cell = 0. Is there a way for the code to skip over 0's and continue to the next cell in the range?

 

[Fluff]

Firstly you made no mention of any errors.
Secondly I misread your question.
You need to keep the code as it was & that should be ok. If you are getting any error messages, what are they & what line is highlighted.