[EXCEL] Macro eliminazione righe condizioni multiple

[alessiodonofrio]

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 ?

[Flash30005]

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

[alessiodonofrio]

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]

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 ?

[Anthony47]

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

[Anthony47]

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

[alessiodonofrio]

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

saluti a tutti, a presto.