| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
copy rows
Sub loopcopy(
Dim target As Varian target = "Asset For a = 1 To Application.CountA(Sheets(1).Columns("a") If Sheets(1).Cells(a, 1) = target Then GoSub hi Next Exit Su hit x = Application.CountA(Sheets(2).Columns("a") Sheets(1).Rows(a).Copy Destination:=Sheets(2).Cells(x + 1, 1 Retur End Su HTH |
| Reply |
| 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 | |||
Hybrid Mode
