For Each cell In Range Copy/Paste Data to another Worksheet

[Felix1980]

Hello,
I'm having a bit of trouble fixing an issue I'm having and not having much luck googling the problem. I have a loop that searches for certain things. What I'm trying to do is have the row that the search is positive for print the value from Column A of that row into another sheet. I cannot, however, figure out how to do this. Please see below for my latest try, it's having issues at "Range(nextrow).Value = cell.Offset(0, -19).Value"

Sub checkpiececount()


Dim nextrow As Long


    For Each cell In Range("T77:T580")
        If cell.Value <> 0 Then
           If cell.Offset(0, -12).Value = 0 Then
               MsgBox "No Piece Count for SKU# " & cell.Offset(0, -19).Value
                nextrow = Sheet2.Cells(Rows.Count, "A").End(xlUp).Row + 1
                Range(nextrow).Value = cell.Offset(0, -19).Value
            End If
        End If
    Next cell
Sheet2.Select
End Sub

 

[mumps]

Try:

Sub checkpiececount()
    Application.ScreenUpdating = False
    Dim cel As Range
    For Each cel In Range("T77:T580")
        If cel.Value <> 0 Then
            If cel.Offset(0, -12).Value = 0 Then
                MsgBox "No Piece Count for SKU# " & cell.Offset(0, -19).Value
                Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Offset(1, 0) = cel.Offset(0, -19).Value
            End If
        End If
    Next cel
    Sheet2.Select
    Application.ScreenUpdating = True
End Sub

 

[Felix1980]

Thank you! I had been trying something like this but my syntax was a bit off.

 

[mumps]

You are very welcome.