Elimina righe se non e presente un nome di una lista

[tomax.tomax]

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

[alfrimpa]

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?

[tomax.tomax]

ciao

il problema e che posso mettere solo 2 nomi da filtrare io invece nel file mediamente ne ho circa 20

[alfrimpa]

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.

[tomax.tomax]

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

Grazie di tutto

[Anthony47]

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

[alfrimpa]

Anthony non preoccuparti; Tomax ha risolto su altro forum.

P.S. Auguri per il tuo onomastico.