Wednesday, July 14, 2010 10:40 AM
(Env: Win XP - SP3, O2003 pro - all UK versions)
I need to fill a selected range into an array and are aware of the "tedious" way of doing it.
(If possible I would like not to have to investigate range address, sheet name etc.)
So question is: Is it possible to fill an array directly based on "selection".
...and obviously the above doesn't work, but is it somehow possible to do something similar in a single line or two??
- Edited by Rubberduckone Wednesday, July 14, 2010 12:08 PM
Wednesday, July 14, 2010 12:07 PM
Found an answer to my question...
Public Function Array_FillFromSelection()
Dim varGetArrayAll As Variant
varGetArrayAll = ActiveCell.CurrentRegion.Value
For c = 1 To UBound(varGetArrayAll)
For d = 1 To UBound(varGetArrayAll, 2)
Debug.Print varGetArrayAll(c, d)
- Marked As Answer by Bessie ZhaoModerator Tuesday, July 20, 2010 10:11 AM
Saturday, July 17, 2010 11:33 AMYour question was how to fill an array from the selection, to which theanswer is simply ..varGetArrayAll = Selection.. but you seem to have found an equally simple solution to a different, ifrelated, question.--Enjoy,Tonywww.WordArticles.com"Rubberduckone" wrote in messagenews:18fc54e4-37e9-4ea7-a465-496ed7d27150...> Found an answer to my question...>> Public Function Array_FillFromSelection()> Dim c> Dim d> Dim varGetArrayAll As Variant>> varGetArrayAll = ActiveCell.CurrentRegion.Value> For c = 1 To UBound(varGetArrayAll)> For d = 1 To UBound(varGetArrayAll, 2)> Debug.Print varGetArrayAll(c, d)> Next d> Next c> End Function>