30/11/2009, 00:33
|
 | | | Fecha de Ingreso: noviembre-2009
Mensajes: 701
Antigüedad: 14 años, 6 meses Puntos: 53 | |
| Respuesta: Calcular ganancias por Mes
Hola:
El problema puede ser que tengas que borrar mensuales. Como no veo todo el código no se en que parte tienes hecho el DIM
Dim Mensuales(12) as currency
Si lo tienes antes de los Sub la variable es compartida para el formulario y no se borra.
Debes hacerlo con un Bucle
For i = 1 to 12
Mensuales(i)=0
Text2(i) = ""
Next
Es conveniente que borres Text2 porque caso de que tuvieras algun mes sin valores, verias los del proceso anterior.
Debes poner este Bucle justo despues de la sentencia On Error y antes del Bucle de cálculo
Saludos |