Correzione Macro per somme con Celle Vuote

Ciao a Tutti,
Andando avanti con il mio lavoro ho riscontrato un problema con delle macro che devono sommare celle con numeri e celle vuote ma non proprio in quanto vi è un formula sia per i pari che per i dispari per far si che la macro funzioni come posso ingannarla senza dover mettere il valore zero.

Qualcuno mi può aiutare a modificare le due macro.

Grazie come sempre

Allego file.

Xeroxs64, 16/03/2020 15:05:

---

Ciao a Tutti,
Andando avanti con il mio lavoro ho riscontrato un problema con delle macro che devono sommare celle con numeri e celle vuote ma non proprio in quanto vi è un formula sia per i pari che per i dispari per far si che la macro funzioni come posso ingannarla senza dover mettere il valore zero.

Qualcuno mi può aiutare a modificare le due macro.

Grazie come sempre

Allego file.

---

Ci lavoro e ti faccio sapere
Ciao

Grazie

Il problema delle macro è che non accettano valori numerici vuoti nei confronti tra numeri, ti allego file con macro corretta

ciao

utilizziamo la funzione Sum() di excel

modifica alle tue due sub()

Sub SommaVerticale()
Dim x, y, w, tot
tot = Cells(7, 19)
Range("X7:AB17").Interior.Color = RGB(152, 218, 152)
For x = 24 To 28
For y = 7 To 17
For w = y + 1 To 17
If Application.Sum(Cells(y, x), Cells(w, x)) = tot Then
Cells(y, x).Interior.ColorIndex = 2
Cells(w, x).Interior.ColorIndex = 2
End If
Next w
Next y
Next x
End Sub

Sub SommaOrizzontale()
Dim x, y, w, tot
tot = Cells(7, 19)
Range("L7:P17").Interior.Color = RGB(152, 218, 152)
For x = 7 To 17
For y = 12 To 16
For w = y + 1 To 17
If Application.Sum(Cells(x, y), Cells(x, w)) = tot Then
Cells(x, y).Interior.ColorIndex = 2
Cells(x, w).Interior.ColorIndex = 2
End If
Next
Next
Next
End Sub

riallego il tuo file corretto

Grazie ho visto è va bene, volevo chiederti posso copiandola e modificandola facilmente per la somma verticale o è un problema?

Posso poi trasferirle sul file definitivo senza problemi, ha gli stessi parametri della copia che ho allegato

Grazie davvero a Tutti Voi, mi state davvero dando una mano a fare ciò che ho sempre voluto fare.

Grazie Ancora.

Grazie Ancora carmelo60.60,

Per completare anche quanto mi hai inviato,
Ho visto che è una macro particolare anche nei parametri, vorrei poi completare anche qualla verticale ma ho l'impressione che senza il tuo aiuto non riesco ad adattarla al pannello delle somme verticali quello di destra.

infine se non chiedo troppo in che modo si abbina al pulsante.

Grazie ancora.