Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro Excel 2010 per eliminare righe mailing

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

Macro Excel 2010 per eliminare righe mailing

Postdi sonomax » 22/06/12 13:53

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.
sonomax
Newbie
 
Post: 1
Iscritto il: 22/06/12 13:44

Sponsor
 

Re: Macro Excel 2010 per eliminare righe mailing

Postdi ricky53 » 22/06/12 14:30

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"
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 "Macro Excel 2010 per eliminare righe mailing":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti