excel 2010



  • excel 2010
    di stroppik (utente non iscritto) data: 04/12/2014 11:41:08

    qualcuno sa dirmi per favore perchè questa macro che ho fatto per excel va in overflow?

    Sub mediareale()
    Dim i As Integer, j As Integer, sommasingolo As Double, sommapartita As Double, risultato As Double



    For i = 6 To 35
    sommasingolo = 0
    sommapartita = 0
    For j = 4 To 25
    If Cells(i, j) <> "" Then

    sommasingolo = sommasingolo + Cells(i, j)
    sommapartita = sommapartita + Cells(5, j)

    End If

    Next
    risultato = sommasingolo / sommapartita * 100

    Cells(i, 28) = risultato

    Next




    End Sub

     
    Sub mediareale()
    Dim i As Integer, j As Integer, sommasingolo As Double, sommapartita As Double, risultato As Double
    
    
    
    For i = 6 To 35
        sommasingolo = 0
        sommapartita = 0
        For j = 4 To 25
            If Cells(i, j) <> "" Then
            
            sommasingolo = sommasingolo + Cells(i, j)
            sommapartita = sommapartita + Cells(5, j)
            
            End If
            
         Next
         risultato = sommasingolo / sommapartita * 100
         
         Cells(i, 28) = risultato
         
    Next
    
    
    
    
    End Sub



  • di Mister_x (utente non iscritto) data: 04/12/2014 11:58:15

    ciao

    cosi sui due piedi ti potrei dire che forse e' la divisione 0/0
    pero' per verificare veramente bisogna avere iltuo file e capire dove fa l'errore e perche'

    PS per allegare un file vedi in alto a destra Allega File

    ciao





  • di stroppik (utente non iscritto) data: 04/12/2014 12:59:37

    ok grazie era proprio quello