| Home |
| Search |
| Today's Posts |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Simple seach and copy help needed
Sub Macro1()
Dim iCt As Integer Dim iRow1 As Integer Dim iRow2 As Integer iRow1 = Sheets(1).Range("A65536").End(xlUp).Row For iCt = 1 To iRow1 If Sheets(1).Cells(iCt, 1) 10000 Then iRow2 = iRow2 + 1 Sheets(1).Rows(iCt).Copy Sheets(2).Rows(iRow2) End If Next iCt End Sub Hth, Merjet |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| simple loop needed please | Excel Discussion (Misc queries) | |||
| Another simple formula needed | Excel Worksheet Functions | |||
| Help needed in a simple task | Excel Discussion (Misc queries) | |||
| simple (i think) UDF debug help needed | Excel Discussion (Misc queries) | |||
| simple help needed please | Excel Programming | |||
Threaded Mode
