Select row based on condition and copy to other different sheet.

Hi all,

I am looking for an VBA code to transfer all rows with status in column T "Ja" to the next open line in the next work sheet. Could you please help me out!

Hello Allard6,

I tried the following code in your sample work book and it worked just fine:-

Sub DataTransfer()

Application.ScreenUpdating = False

With Sheet1
    .AutoFilterMode = False
With Range("T4", Range("T" & Rows.Count).End(xlUp))
            .AutoFilter 20, "Ja"
            If Range("T" & Rows.Count).End(xlUp).Row > 4 Then
            .Offset(1).EntireRow.Copy
            Sheet3.Range("A" & Rows.Count).End(3)(2).PasteSpecial xlValues
            .Offset(1).EntireRow.Delete  '----->Remove this line if you do not wish to delete the "used" data in sheet1.
            End If
     End With
[T4].AutoFilter
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True

End Sub

I hope that this helps.

Cheerio,
vcoolio.