Automatically filling additional cells with formula
Instead of inserting a row (which can screw up some formulas occasionally),
can you have the user input information at end of table, and then have them
(or automate) a sort operation to re-alphabetize the list?
Or, instead of having user insert a row themselves, perhaps have them push a
button/run this macro after selecting where they want to insert?
Sub CopyFormulas()
ActiveCell.Offset(-1, 0).EntireRow.Copy
ActiveCell.EntireRow.Insert Shift:=xlDown
ActiveCell.EntireRow.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
--
Best Regards,
Luke M
*Remember to click "yes" if this post helped you!*
"Sapper" wrote:
Hi, I am using excel 2003
I have created a database for personal records to be used by others.
All the necessary formula is in place.
I want the user to be able to insert anew record by adding an additional row
in the approppriate alphabetical position. Unfortuneately the new rows do
not pick up the formula from the cells above or below. I have tried using a
macro but when playing it duplicates my actions exactly which means it just
adds the same row again and again.
Is there any way to automate the inclusion of formula in additional cells
without performing drag and drop manually (which I want to avoid the user
doing)?
Thank you
|