More VBA: Getting smaller ranges from bigger ones.

[MNpoker]

This is from a Public Function.

Say I have an Range A1:D7 -- This defines all the information I need.

Now I want To Create new ranges where
Range(1) = B1:D1
Range(2) = B2:D4
Range(3) = B3:C3
.
.
.
Range(7) = B7:D7

*Note the new ranges do not include the first column of the 'big' range.
The Range(X) is the Curve(X) values below.

The New ranges are the inputs required for Public functions that have been created.

I am this far: (Though I may be on a bad track)

Public Function MCurvePDF(X, DefineMCurve As Range)

' To get the PDF of a mixed curve at X we add the PDF's of each individual curve

'Set up the curves that go into the mixed curves
NumCurves = DefineMCurve.Rows.Count
Dim Curve(NumCurves) As Range

LengthOfMCurve = DefineMCurve.Columns.Count

' Get the Individual Curve Arrays
For A1 = 1 To NumCurves
For B1 = 2 To LengthOfMCurve

????????????


Thanks!!

P.S. Does anyone know a good source for learning this stuff? Prefer a self-help book that is also usefull reference guide.

 

[MNpoker]

Bump

Why does this work

Public Function MCurvePDF(X, DefineMCurve As Range)

' To get the PDF of a mixed curve at X we add the PDF's of each individual curve
' Allows up to 1000 Single Curves

Dim PDF(1000)

'Set up the curves that go into the mixed curves
NumCurves = DefineMCurve.Rows.Count
LOFMCurve = DefineMCurve.Columns.Count

' Get the Individual Curve Arrays
For A1 = 1 To NumCurves
For B1 = 3 To LOFMCurve
A = DefineMCurve.Cells(A1, B1)
Next B1
Next A1

MCurvePDF = A


But this doesn't (it gives a value error.)

Public Function MCurvePDF(X, DefineMCurve As Range)

' To get the PDF of a mixed curve at X we add the PDF's of each individual curve
' Allows up to 1000 Single Curves
Dim A As Range <-- ONLY DIFFERENCE
Dim PDF(1000)

'Set up the curves that go into the mixed curves
NumCurves = DefineMCurve.Rows.Count
LOFMCurve = DefineMCurve.Columns.Count

' Get the Individual Curve Arrays
For A1 = 1 To NumCurves
For B1 = 3 To LOFMCurve
A = DefineMCurve.Cells(A1, B1)
Next B1
Next A1


MCurvePDF = A

 

[Norie]

Perhaps your missing Set?

 

[MNpoker]

thanks!!

Getting there.