Macro Excel 2010 per eliminare righe mailing

[sonomax]

Buongiorno,
ho un semplice quesito: da un elenco di excle composto da nome, cognome e indirizzo email ho la necessità di cercare all'interno delle celle diverse parti di testo, ad esempio "amministr", "contab", "laboratorio" ecc e creare un ciclo dall'ultima riga alla prima in modo che ogni volta venga trovata la parte di testo che decido, venga eliminata la riga intera.
Ho trovato una macro ma mi elimina la riga SOLO se il testo inserito corrisponde esattamente, non se la cella contiene in parte quel testo.
eccola:

Sub DelNumRipet()
Dim Cancella(5) As String
Cancella(1) = "PIPPO"
Cancella(2) = "TOPOLINO"
Cancella(3) = "PAPERINA"
Cancella(4) = "PLUTO"
Cancella(5) = "PAPERONE"
For C = 1 To 5
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For CR = UR To 2 Step -1
UC = Worksheets("Foglio1").Cells(CR, Columns.Count).End(xlToLeft).Column

Rows(CR & ":" & CR).Select
For CC = 1 To UC
If Cancella(C) = UCase(Cells(CR, CC).Value) Then Rows(CR & ":" & CR).Delete Shift:=xlUp
Next CC
Next CR
Next C
End Sub

Grazie.

[ricky53]

Ciao,
non sono entrato nel merito del codice, ho solo controllato l'istruzione di confronto e ...
sostituisci la tua istruzione

Codice: Seleziona tutto

     If Cancella(C) = UCase(Cells(CR, CC).Value) Then Rows(CR & ":" & CR).Delete Shift:=xlUp

con

Codice: Seleziona tutto

                If InStr(1, Cells(CR, CC), Cancella(C)) > 0 Then
                    Rows(CR & ":" & CR).Delete Shift:=xlUp
                End If

Ricordati di inserire, nel modulo, come prima riga della macro la seguente istruzione

Codice: Seleziona tutto

Option Compare Text

che ti evita l'utilizzo di "UCASE"