Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Elimina righe se non e presente un nome di una lista

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

Elimina righe se non e presente un nome di una lista

Postdi tomax.tomax » 09/06/16 18:14

Ciao a tutti
Sono nuovo del forum ho trovato questa macro "eliminarighe" che farebbe al mio caso, solo ho un problema ovvero avendo molti piu nomi da filtrare e mantenere non riesco ad aggiungere l' elenco che per giunta posso utilizzare anche dentro un altro foglio che ho nel file excell.
Cortesemente riusciresti ad aiutarmi.Grazie e Buon lavoro

Sub eliminarighe()
Dim ur As Integer
With Sheets("DDT_BB")
ur = .Cells(Rows.Count, 6).End(xlUp).Row
For n = ur To 2 Step -1
If .Cells(n, 6).Value <> "teur" And .Cells(n, 6).Value <> "tped" Then
.Cells(n, 6).EntireRow.Delete
End If
Next n
End With
End Sub
tomax.tomax
Newbie
 
Post: 3
Iscritto il: 09/06/16 17:20

Sponsor
 

Re: Elimina righe se non e presente un nome di una lista

Postdi alfrimpa » 09/06/16 18:16

Ciao

A me la macro sembra scrita bene; quali sono le tue preoccupazioni?

Potresti allegare un tuo file di esempio e specificare i criteri in base ai quali le righe devono essere eliminate?
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Elimina righe se non e presente un nome di una lista

Postdi tomax.tomax » 09/06/16 18:30

ciao

il problema e che posso mettere solo 2 nomi da filtrare io invece nel file mediamente ne ho circa 20
tomax.tomax
Newbie
 
Post: 3
Iscritto il: 09/06/16 17:20

Re: Elimina righe se non e presente un nome di una lista

Postdi alfrimpa » 09/06/16 18:35

Hai anche postato su un altro forum.

Decidi su quale continuare e allega un file di esempio spiegando quello che vuoi fare/ottenere inserendo anche il risultato desiderato.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Elimina righe se non e presente un nome di una lista

Postdi tomax.tomax » 10/06/16 19:04

ciao Alfredo
Scusa la banalita ma dove trovo il pulsante allega file, sono nuvo e non ho dimestichezza

Grazie di tutto
tomax.tomax
Newbie
 
Post: 3
Iscritto il: 09/06/16 17:20

Re: Elimina righe se non e presente un nome di una lista

Postdi Anthony47 » 12/06/16 22:12

Ciao tomax.tomax, benvenuto nel forum.
Insomma, se capisco bene, vuoi mantenere solo le righe dove in colonna F compare una sigla particolare.
Dove vuoi all'interno del file (ma non sulle stesse righe dove c'e' il tuo elenco da ripulire) creati in verticale un elenco di sigle che vuoi mantenere e poi assegna a quest'intervallo il nome "Lista".
Poi modifica la riga
If .Cells(n, 6).Value <> "teur" And .Cells(n, 6).Value <> "tped" Then
in
Codice: Seleziona tutto
        If Application.WorksheetFunction.CountIf(Range("Lista"), Cells(n, 6).Value) = 0 Then

Se in questo modo non risolvi, per le istruzioni su come allegare un file vedi qui:
viewtopic.php?f=26&t=103893&p=605487#p605487

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13892
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Elimina righe se non e presente un nome di una lista

Postdi alfrimpa » 12/06/16 23:02

Anthony non preoccuparti; Tomax ha risolto su altro forum.

P.S. Auguri per il tuo onomastico.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli


Torna a Applicazioni Office Windows


Topic correlati a "Elimina righe se non e presente un nome di una lista":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti