Eliminare somma di numeri

[neverlandce]

Ciao a tutti,
mi potreste indicare una formula o una macro che mi elinimi le righe avendo una somma specifica?
I dati sono in a1:j100 in L metterei la somma che voglio eliminare

es.
1 5 6 7 8 9 10 15 17 18 = 96
1 5 6 7 8 9 10 14 17 18 = 95

in L1 scrivo 96 e mi elimia la riga con somma 96 oppure, se possibile, mettere due valori da eliminare.

grazie

[neverlandce]

Mi sa che studiandoci potrei utilizzare questa vostra macro
Sub del200()
righe = Cells(Rows.Count, 1).End(xlUp).Row
For I = righe To 1 Step -1
Cells(I, 1).Select
If Selection.Value > 200 Then Selection.Entirerow.Delete
Next I
End Sub


p.s. forse non dovevo aprire il topic....scusatemi

[Anthony47]

Mi pare che hai risolto da solo; bravo, la necessita' aguzza l' ingegno (e la vista).

Ciao.

[Flash30005]

Se devi togliere le righe che hanno una somma specifica dove in L è calcolata la somma è sufficiente che specifichi il valore di L (al posto di > 200)
quindi quella macro da te postata va modificata in

Codice: Seleziona tutto

Sub del200()
righe = Cells(Rows.Count, 1).End(xlUp).Row
For I = righe To 1 Step -1
Cells(I, 10).Select
If Selection.Value = 96 Then Selection.Entirerow.Delete  '<<<< o >= 95 (se devi eliminare tutte le righe con valore somma da 95 o superiore)
Next I
End Sub


Ma senza dover fare una somma riga per riga puoi utilizzare questa macro

Codice: Seleziona tutto

Sub delSomma()
righe = Cells(Rows.Count, 1).End(xlUp).Row
For R = righe To 2 Step -1
SommaV = 0
    For C = 1 To 10
        SommaV = SommaV + Cells(R, C).Value
    Next C
    If SommaV >= Cells(1, 12).Value Then Rows(R & ":" & R).Delete
Next R
End Sub

Dove in L1 metterai il valore (es.95) e ottieni lo stesso risultato

Ciao

[neverlandce]

sempre gentilissimi siete