Hi,
I was trying to copy the array formula from one column to another, but
the following macro only works for the last cell in the selection. Can
anyone please suggest how I can make the sendkey function to work for
every cell in the selection?
Thanks.
Sub copy_formulas2()
Dim aRng As Range
Dim aCell As Range
Set aRng = Selection
For Each aCell In aRng
aCell.Select
oldFormula = aCell.Formula
ActiveCell.Offset(0, 2).Select
ActiveCell.Formula = oldFormula
ActiveCell.Select
Application.SendKeys "{F2}+^{ENTER}", True
Next aCell
End Sub
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our Facebook Group @ http://www.facebook.com/group.php?gid=287779555678
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
