Ошибка ошибки VBA при попытке передать диапазон как аргумент

Question

Я передаю два аргумента диапазона в функции. Один работает нормально, но второй дает ошибку компиляции.

Здесь я вызываю функцию -

Set SourceRange = Sheets("QueryResult").Range("QueryResult") 
Set DestinationRange = Sheets("TradeUnderlyingCptyWWRTemplate").Range("CounterpartyName") 
Call PopulateDetails(23, SourceRange, DestinationRange, 2, 8) 

А вот функция:

Function PopulateDetails(SourceColumns As Integer, Srce As Range, Destination As Range, DestinationColums As Integer, DestinationRows As Integer) 

Dim CellName As String 
Dim a, b, i As Integer 

For b = 0 To DestinationRows - 1 
    For a = 0 To DestinationColums - 1 

     On Error GoTo Err: 
     Sheets("TradeUnderlyingCptyWWRTemplate").Select 
     Destination.Offset(b, a).Select 
     CellName = Destination.Offset(b, a).Name.Name 

     For i = 0 To SourceColumns - 1 
      If (Destination.Offset(b, a).Name.Name = Srce.Offset(0, i).Value And Destination.Offset(b, a).Value = "") Then 
       Destination.Offset(b, a).Value = Srce.Offset(1, i).Value 
       Exit For 
      End If 
     Next 
Err: 
     On Error Resume Next 
     Err.Clear 
     CellName = "" 
    Next 
Next 

End Function 

Однако он дает компиляции ошибка:

byref argument type mismatch

с SourceRange выделены код.

Когда я изменяю функцию только с четырьмя аргументами (удаление аргумента источника), она работает нормально.

Answer 1

Вам нужно изменить

Dim SourceRange, DestinationRange As Range 

Для

Dim SourceRange As Range 
Dim DestinationRange As Range 

В противном случае это эквивалентно

Dim SourceRange As Variant 
Dim DestinationRange As Range