| Home |
| Search |
| Today's Posts |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Skip copying empty column where remaining rows are filled
Hi,
or try: For Each rngC In headerrow Select Case rngC.Value Case "Value 1", "Value 2", "Value 3" LRow = Cells(Rows.Count, rngC.Column).End(xlUp).Row If LRow 1 Then Range(Cells(1, rngC.Column), _ Cells(LRow, rngC.Column)).Copy Regards Claus Busch -- Win XP PRof SP2 / Vista Ultimate SP2 Office 2003 SP2 /2007 Ultimate SP2 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Count filled data rows until empty | Excel Discussion (Misc queries) | |||
| Hpw do I delete multiple empty rows found between filled rows? | Excel Worksheet Functions | |||
| Skip hidden rows while copying down in excel? | Excel Discussion (Misc queries) | |||
| SKIP EMPTY ROWS FROM IMPORT | Excel Programming | |||
| Skipping empty rows when copying a formula down a column | Excel Programming | |||
Threaded Mode
