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.