transfer entire row to another sheet

[aditya]

i want to apply following condition

IN SHEET1 if A2="ABC"
Transfer all data in row 2 to row 2 in sheet 2

pls help

 

[Don Guillett]

try
sub transferif()
if range("a2")="ABC" then rows(2).cut sheets("sheet2").range("a2")
end sub

 

[Eduardo]

Hi,
try
Sub copyrange()
'

With Sheets("Sheet1")
If Range("A2") = "ABC" Then
Rows(2).Copy


End If
End With



With Sheets("Sheet2").Range("A2")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
Application.CutCopyMode = False
End With

'
End Sub