| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Macro Help- Inserting Blank Rows
I have a spreadsheet that I've created a Macro to resort. In the
process of the resort, I had to get rid of blank rows between data. My boss wants for the rows to be back in the report for aesthetic reasons....how?!? PreMacro: 9997468309 6600 9997291271 9997291298 9997484746 9997539753 8900 0030784328 9997539761 8910 0030416639 9997549023 5540 0030797683 0030922550 9997484746 9997549147 999754904X 4750 After My Macro: 9997550331 9450 0030421292 0030423430 0030423872 0030940354 003094127X 9997291271 9997291298 9997484746 9997559827 5070 0030780624 003078641X 003078672X 9997291271 9997291298 9997484746 9997551680 4070 thanks! |
|
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro Help- Inserting Blank Rows
Cheers! Thanks!
The check is in the mail! Don Guillett wrote: try this and tell your boss to send me a check. Sub insertrowabove() For i = Cells(Rows.Count, "c") _ .End(xlUp).Row To 2 Step -1 If Len(Cells(i, "c")) 2 Then Rows(i).Insert Next i End Sub -- Don Guillett SalesAid Software "jack" wrote in message ups.com... I have a spreadsheet that I've created a Macro to resort. In the process of the resort, I had to get rid of blank rows between data. My boss wants for the rows to be back in the report for aesthetic reasons....how?!? PreMacro: 9997468309 6600 9997291271 9997291298 9997484746 9997539753 8900 0030784328 9997539761 8910 0030416639 9997549023 5540 0030797683 0030922550 9997484746 9997549147 999754904X 4750 After My Macro: 9997550331 9450 0030421292 0030423430 0030423872 0030940354 003094127X 9997291271 9997291298 9997484746 9997559827 5070 0030780624 003078641X 003078672X 9997291271 9997291298 9997484746 9997551680 4070 thanks! |
|
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
|
Macro Help- Inserting Blank Rows
Glad to help.
-- Don Guillett SalesAid Software "jack" wrote in message ups.com... Cheers! Thanks! The check is in the mail! Don Guillett wrote: try this and tell your boss to send me a check. Sub insertrowabove() For i = Cells(Rows.Count, "c") _ .End(xlUp).Row To 2 Step -1 If Len(Cells(i, "c")) 2 Then Rows(i).Insert Next i End Sub -- Don Guillett SalesAid Software "jack" wrote in message ups.com... I have a spreadsheet that I've created a Macro to resort. In the process of the resort, I had to get rid of blank rows between data. My boss wants for the rows to be back in the report for aesthetic reasons....how?!? PreMacro: 9997468309 6600 9997291271 9997291298 9997484746 9997539753 8900 0030784328 9997539761 8910 0030416639 9997549023 5540 0030797683 0030922550 9997484746 9997549147 999754904X 4750 After My Macro: 9997550331 9450 0030421292 0030423430 0030423872 0030940354 003094127X 9997291271 9997291298 9997484746 9997559827 5070 0030780624 003078641X 003078672X 9997291271 9997291298 9997484746 9997551680 4070 thanks! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Macro needed for inserting blank rows | Excel Worksheet Functions | |||
| Step up blank rows | Excel Discussion (Misc queries) | |||
| Using COUNTIF to search for existence | Excel Worksheet Functions | |||
| How do I create a Macro to sort data and insert blank rows & subto | Excel Worksheet Functions | |||
| macro to hide rows if cell is blank | Excel Worksheet Functions | |||
Linear Mode
