Semi-Automated Copy and Insert

[Guest]

As a senior construction estimator, I use a very comprehensive estimating
Excel spreadsheet to enter tasks and their associated unit costs. The present
design of the spreadsheet has a total of (30) estimate sections with one
following the next. Each section is used to subdivide the estimate into
managable cost estimates. As an example, we may have a building complex to
estimate that is made up of (5) individual buildings. In this application, we
would have (5) estimate sections. Since we never know the number of tasks for
each estimate, we have our standard estimate template setup with a minimum of
(50) rows per estimate. If the section takes less rows, we either delete or
hide the excess rows. If the section requires more than (50) rows, we copy a
group of blank rows within the section and paste insert them untill we have
the space nessessary to complete the sections estimate. Some sections may
have only (10) rows of tasks and costs while other sections could have over
(500) rows. Is there a more effeciet way to copy and insert the copied rows
other than the way I am doing it? Any help would be appreciated. Thank You,
JAD.

 

[Susan]

you never got any answers on this, so here's a thought.....

rather than hiding & unhiding & adding & removing extra lines, why not
go crossways across excel????
estimate #1 would go from column a to e
estimate #2 would go from column g to k
estimate #3 would go from column m to q

of course, crossways you have less flexibility regarding space, since
there's only up to column IV.

another idea would be using an individual worksheet for each
estimate. you'd have 30 worksheets in one workbook, and again, you
wouldn't have to worry about the number of rows used.


susan

 

[Susan]

OR, if you insist on doing it the way you are LOL,
you could write a fairly simple macro that would insert a prescribed #
of rows every time you run it, & put it in the toolbar. so if you
need more rows, you click the toolbar button, & instantly there's 10
more rows added.

could be a simple as

Sub JAD()
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End Sub

although i'm sure there's a more efficient way of doing it.

susan