| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy rows
I am trying to avoid using select. Does anyone have any better code to achieve the following result
Sub loopcopy( Dim target As Strin target = "Asset For a = 1 To 200 If Sheets(1).Cells(a, 1) = target Then GoSub hi Next Exit Su hit x = Application.CountA(Sheets(2).Columns("a") Rows(a).Cop Sheets(2).Selec Rows(x).Selec ActiveSheet.Past Sheets(1).Selec Retur End Su TIA |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| How do I Copy and Paste onto Same Rows after filtering out rows. | Excel Discussion (Misc queries) | |||
| Copy rows from one worksheet automatically, ignore rows that are b | Excel Worksheet Functions | |||
| copy of certain rows | Excel Worksheet Functions | |||
| Copy rows of data (eliminating blank rows) from fixed layout | Excel Discussion (Misc queries) | |||
| Hide Rows - copy and paste only rows that show | Excel Worksheet Functions | |||
Threaded Mode
