VBA problem when running on Mac.

[Akbarov]

Hello dear community,

I use VBA on my windows without any problem, but when i run it on Mac i get wrong results and errors. Can anybody help me please?
This is one of codes which wont work

Sub RemDubStadium()
Application.ScreenUpdating = False
Dim v
v = getUniqueArray(Worksheets("DATA").Range("M26:M2000"))
If IsArray(v) Then
Worksheets("TOP").Range("A2").Resize(UBound(v)) = v
End If
Application.ScreenUpdating = True
End Sub

Public Function getUniqueArray(inputRange As Range, _
                                Optional skipBlanks As Boolean = True, _
                                Optional matchCase As Boolean = True, _
                                Optional prepPrint As Boolean = True _
                                ) As Variant
              
Dim vDic As Object
Dim tArea As Range
Dim tArr As Variant, tVal As Variant, tmp As Variant
Dim noBlanks As Boolean
Dim cnt As Long
                      
On Error GoTo exitFunc:
If inputRange Is Nothing Then GoTo exitFunc

With inputRange
    If .Cells.Count < 2 Then
        ReDim tArr(1 To 1, 1 To 1)
        tArr(1, 1) = .Value2
        getUniqueArray = tArr
        GoTo exitFunc
    End If

    Set vDic = CreateObject("scripting.dictionary")
    If Not matchCase Then vDic.compareMode = vbTextCompare
    
    noBlanks = True
    
    For Each tArea In .Areas
        tArr = tArea.Value2
        For Each tVal In tArr
            If tVal <> vbNullString Then
                vDic.Item(tVal) = Empty
            ElseIf noBlanks Then
                noBlanks = False
            End If
        Next
    Next
End With

If Not skipBlanks Then If Not noBlanks Then vDic.Item(vbNullString) = Empty

'this is done just in the case of large data sets where the limits of
'transpose may be encountered
If prepPrint Then
    ReDim tmp(1 To vDic.Count, 1 To 1)
    For Each tVal In vDic.Keys
        cnt = cnt + 1
        tmp(cnt, 1) = tVal
    Next
    getUniqueArray = tmp
Else
    getUniqueArray = vDic.Keys
End If

exitFunc:
Set vDic = Nothing
End Function

 

[Fluff]

You cannot use the Scripting.Dictionary on a Mac.
Have a look here Dictionary Class in VBA instead of Scripting.Dictionary

 

[Akbarov]

Fluff thanks for information but i think this is very complicated. I can't figure out how to use that.

 

[Fluff]

In that case you will need to find another way of doing it, if you want to use it on a Mac.