| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy non blank cells to another worksheet
Norman Jones wrote: Hi JD, Try the following version which avoids selections: '============= Sub CopyDataOnly() On Error Resume Next Sheets("Sheet1").Range("A10:A100"). _ SpecialCells(xlCellTypeConstants, 23).Copy Sheets("Sheet2").Range("A10").PasteSpecial _ Paste:=xlPasteValues, _ Operation:=xlNone, _ SkipBlanks:=False, _ Transpose:=False On Error GoTo 0 Application.CutCopyMode = False End Sub '<<============= Selections are rarely necessary or desirable. Thanks Norman, that works a treat. |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Copy cell value into blank cells below (full worksheet) | Excel Worksheet Functions | |||
| copy data from one worksheet and disregard blank cells | Excel Discussion (Misc queries) | |||
| Copy Data from Row 1 to last blank row in next worksheet | Excel Worksheet Functions | |||
| Where are the examples from Help to copy to a blank worksheet? | Excel Discussion (Misc queries) | |||
| Macro copy and paste = blank worksheet | Excel Discussion (Misc queries) | |||
Threaded Mode
