Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying rows one at a time to another sheet ones a criteria has been forfilled
hello, I want to set up a code that will search in a sheet for a certain value within a single cell in a fixed column, once this criteria has been done then this entire row must be copied into another sheet. Does anybody know a good code for doing such an operation with a minimum of code. Regards, Niek ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying rows one at a time to another sheet ones a criteria has been forfilled
Try this with your data in Sheet1
It will copy the row to sheet2 if "ron" is in the Acolumn Sub copy_to_other_sheet() Dim a As Long Dim i As Long With Sheets("sheet1") i = .Cells(Rows.Count, "A").End(xlUp).Row For a = 1 To i If .Cells(a, "A").Value = "ron" Then .Cells(a, "A").Copy _ Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) Next a End With End Sub -- Regards Ron de Bruin (Win XP Pro SP-1 XL2002 SP-2) www.rondebruin.nl "solo_razor" wrote in message ... hello, I want to set up a code that will search in a sheet for a certain value within a single cell in a fixed column, once this criteria has been done then this entire row must be copied into another sheet. Does anybody know a good code for doing such an operation with a minimum of code. Regards, Niek ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
copying rows one at a time to another sheet ones a criteria has been forfilled
Try this. Modify to suit
Sub findandcopy() Columns("B").Find("x").EntireRow.Copy _ Sheets("sheet2").Range("a1") End Sub Here is one to delete the row Sub findanddelete() Columns("B").Find("x").EntireRow.Delete End Sub "solo_razor" wrote in message ... hello, I want to set up a code that will search in a sheet for a certain value within a single cell in a fixed column, once this criteria has been done then this entire row must be copied into another sheet. Does anybody know a good code for doing such an operation with a minimum of code. Regards, Niek ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copying whole row to another sheet based on criteria on cell | Excel Discussion (Misc queries) | |||
Copying rows with specific criteria | Excel Discussion (Misc queries) | |||
Copying rows depending on criteria set? | Excel Discussion (Misc queries) | |||
Copying line from one sheet to another based on given criteria | Excel Worksheet Functions | |||
Copying whole rows based upon one criteria | Excel Discussion (Misc queries) |