Eliminare righe in base a contenuti di celle

[David Kietto]

Buongiorno a tutti , ho trovato in rete questo codice, e funziona benissimo, solo che cerca ed elimina solo un valore..
per fare in modo che mi cerchi ed elimini piu valori come posso modificarlo?
i valori da cercare sono sempre nella colonna A.. come ho scritto in alto, il codice funziona benissimo.
grazie a tutti e buona giornata

Sub Elimina_righe_472()
Dim i
Dim Stringa
Stringa = "*472*"
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, "A") Like Stringa Then
Cells(i, "A").Select
Selection.EntireRow.Delete
End If
Next i
End Sub

[David Kietto]

Post by David Kietto
Buongiorno a tutti , ho trovato in rete questo codice, e funziona benissimo,
solo che cerca ed elimina solo un valore.. per fare in modo che mi cerchi ed
elimini piu valori come posso modificarlo? i valori da cercare sono sempre
nella colonna A.. come ho scritto in alto, il codice funziona benissimo.
grazie a tutti e buona giornata
Sub Elimina_righe_472()
Dim i
Dim Stringa
Stringa = "*472*"
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, "A") Like Stringa Then
Cells(i, "A").Select
Selection.EntireRow.Delete
End If
Next i
End Sub

==================================
Public Sub EliminaRighe()
Dim R, i, j, RA As Range
R = Array("a", "b", "u", "w", "d", "z")
Set RA = Range([A1], [A1].End(xlDown))
For Each i In R
For Each j In RA
If i = j Then
j.EntireRow.Delete
End If
Next
Next
End Sub
==================================
Se ho ben capito, si eliminano le intere righe chs hanno in A
i valori indicati in R.
Valori unici nelle celle, o dovrebbero eliminarsi
anche le righe che in A hanno per esempio "buona", "vezzo, etc?
Bruno

********************************************************************************
Grazie mille la provo e ti dico....

Nella colonna A sono presenti solo numeri... ed in base al numero , vorrei eliminare tutte le righe che hanno i numeri da me scelti..

buongiorno, ho provato la tua soluzione , ma non va... grazie lo stesso

[David Kietto]

Post by David Kietto

Post by David Kietto
Buongiorno a tutti , ho trovato in rete questo codice, e funziona
benissimo, solo che cerca ed elimina solo un valore.. per fare in modo
che mi cerchi ed elimini piu valori come posso modificarlo? i valori da
cercare sono sempre nella colonna A.. come ho scritto in alto, il codice
funziona benissimo. grazie a tutti e buona giornata
Sub Elimina_righe_472()
Dim i
Dim Stringa
Stringa = "*472*"
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, "A") Like Stringa Then
Cells(i, "A").Select
Selection.EntireRow.Delete
End If
Next i
End Sub

==================================
Public Sub EliminaRighe()
Dim R, i, j, RA As Range
R = Array("a", "b", "u", "w", "d", "z")
Set RA = Range([A1], [A1].End(xlDown))
For Each i In R
For Each j In RA
If i = j Then
j.EntireRow.Delete
End If
Next
Next
End Sub
==================================
Se ho ben capito, si eliminano le intere righe chs hanno in A
i valori indicati in R.
Valori unici nelle celle, o dovrebbero eliminarsi
anche le righe che in A hanno per esempio "buona", "vezzo, etc?
Bruno

********************************************************************************
Grazie mille la provo e ti dico....

Nella colonna A sono presenti solo numeri... ed in base al numero , vorrei
eliminare tutte le righe che hanno i numeri da me scelti..

buongiorno, ho provato la tua soluzione , ma non va... grazie lo stesso

Se sono numeri, in R vanno espressi senza "", separati da virgola.
R = Array(8, 15, 215, 3020)
Bruno

**********************************************************************************
Public Sub EliminaRighe()
Dim R, i, j, RA As Range

R = Array(471,472,998, 999)
Set RA = Range([A1], [A1].End(xlDown))
For Each i In R
For Each j In RA
If i = j Then
j.EntireRow.Delete
End If
Next
Next

End Sub
***********************************************************************
sicuramente sono di coccio io.... ma ame non va...