Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

[EXCEL] Macro eliminazione righe condizioni multiple

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

[EXCEL] Macro eliminazione righe condizioni multiple

Postdi alessiodonofrio » 28/05/13 16:56

Salve a tutti. Ho bisogno del vostro aiuto perchè, nonostante una discreta conoscenza di office, non sono in grado di realizzare una macro di questo tipo. Entro nel dettaglio.
Ho una tabella con una serie di dati divisi per colonne in questo modo :
codice - nome - cognome - cf - campo numerico 1 - campo numerico 2 - campo numerico 3 - .... - campo numerico 10

avrei bisogno di eliminare dalla tabella tutte quelle righe in cui fra i campi numerici non ci sia alcun valore superiore a 2000.

potete aiutarmi ?
alessiodonofrio
Newbie
 
Post: 6
Iscritto il: 28/05/13 16:43

Sponsor
 

Re: [EXCEL] Macro eliminazione righe condizioni multiple

Postdi Flash30005 » 28/05/13 21:30

Ciao Alessiodonofrio e benvenuto nel Forum

Sembra chiaro ciò che chiedi ma solo una conferma
se nei valori numerici, in riga, esiste un solo valore superiore a 2000 la riga non deve essere eliminata, giusto?

Se è così inserisci in un modulo questa macro ed eseguila (fai sempre una copia del file originale)
Codice: Seleziona tutto
Sub TrovaInf()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR = UR To 2 Step -1
MyC = Evaluate("=COUNTIF(Foglio1!E" & RR & ":N" & RR & ",""<=2000"")")
If MyC = 10 Then Rows(RR).Delete
Next RR
End Sub



ciao


EDIT ore 23:10 - aggiunta macro
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: [EXCEL] Macro eliminazione righe condizioni multiple

Postdi alessiodonofrio » 29/05/13 08:28

ciao flash, innanzitutto grazie per la pronta risposta. ti confermo quello che avevi intuito, solo che c'è un problema . al di la del fatto che non riesco a fa funzionare questa macro, avrei bisogno che nel codice ci fosse una istruzione del tipo :

if range( "J" & RR ).value < 2000 and if range ( "k" & RR ) < 2000 and ... and if range ( "S" & RR ) < 2000 then rows(RR).delete

dove j , k , ed s ad esempio sono le colonne corrispondenti a camponumerico1, camponumerico2, camponumericox

questo perchè la macro deve essere flessibile e devo poterla modificare a seconda delle esigenze.
non so se mi sono spiegato bene.
grazie ancora per l'aiuto cmq !
alessiodonofrio
Newbie
 
Post: 6
Iscritto il: 28/05/13 16:43

Re: [EXCEL] Macro eliminazione righe condizioni multiple

Postdi alessiodonofrio » 29/05/13 09:29

ecco per esempio una cosa del genere :

Sub eliminarighe()

UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR = UR To 2 Step -1
If Cells(RR, "J") < "2000" And Cells(RR, "K") < "2000" And ... And Cells(RR, "AF") < "2000" Then Rows(RR).Delete
Next RR

End Sub

purtroppo non funziona perchè mi cancella solo alcune righe e non tutte. potete aiutarmi ?
alessiodonofrio
Newbie
 
Post: 6
Iscritto il: 28/05/13 16:43

Re: [EXCEL] Macro eliminazione righe condizioni multiple

Postdi Anthony47 » 29/05/13 09:35

Se pubblicavi il vero layout della tua tabella avresti avuto subito la risposta piu' adatta; vale per la prossima volta...

Forse e' perche' il confronto da fare e' <=2000 invece che <2000, come hai impostato tu.

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: [EXCEL] Macro eliminazione righe condizioni multiple

Postdi Anthony47 » 29/05/13 09:40

Inoltre la sintassi giusta e' quella del penultimo tuo messaggio:
if range( "J" & RR ).value < 2000 etc etc
e non
If Cells(RR, "J") < "2000"

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: [EXCEL] Macro eliminazione righe condizioni multiple

Postdi alessiodonofrio » 29/05/13 10:05

grazie anthony, adesso funziona, chiedo scusa per essere stato approssimativo.

saluti a tutti, a presto.
alessiodonofrio
Newbie
 
Post: 6
Iscritto il: 28/05/13 16:43


Torna a Applicazioni Office Windows


Topic correlati a "[EXCEL] Macro eliminazione righe condizioni multiple":


Chi c’è in linea

Visitano il forum: patel e 5 ospiti