Calcular ganancias por Mes

[erbuson]

Hola:

Probablemente este error se deba a una cosa que yo no he tenido en cuenta y es en el como pones los datos en el Grid.

Cuando en tu primer mensaje hablas de una Tabla, te refieres a que estas utilizando Bases de Datos ?

Es que el error que indicas parece deberse a que el Grid.TextMatrix(i,6) en donde te produce el mismo podría no tener una Fecha o una fecha correcta.

Debes averiguar en que linea del Grid se produce el error y entonces indícame de que fecha se trata para intentar ayudarte.

Modifica el código de la siguiente manera:

On Error Goto Errores
For i = 1 To MSFlexGrid1.Rows - 1
Mes = Month(MSFlexGrid1.TextMatrix(i, 6))
Mensuales(Mes) = Mensuales(Mes) + MSFlexGrid1.TextMatrix(i, 9)
Text2(Mes) = Mensuales(Mes)
Next i
Exit Sub
Errores:
Msgbox "Se ha producido error al procesar la fecha " & MSFlexGrid1.TextMatrix(i, 6)

Saludos