copy row if equal

[shadow12345]

I need a way to copy the whole row from a sheet call "combine" if coloumn AH of the row does not equals 1 and paste it into a sheet called "we dk"


any ideas

 

[erik.van.geit]

Hello, shadow12345,

for which row do you want to do this ?
selected row ?
all rows within the entire sheet ?
all rows within a certain range ?

kind regards,
Erik

 

[Von Pookie]

Something like this, maybe?

Sub test()
Dim LastRow As Long, i As Long
Dim PasteRng As Range

LastRow = Sheets("combine").Range("A65536").End(xlUp).Row
Set PasteRng = Sheets("we dk").Range("A65536").End(xlUp).Offset(1, 0)

With Sheets("combine")
    For i = 1 To LastRow
        If .Cells(i, "AH") <> 1 Then
            .Rows(i).Copy Destination:=PasteRng
            Set PasteRng = PasteRng.Offset(1, 0)
        End If
    Next i
End With

End Sub