Corectare modul in Visual bAsic 6

[b]Buna ziua,
Ma numesc Vali si am facut un cod vb pentru o functie in excel care sa-mi verifice dintr-o lista numarul cu cele mai multe aparitii.in principiu stiu ca exista functii gata facute in xcel insa am dorit sa fac una ...proprie,problema este ca rezultatul este "your formula includes cells that contain different data types.". In principiu am inteles despre ce este vorba, nu inteleg unde totusi am gresit? Ma puteti ajuta?

Private Type numarator
v As Integer
b As Integer
End Type

Function CELMAIDES()
Dim i As Integer
Dim c As Variant
Dim d As Integer
Dim a() As numarator
Let CELMAIDES = 0
Let d = 0
'Atribuie tabelei "a.v" valori de la 1 la 49
    For i = 1 To 49
    Let a(i).b = 0
    Let a(i).v = i
    Next i
'Contorizeaza numarul aparitiilor
    For Each c In Sheet1.Range("A1:A756") 'There are only int numbers like 12,35,65
            For i = 1 To 49
            If a(i).v = c.Val Then 'Daca un numar din sir corespunde tabelei  "A"
               a(i).b = a(i).b + 1 'Atunci contorizeaza "1" la b-ul din tabela A
            End If
        Next i
    Next c
'Stiind acum ca in fiecare caracteristica b se afla numarul de contorizari
'Aflam acum care e numarul cu cele mai multe contorizari
    For i = 1 To 49
        If a(i).b > d Then
        d = a(i).b
        End If
    Next i
    CELMAIDES = d
    End Function

valighero, on 26th June 2012, 12:06, said:

Am gasit si raspunsul : "tabela Dim a() As numarator trebuie sa o dimensionam exact  adica Dim a(1 to 6000) As numarator"
Multumesc oricum!