Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL 2003 trovare parola ed eliminare righe

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL 2003 trovare parola ed eliminare righe

Postdi Phil9601 » 22/03/12 09:05

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
Phil9601
Utente Junior
 
Post: 12
Iscritto il: 22/03/12 08:39

Sponsor
 

Re: EXCEL 2003 trovare parola ed eliminare righe

Postdi ricky53 » 22/03/12 12:31

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.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL 2003 trovare parola ed eliminare righe

Postdi Phil9601 » 22/03/12 16:37

Grande! Funziona benissimo. E' proprio quello che mi serviva. Grazie mille :)
Phil9601
Utente Junior
 
Post: 12
Iscritto il: 22/03/12 08:39

Re: EXCEL 2003 trovare parola ed eliminare righe

Postdi ricky53 » 22/03/12 16:56

Ciao,
bene, mi fa piacere esserti stato utile.

Buon proseguimento e ... alla prossima.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL 2003 trovare parola ed eliminare righe":


Chi c’è in linea

Visitano il forum: Nessuno e 12 ospiti

cron