transfer entire row to another sheet
 

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

transfer entire row to another sheet
 

try
sub transferif()
if range("a2")="ABC" then rows(2).cut sheets("sheet2").range("a2")
end sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"aditya" wrote in message
...
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

transfer entire row to another sheet
 

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


"aditya" wrote:

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