Copy data to another sheet if it meets criteria

[joand]

I have two columns (C and D) in Sheet1.

I need to copy the range in Column D (Range D10:D29) to another worksheet (Sheet2) if the value in Column C (Range C10:C29) exceeds 0.

For example, if the value of C10 is 1, then the data in D10 is copied to Sheet2 (probably in A1 perhaps), then checks the value of the next row C11, if it is greater than 0, then the data in D11 is copied to Sheet2 A2.

However, if C12 is 0, then then the data in D12 is NOT COPIED. If the next row C13 is greater than 0 then the data in D13 is copied to Sheet2 A3, and so on.

Can you help me get started?

 

[VoG]

Try

Sub cpy()
Dim LR As Long, i As Long
With Sheets("Sheet1")
LR = .Range("C" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        With .Range("C" & i)
            If .Value > 0 Then .Offset(, 1).Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
        End With
    Next i
End With
End Sub

 

[JamesW]

Hi,

Try something like this:

Sub test()
    Dim lRow, i As Integer
    lRow = Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
    For i = 10 To 29
        If Cells(i, 3).Value > 0 Then
            Cells(i, 4).Copy Destination:=Sheets("Sheet2").Range("A" & lRow)
            lRow = lRow + 1
        End If
    Next i
End Sub

 

[joand]

Thanks James and Peter. This is what I need.