Passing a range of multi dimensional array to a paramarray function

[shivgan3]

Hi,
I am passing a range of multi dimensional array to a paramarray function input and facing error.
When I try to pass inputrange as argument to the param array it fails.
I want to pass abc,xyz, pqr which are contitudent of inputrange() variable where inputrange(0)=abc, inputrange(2)=xyz and so on.




Is it because of passing of only variant is allowed as param array input?
Can we pass complex object like array of ranges to an input of a pram array, are bound by the definition of variant that we can supply only ranges, worksheets, workbooks and other defined object?

 

[Andrew Poulsom]

Here's an excellent article on using Paramarray:

Optional Arguments To Procedures

 

[shivgan3]

Public Function PA_function1(ParamArray Inputrange1() As Variant) As Variant
'Inputrange(): list of range seperated by commas ranges
PA_function1 = PA_function2(Argument1, argument2, Inputrange2))
   
End Function
 
Private Function PA_function2(ParamArray Inputrange1 As Variant) 
As Variant

'Calcuations
End Function

This is my code, and Function2 I believe is not accepting the input.

 

[Andrew Poulsom]

What's Inputrange2 and i? Have you read the article in the link I posted?

 

[Dryver14]

Have a look here,

should answer what you want.

Understanding the ParamArray

 

[Dryver14]

should this line

Private Function PA_function2(ParamArray Inputrange1 As Variant)

not read

Private Function PA_function2(ParamArray Inputrange1() As Variant)

 

[shivgan3]

Yes I did, the programs works fine when the argument is range but doenst when it is array of ranges.

The (i) was typo, I had to pass ranges finally as a temp solution. I removed it to update the code which is giving error.

What's Inputrange2 and i? Have you read the article in the link I posted?

Cross Post:
Passing non-variant data type to Param Array

 

[shivgan3]

Thanks it still didn't work, that (i) makes it work for 1 range and was a test case, sorry for the confusion.

Can a variant be an array of ranges?

should this line

Private Function PA_function2(ParamArray Inputrange1 As Variant)

not read

Private Function PA_function2(ParamArray Inputrange1() As Variant)

Cross Post: http://www.ozgrid.com/forum/showthread.php?t=176591&p=655338#post655338

 

[Andrew Poulsom]

What do you mean by an array of ranges?

 

[shivgan3]

Function Firsttext2(ParamArray Inputrange() As Variant) As Variant
 
Firsttext2 = WFIFindNonblank("First", "Text", Inputrange())
End Function


Public Function FindNonblank(order As String, _
range_type As String, _
ParamArray Inputrange() As Variant) _
As Variant
Dim i, z, k, range_count, row_count, col_count As Integer
Dim end_row, begin_row, end_column, begin_column, begin_val, end_val, step  As Integer

Dim Rng As range
WFIFindNonblank = "something wrong"
'WFIFindNonblank = CVErr(xlErrNA)
range_count = UBound(Inputrange)
    
If order = "Last" Then
end_val = range_count
begin_val = 0
step = -1
    Else
end_val = 0
begin_val = range_count
step = 1
    End If
    
    
For z = end_val To begin_val Step step
    
    
    Set Rng = Inputrange(z)
    row_count = Rng.Rows.Count
    col_count = Rng.Columns.Count
   
Select Case order
Case "Last"
    end_row = row_count
    begin_row = 1
    end_column = col_count
    begin_column = 1
 
  
Case "First"
    end_row = 1
    begin_row = row_count
    end_column = 1
    begin_column = col_count
    
End Select
     
     For i = end_row To begin_row Step step
        For k = end_column To begin_column Step step
       
       
          If IsNumeric(Rng(i, k)) And Not IsEmpty(Rng(i, k)) And range_type = "Number" Then
            FindNonblank = Rng(i, k)
            Exit Function
     
     Else
     
    
             If TypeName(Rng(i, k).Value) = "String" And range_type = "Text" Then
              FindNonblank = Rng(i, k)
              Exit Function
         
              End If
              
           End If
        
        Next k
                  
    Next i
     
Next z

End Function