devo sommare dei valori disposti su n righe e 10 colonne;
nel range ci sono celle vuote e non so dove esse si trovino;
la somma avviene per ogni riga;
il seguente codice funziona molto bene
- Codice: Seleziona tutto
For r1 = 3 To UR
Cells(r1, 12) = Application.WorksheetFunction.Sum(Range("B" & r1 & ":K" & r1))
If Cells(r1, 12).Value = 0 Then Cells(r1, 12).Value = ""
Next r1
ma ora il mio problema è che devo sommare i valori di ogni riga solo se nella riga
vi è almeno una cella vuota, se invece nella riga x tutte le 10 celle sono
piene non deve effettuare la somma ma passare alla riga successiva, verificare la presenza di celle vuote ed eseguire la somma altrimenti passare alla riga successiva.
ho pensato di inserire un ciclo if del tipo:
If Cells(r2, c).Value <> "" And... then salta alla riga successiva -non esegui somma
da ripetere 10 volte e nel quale, devo evidendemente variare le variabili r2 e c;
ma forse esiste un metodo diverso per ottenere lo stesso risultato?
ciao buona domenica