Error 6 desbordamiento en una macro que ha funcionado bien

18/05/2004 - 02:55 por Luis Menéndez | Informe spam
Por favor a ver si algien me puede decir por qué esta macro (que hace bien
su trabajo de totalizar el importe de una serie de elementos repetidos)
termina dando un error de desbordamiento en la fila que pone "suma = suma +
Cells(fila, 9)"


' sumar importes en el último elemento repetido
Dim fila As Integer
Dim suma As Integer
fila = 0
Do
suma = 0
Do
fila = fila + 1
If Cells(fila, 10) = Cells(fila + 1, 10) Then
suma = suma + Cells(fila, 9)
End If
Loop Until Cells(fila, 10) <> Cells(fila + 1, 10)
Cells(fila, 11).Value = suma + Cells(fila, 9).Value

Loop Until IsEmpty(Cells(fila, 1))

End Sub
 

Leer las respuestas

#1 Héctor Miguel
18/05/2004 - 03:36 | Informe spam
hola, Luis !

... esta macro ... termina dando un error de desbordamiento en la fila ... "suma = suma + Cells(fila, 9)" [...]



[probablemente] se debe al tipo de datos =>Integer<= que le asignas a las variables :((
=> el 'limite' para 'ese' tipo de datos es: 0 a 23,767 o... -1 a -32,768 <si la fila [por la que se 'va avanzando'] o la 'acumulacion' [suma = suma + 'la_que_sigue']
'llegan' a =>rebasar<= ese limite... alcanzaras el 'desbordamiento' :((
prueba con otro tipo de datos, como... Long o Double [segun lo que necesitas]

saludos,
hector.

Preguntas similares