Hola, tengo una macro que me está generando un error '6' overflow.
Public Datos As Workbook
Public Sub linedia(ByVal dia As String)
Dim evalFA As Integer, eval As Integer, score As Double, contar As Integer, counter As Integer, _
scoreFA As Double
contar = Worksheets("Datos").Cells(1, 104).Value
For Ag = 3 To 4
If Not IsEmpty(Worksheets("Lines").Cells(Ag, 1).Value) Then
For counter = 2 To contar
If Worksheets("Datos").Cells(counter, 2).Value = Worksheets("Lines").Cells(2, (1 + (dia))).Value Then
If Worksheets("Datos").Cells(counter, 9).Value = Worksheets("Lines").Cells(Ag, 1).Value Then
eval = eval + 1
If Worksheets("Datos").Cells(counter, 17).Value Then
evalFA = evalFA + 1
scoreFA = scoreFA + Worksheets("Datos").Cells(counter, 17).Value
End If
End If
End If
Next
End If
Worksheets("Lines").Cells(Ag, (1 + (dia))) = eval
Worksheets("Lines").Cells(Ag, 2 + (dia)) = scoreFA / evalFA
eval = 0
evalFA = 0
scoreFA = 0
Next
End Sub
Basicamente cuando llega a este punto ( Worksheets("Lines").Cells(Ag, 2 + (dia)) = scoreFA / evalFA ) me tira un error overflow.
los datos de la columna B los pega perfectamente, y así sucesivamente cada dos columnas.
Pero los datos de la columna C, se pegan y luego se borran y me queda el resultado en 0.
Me dicen en que estoy fallando?
Gracias totales
