Ayuda con Macro que cuenta apariciones dentro de un rango de celdas
Publicado por LUIS H (12 intervenciones) el 19/02/2018 06:46:23
Buen día a todos
Tengo la siguiente macro que cuenta apariciones dentro de un rango de celdas, la macro funciona bien, pero cuando son muchos datos, sale un error de desbordamiento, he intentando declarar las variables como dobles pero no consigo solucionar el error, agradezco la ayuda que me puedan brindar.
Tengo la siguiente macro que cuenta apariciones dentro de un rango de celdas, la macro funciona bien, pero cuando son muchos datos, sale un error de desbordamiento, he intentando declarar las variables como dobles pero no consigo solucionar el error, agradezco la ayuda que me puedan brindar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Function APARICIONES(Rango As Range, Valor As Variant) As Integer
Contador = 0'Recorrer todas las celdas del rango
For Each Celda In Rango.Cells Posicion = 1NuevoStr = Celda.Value
'Mientra la posición encontrada por InStr sea diferente a cero
Do
Posicion = InStr(Posicion, NuevoStr, Valor, vbBinaryCompare)
If (Posicion = 0) Then
Exit Do
Else
'Aumentar contador de apariciones
Contador = Contador + 1
'Cadena de texto restante
NuevoStr = Mid(NuevoStr, Posicion + Len(Valor) + 1)
End If
Loop While Posicion <> 0
Next
APARICIONES = ContadorEnd Function
Valora esta pregunta
0
