use the registry to save your scenarios as a delimited string like:
Sub StoreData()
Dim s$, v, r As Range
Set r = Range("a1:a100")
If Not (r.Rows.Count = 1 Or r.Columns.Count = 1) Then
MsgBox "r must be a single row or column range"
ElseIf r.Rows.Count = 1 Then
v = r.value2
Else
v = Application.Transpose(r.value2)
End If
s = Join(v, vbTab)
SaveSetting "myApp", "scenarios", "1", s
End Sub
you'll need xl2000 or newer to use join..
Use GetSetting you retrieve again..
I've used value2 which will save dates as numbers
avoiding changes in regional settings when retrieving
I've used vbTab as delimiter since it's unlikely the cells will
contain strings with tabs...
--
keepITcool
|
www.XLsupport.com | keepITcool chello nl | amsterdam
Don Kline wrote :
I will have an application in which there will be four columns where
the end user can fill out 100 rows of dollar amounts or percentages.
I need to be able to save those columns as part of saving a "case"
which can be recalled for editing, etc.
The thought is is to take the 100 rows of the column and store it in
a cell as an array. Can this be done?