Transfer entire row to another sheet

[aditya]

i want to do the following

In sheet1 ,if A1="ABC" transfer entire row1 data to sheet2
or if A1="DEF" transfer entire row1 data to sheet 3

similarly do for A2,A3,A4,A5...... cell of sheet1 and transfer data to
sheet 2 or sheet 3

thanks in advance

 

[Don Guillett]

Sub transferrowif()
For Each c In sheets("sheet1").Range("a1:a21")

If LCase(c) = "abc" Then
With Sheets("sheet2")
dlr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
c.EntireRow.Copy .Cells(dlr, 1)
End With

ElseIf LCase(c) = "def" Then
With Sheets("sheet3")
dlr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
c.EntireRow.Copy .Cells(dlr, 1)
End With
End If
Next c

End Sub

 

[Don Guillett]

Sub transferrowif()
For Each c In sheets("sheet1").Range("a1:a21")

If LCase(c) = "abc" Then
With Sheets("sheet2")
dlr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
c.EntireRow.Copy .Cells(dlr, 1)
End With

ElseIf LCase(c) = "def" Then
With Sheets("sheet3")
dlr = .Cells(Rows.Count, 1).End(xlUp).Row + 1
c.EntireRow.Copy .Cells(dlr, 1)
End With
End If
Next c

End Sub

 

[Don Guillett]

or use data>filter>autofilter>filter and then copy the entire block to the
desired sheet.

 

[Don Guillett]

or use data>filter>autofilter>filter and then copy the entire block to the
desired sheet.