| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
copy row to new sheet where cell value meets criteria
Please can you help me to define a macro to copy all rows in worksheet1 where
cell Ax does not contain value zero to worksheet2 |
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
copy row to new sheet where cell value meets criteria
Sub CopyNonZero()
Dim v j = 1 For i = 1 to 65536 If Sheets("Sheet1").Cells(i,1) < 0 Then v = Sheets("Sheet1").Cells(i,1).EntireRow Sheets("Sheet2").Cells(j,1).EntireRow = v j = j + 1 End If Next i End Sub HTH Kostis Vezerides On Feb 13, 5:45 pm, djhs63 wrote: Please can you help me to define a macro to copy all rows in worksheet1 where cell Ax does not contain value zero to worksheet2 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| find cell address that meets the criteria | Excel Discussion (Misc queries) | |||
| How can I get a cell to Flash if it meets a certain criteria in Ex | Excel Worksheet Functions | |||
| How do I go to the next cell that meets criteria | Excel Discussion (Misc queries) | |||
| Highlight a row automatically if a cell meets certain criteria | Excel Worksheet Functions | |||
| Get data if cell within a row meets criteria | Excel Discussion (Misc queries) | |||
Linear Mode
