Elimina righe

[astrigno]

Salve a tutti. Sono sicuro che risolvere il mio problema per voi è uno scherzo da ragazzi
Dunque: ho un db su excel 2007 formato da 5 colonne e circa 24.000 righe.
Io vorrei (con un unico comando) eliminare tutte le righe che in tutte e cinque le colonne hanno valore= zero.
Grazie in anticipo chi mi aiuterà

[alfrimpa]

Ciao Astrigno

Potresti mettere in sesta colonna questa formula:

=E(A1;B1;C1;E1;F1)=0 e ricopi in basso fin dove necessario.

La formula restituirà VERO se tutte le celle sono 0.

Poi applichi il Filtro Dati selezionando VERO, seleziona tutte le righe visualizzate e poi tasto dx del mouse e clicca su Elimina.

[astrigno]

Ti ringrazio, funziona benissimo.
Tuttavia se fosse possibile ottenere lo stesso risultato con un Macro sarebbe ancora meglio.

[alfrimpa]

Si certo che è possibile.

Ora sono fuori ma appena rientro a casa cerco di farla.

A presto

[astrigno]

Grazie

[alfrimpa]

Mi dovresti, però, specificare se la tabella contiene solo numeri o anche stringhe (caratteri alfabetici)

Si può lasciare la funzione E() che avevo scritto prima o non vuoi neanche quella?

Magari se riesci ad allegare un file di esempio con poche righe ma rappresentativo del tuo file è anche meglio.

Io comunque provo a farla "al buio"

[astrigno]

Purtroppo il server dell'uffico non mi consente di connettermi a quei siti per sharare file.
La tabelle contiene anche caratteri alfabetici.
Per la funzione vedi te come ti viene più semplice.
Grazie

[alfrimpa]

Ciao Astrigno

Supponendo che la tua tabella abbia 5 colonne in F1 metti la seguente funzione (copiandola per tutte le righe fin dove necessario):

=E(A1=0;B1=0;C1=0;D1=0;E1=0) che restiturà VERO se tutte le colonne (in quella riga) hanno zero.

Poi lancia la seguente macro

Codice: Seleziona tutto

Sub prova()
Dim miorange As Range
Dim cll As Range
Dim ur As Long
ur = Range("F" & Rows.Count).End(xlUp).Row
Set miorange = Range("f1:f" & ur)
For Each cll In miorange
    If cll.Value = "Vero" Then
        cll.Rows.EntireRow.Delete
    End If
Next cll
End Sub


Ti allego comunque il mio file di prova

http://www.filedropper.com/astrigno

Spero che era questo che volevi