Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Transfer entire row to another sheet
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Transfer entire row to another sheet
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 Microsoft MVP Excel SalesAid Software "aditya" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
transfer entire row in sheet 2 | New Users to Excel | |||
transfer entire row to another sheet | Excel Discussion (Misc queries) | |||
transfer contents from a cell in previous sheet if the sheet is a | New Users to Excel | |||
How to Automatically transfer specific Data from Sheet 1 to Sheet | Excel Worksheet Functions | |||
Transfer/Copy Sheet, Dynamically linked Sheet | Excel Discussion (Misc queries) |