Insert Lines
in [Functions]
|
Prev: Formula to calculate Latest Cost (inventory valuation)
Next: Dynamic pivot table linked to dynamic excel spreadsheets
From: RENEE on 5 May 2010 17:31 Sorry, that's way beyond me. Could you spell it out in detail. Thanks. "Billns" wrote: > On 4/29/2010 1:29 PM, RENEE wrote: > > I have a worksheet sent to me with over 700 names on it. I need to put 4 > > extra lines under each name. Is there a way to do this without having to > > individually insert those lines as this will take a long time. Thanks. > > Record a macro to insert four lines and move down one line, then repeat > it as needed. > > Bill > . >
From: Gord Dibben on 5 May 2010 20:07 Assumes names are in column A Sub rowsinsertfour() 'don guillett For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1 If Cells(i, 1) <> "" Then _ Cells(i, 1).Resize(4, 1).entirerow.Insert Next i End Sub If you're not familiar with VBA and macros, see David McRitchie's site for more on "getting started". http://www.mvps.org/dmcritchie/excel/getstarted.htm or Ron de De Bruin's site on where to store macros. http://www.rondebruin.nl/code.htm In the meantime.......... First...create a backup copy of your original workbook. To create a General Module, hit ALT + F11 to open the Visual Basic Editor. Hit CRTL + r to open Project Explorer. Find your workbook/project and select it. Right-click and Insert>Module. Paste the code in there. Save the workbook and hit ALT + Q to return to your workbook. Run or edit the macro by going to Tool>Macro>Macros. You can also assign this macro to a button or a shortcut key combo. Gord Dibben MS Excel MVP On Wed, 5 May 2010 14:31:01 -0700, RENEE <RENEE(a)discussions.microsoft.com> wrote: > >Sorry, that's way beyond me. Could you spell it out in detail. Thanks. >"Billns" wrote: > >> On 4/29/2010 1:29 PM, RENEE wrote: >> > I have a worksheet sent to me with over 700 names on it. I need to put 4 >> > extra lines under each name. Is there a way to do this without having to >> > individually insert those lines as this will take a long time. Thanks. >> >> Record a macro to insert four lines and move down one line, then repeat >> it as needed. >> >> Bill >> . >>
From: Billns on 7 May 2010 14:59
On 5/5/2010 5:07 PM, Gord Dibben wrote: > Assumes names are in column A > > Sub rowsinsertfour() > 'don guillett > For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1 > If Cells(i, 1)<> "" Then _ > Cells(i, 1).Resize(4, 1).entirerow.Insert > Next i > End Sub > > If you're not familiar with VBA and macros, see David McRitchie's site for > more on "getting started". > > http://www.mvps.org/dmcritchie/excel/getstarted.htm > > or Ron de De Bruin's site on where to store macros. > > http://www.rondebruin.nl/code.htm > > In the meantime.......... > > First...create a backup copy of your original workbook. > > To create a General Module, hit ALT + F11 to open the Visual Basic Editor. > > Hit CRTL + r to open Project Explorer. > > Find your workbook/project and select it. > > Right-click and Insert>Module. Paste the code in there. Save the > workbook and hit ALT + Q to return to your workbook. > > Run or edit the macro by going to Tool>Macro>Macros. > > You can also assign this macro to a button or a shortcut key combo. > > > Gord Dibben MS Excel MVP > > On Wed, 5 May 2010 14:31:01 -0700, RENEE<RENEE(a)discussions.microsoft.com> > wrote: > >> >> Sorry, that's way beyond me. Could you spell it out in detail. Thanks. >> "Billns" wrote: >> >>> On 4/29/2010 1:29 PM, RENEE wrote: >>>> I have a worksheet sent to me with over 700 names on it. I need to put 4 >>>> extra lines under each name. Is there a way to do this without having to >>>> individually insert those lines as this will take a long time. Thanks. >>> >>> Record a macro to insert four lines and move down one line, then repeat >>> it as needed. >>> >>> Bill >>> . >>> > Thanks, Gord, for jumping in with the details... Bill |