Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Eliminare somma di numeri

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Eliminare somma di numeri

Postdi neverlandce » 13/10/09 18:37

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
Utente Junior
 
Post: 48
Iscritto il: 27/08/09 18:09

Sponsor
 

Re: Eliminare somma di numeri

Postdi neverlandce » 13/10/09 18:40

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
neverlandce
Utente Junior
 
Post: 48
Iscritto il: 27/08/09 18:09

Re: Eliminare somma di numeri

Postdi Anthony47 » 13/10/09 21:07

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

Ciao.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Eliminare somma di numeri

Postdi Flash30005 » 13/10/09 21:22

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: Eliminare somma di numeri

Postdi neverlandce » 14/10/09 13:35

sempre gentilissimi siete
neverlandce
Utente Junior
 
Post: 48
Iscritto il: 27/08/09 18:09


Torna a Applicazioni Office Windows


Topic correlati a "Eliminare somma di numeri":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti