[excel] macro elimina righe in base al valore cella

[accio1965]

ciao
volevo realizzare una macro che eliminasse tutte le righe che contengono nella prima colonna un valore maggiore di 200
avevo questa macro che eliminava tutte le righe che alla colonna 5 avevano il valore zero

Sub elim()

Sheets("ele").Select
Range("A4:E700").Select
Selection.Copy
Sheets("giocatori").Select
Range("A21").Select
ActiveSheet.Paste

Application.ScreenUpdating = False
With ActiveSheet
righe = Range("E65536").End(xlUp).Row
End With
cont = 0
i = 1
While Cells(i, 5) <> ""
If Cells(i, 5) = 0 Then
Range(Cells(i + 1, 1), Cells(righe - cont, 5)).Copy Destination:=Cells(i, 1)
cont = cont + 1
i = i - 1
End If
i = i + 1
Wend
Range(Cells(i - cont, 1), Cells(i, 5)).ClearContents
Application.ScreenUpdating = True
Sheets("SVINCOLATI").Select
End Sub

ho effettuato queste modifiche ma non funziona

Sub eli()


Application.ScreenUpdating = False
With ActiveSheet
righe = Range("A65536").End(xlUp).Row
End With
cont = 0
i = 1
While Cells(i, 1) <> ""
If Cells(i, 1) > 200 Then
Range(Cells(i + 1, 1), Cells(righe - cont, 1)).Copy Destination:=Cells(i, 1)
cont = cont + 1
i = i - 1
End If
i = i + 1
Wend
Range(Cells(i - cont, 1), Cells(i, 1)).ClearContents
Application.ScreenUpdating = True
Sheets("ele").Select
End Sub

[Anthony47]

Prova con questa macro:

Codice: Seleziona tutto

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


Ciao.

[accio1965]

perfetta
grazie mille

[accio1965]

la macro che mi ha postato Antony47 è perfetta
vorrei apportare una modifica al metodo di selezione ossia:
adesso tutte le righe da eliminare sono quelle che nella cella della colonna A hanno un valore diverso da un numero oppure sono vuote
grazie come al solito!

[Anthony47]

Devi "lavorare" sull' istruzione If; purtroppo non ho capito se devi eliminare tutte le righe che in col A non hanno un numero o solo quelle che hanno un contenuto diverso da un numero specifico.
Nel primo caso userai qualcosa come
If Not isNumeric(Selection.Value) Then Selection.Entirerow.Delete
nel secondo
If Selection.Value <> XYZ Then Selection.Entirerow.Delete dove XYZ e' il numero da confrontare o una variabile che contiene il numero.

Ciao.

[accio1965]

allora la macro cosi modificata è perfetta

Sub del200()
righe = Cells(Rows.Count, 1).End(xlUp).Row
For I = righe To 1 Step -1
Cells(I, 1).Select
If Not isNumeric(Selection.Value) Then Selection.Entirerow.Delete
Next I
End Sub

pero non cancella le righe dove il valore di col A è vuoto quindi oltre al parametro If Not isNumeric dovrei dirgli di cancellare anche se la cella è vuota

[Anthony47]

Gia'... IsNumeric risponde True su una cella vuota, mentre mi aspettavo che avrebbe dato False. Inserirai quindi un OR nell' istruzione If:

Codice: Seleziona tutto

If Selection.value = "" OR Not isNumeric(Selection.Value) Then Selection.Entirerow.Delete

Ciao.

[accio1965]

Codice: Seleziona tutto

righe = Cells(Rows.Count, 1).End(xlUp).Row
For I = righe To 1 Step -1
Cells(I, 1).Select
If Selection.Value = "" Or Not IsNumeric(Selection.Value) Then Selection.EntireRow.Delete
Next I

ho fatto la modifica che mi ha suggerito ma le righe con la cella vuota in colonna A continuano a non essere eliminate

[Anthony47]

Hummm... allora credo che le celle non siano "vuote"; sono per caso pagine prelevate da un sito web? Puoi ispezionarle con attenzione, in particolare alla ricerca di caratteri "spazio"?

Ciao.

[Flash30005]

Ho provato la macro di Anthony e funziona anche con gli spazi, è un bel rebus

Potresti provare una macro che prende solo i numeri e scarta tutto il resto tipo questa

Codice: Seleziona tutto

Sub DelNonNum()
righe = Cells(Rows.Count, 1).End(xlUp).Row
For I = righe To 1 Step -1
Cells(I, 1).Select
Valn = Mid(Cells(I, 1), 1, 1)
If Asc(Valn) < 48 Or Asc(Valn) > 57 Then Selection.EntireRow.Delete
Next I
End Sub

ma ho dei dubbi...

Ciao

[accio1965]

i dati vengono prelevati da un altro foglio excel e non dal web
ho provato anche la macro di di Flash ma non funziona
per sincerarmi se le celle erano effettivamente vuote ho fatto un copi incolla speciale valori del contenuto e sembrano effettivamente vuote
cosa altro devo controllare?
posso anche lavorare nella colonna B in quanto i valori di questa sono uguali per le celle da eliminare????

[Anthony47]

Ma le celle "vuote" in col A sono le ultime dell' elenco?

Ciao

[accio1965]

Ma le celle "vuote" in col A sono le ultime dell' elenco?

Ciao

scusa se rispondo in ritardo:
SI confermo le celle "vuote" in col A sono le ultime dell' elenco
grazie!

[Flash30005]

...
SI confermo le celle "vuote" in col A sono le ultime dell' elenco

Bisognerebbe avere il foglio davanti ma credo che Anthony abbia centrato l'obiettivo
tu hai delle celle vuote alla fine della colonna A mentre in B e C o D ci sono celle con dei valori

Quindi è chiaro che non vengono cancellate perché il codice

Codice: Seleziona tutto

righe = Cells(Rows.Count, 1).End(xlUp).Row


conta le righe piene in A e trovandole vuote non processa quelle righe facendole rimanere nel foglio, quindi,
dovresti puntare su sulla colonna che ha sicuramente più righe delle altre, se ciò non è possibile perché c'è variabilità e se le colonne dei dati sono adiacenti alla colonna A, prova questo codice sostituendolo alla macro precedente:

Codice: Seleziona tutto

righe = Range("A2").CurrentRegion.Rows.Count

Fai sapere
Ciao

[accio1965]

Codice: Seleziona tutto

righe = Range("A2").CurrentRegion.Rows.Count
For I = righe To 1 Step -1
Cells(I, 1).Select
If Not IsNumeric(Selection.Value) Then Selection.EntireRow.Delete
Next I


ho fatto questa modifica con il tuo suggerimento ma la macro continua a non eliminare le celle in cui il valore di colonna A è vuoto
boh?

[Flash30005]

Ehmm..
Si può avere questo file?
Nella colonna B ci sono dei dati e anche nella colonna C etc?
Qual'è la colonna che ha più righe? E' sempre la stessa?

Altrimenti fai una prova avviando la macro dal visual basic con il tasto F8 (dopo che il cursore del mouse è all'interno della macro) e ti fermi alla 2ª riga
righe = Range("A2").CurrentRegion.Rows.Count
For I = righe To 1 Step -1 <<<<<< qui (evidenziata in giallo)
poi punti il mouse sulla variabile
righe = e annoti il valore che ti fornisce il debug (es 158)
vai sul foglio e controlli se effettivamente il massimo di righe occupate nel foglio è 158 o un numero maggiore
Un'ultima cosa: quando avvi la macro che elimina le righe, hai attivo il foglio con le righe da cancellare oppure ti trovi su un altro foglio?

Fai sapere
Ciao

[Anthony47]

Dovrebbe essere sufficiente usare

Codice: Seleziona tutto

righe = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Range("A1").Row

Ciao.

[accio1965]

allora con questo

Codice: Seleziona tutto

righe = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Range("A1").Row
For I = righe To 1 Step -1
Cells(I, 1).Select
If Not IsNumeric(Selection.Value) Then Selection.EntireRow.Delete
Next I


le righe con la cella vuota di colonna A non vengono ancora eliminate (: (:

rispondo anche a flash
[quote[Altrimenti fai una prova avviando la macro dal visual basic con il tasto F8 (dopo che il cursore del mouse è all'interno della macro) e ti fermi alla 2ª riga
righe = Range("A2").CurrentRegion.Rows.Count
For I = righe To 1 Step -1 <<<<<< qui (evidenziata in giallo)
poi punti il mouse sulla variabile
righe = e annoti il valore che ti fornisce il debug (es 158)
vai sul foglio e controlli se effettivamente il massimo di righe occupate nel foglio è 158 o un numero maggiore

il numero effettivo delle righe occupate è 343 il debug fornisce per la variabile righe 344

Un'ultima cosa: quando avvi la macro che elimina le righe, hai attivo il foglio con le righe da cancellare oppure ti trovi su un altro foglio?

mi trovo su di un altro foglio

[Anthony47]

La nostra macro conteneva questa:

Codice: Seleziona tutto

If Selection.Value = "" Or Not IsNumeric(Selection.Value) Then Selection.EntireRow.Delete


Ripristinala

Ciao

[accio1965]

perfetto e grazie come al solito
riporto l'intero codice della macro per chi ne avrà bisogno in futuro:

la macro cancella tutte le righe dove le celle di colonna A NON è presente un numero oppure sono vuote

Codice: Seleziona tutto

righe = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Range("A1").Row
For I = righe To 1 Step -1
Cells(I, 1).Select
If Selection.Value = "" Or Not IsNumeric(Selection.Value) Then Selection.EntireRow.Delete
Next I


grazie di nuovo