EXCEL 2003 trovare parola ed eliminare righe

[Phil9601]

Buongiorno a tutti. Leggo questo forum da parecchi anni ma è la prima volta che sottopongo un quesito.
In un foglio di Excel 2003 devo periodicamente riportare dei dati che vanno ad occupare le celle della colonna A
per un numero di righe che di volta in volta cambia (spesso superiore a 400).
All'interno di ogni cella ci sono vari elementi (es. ARRAU 9505 vxvx778 www 7896523 ecc.).
Avrei bisogno di una macro che selezioni le righe corrispondenti alle celle con all'interno la parola ARRAU, le successive 5 righe e le elimini.
Spero di essere stato chiaro. Grazie per l'attenzione

[ricky53]

Ciao,
prima di tutto benvenuto nel nostro forum.

Prova questo codice

Codice: Seleziona tutto

Sub Cancella_Trovati()
    Dim UR As Long, I As Long, Testo_da_Cancellare As String, Trovati As Boolean
   
    Testo_da_Cancellare = "ARRAU"
    Application.ScreenUpdating = False
    UR = Range("A" & Rows.Count).End(xlUp).Row
    For I = UR To 2 Step -1
        If InStr(UCase(Cells(I, 1)), Testo_da_Cancellare) > 0 Then
            Rows(I & ":" & I + 5).Delete Shift:=xlUp
            Trovati = True
        End If
    Next I
    Application.ScreenUpdating = True
    If Trovati = True Then
        MsgBox "Sono state cancellate le righe che rientravano nei criteri indicati"
    Else
        MsgBox "Non sono state trovate righe che rientrano nei criteri indicati"
    End If
End Sub

ATTENZIONE: il codice che ti ho inviato cancella, oltre alle 5 righe successive a quella che contiene (in colonna "A") il dato cercato, anche la riga che contiene il dato cercato.

[Phil9601]

Grande! Funziona benissimo. E' proprio quello che mi serviva. Grazie mille

[ricky53]

Ciao,
bene, mi fa piacere esserti stato utile.

Buon proseguimento e ... alla prossima.