Excel errore overflow

[Francesco53]

Un saluto a tutto il Forum, ho il seguente problema:
facendo delle moltiplicazioni tra numeri, la macro mi da errore di overflow,
per favore potete aiutarmi a capire cosa sbaglio?
posto immagine esempio dove la riga con i numeri in rosso mi va in errore.



Questo è il codice utilizzato:

Codice: Seleziona tutto

Sub Calcola()
For rig = 2 To 12
    n1 = Cells(rig, 2)
    n2 = Cells(rig, 3)
    n3 = Cells(rig, 4)
    n4 = Cells(rig, 5)
    n5 = Cells(rig, 6)
    nr = (n1 * n2 * n3 * n4 * n5) Mod 90
    Cells(rig, 8) = nr
Next rig
End Sub

Ringrazio chi mi può dare un aiuto.
Francesco

[Anthony47]

L'help on line (del vba) non lo dice ma sembra che il tipo di dati massimo che una operazione Mod possa gestire sia il Long, cioe' fino a 2.147.483.6477; la moltiplicazione che fai invece porta a 3.208.233.600
Devi quindi aggirare l'ostacolo, ad esempio

Codice: Seleziona tutto

    N1 = (Cells(rig, 2) * Cells(rig, 3) * Cells(rig, 4) * Cells(rig, 5) * Cells(rig, 6))
    Nr = N1 - (90 * Int(N1 / 90))


(ho evitato il passaggio tramite N1, N2, etc; l'istruzione usata per calcolare Nr va bene coi numeri positivi, non coi negativi)

I puristi raccomanderanno anche la dichiarazione delle variabili; per questo metti subito all'inizio

Codice: Seleziona tutto

Dim N1 As Double, Nr As Long, rig as Long

Ciao

[Francesco53]

Grazie Anthony.
Francesco