eliminare celle e accorpare

[rombotuono]

buongiorno
da un elenco vorrei eliminare quelle celle che contengono un determinato valore
ho provato ma purtroppo non riesco a venirne a capo.
allego file
http://www.filedropper.com/prova_2
grazie

[Anthony47]

A spiegazione veloce, macro veloce:

Codice: Seleziona tutto

Sub Nettoy()
Dim lFor As String, I As Long, DelCnt As Long, LastG As Long
'
lFor = "Rinvia"
LastG = Cells(Rows.Count, "G").End(xlUp).Row
For I = LastG To 5 Step -1
    If InStr(1, Cells(I, "L"), lFor, vbTextCompare) > 0 Then
        Cells(I, "F").Resize(1, 7).Delete Shift:=xlUp
        DelCnt = DelCnt + 1
    End If
Next I
MsgBox ("Completato, eliminate n° " & DelCnt & " righe")
End Sub

Va messa in un modulo standard del vba

Ciao

[rombotuono]

grazie
perfetto
sempre gentilissimo
ciao

[rombotuono]

buonasera
la macro per lo scopo da me illustrato funziona perfettamente ma
chiedo se è possibile modificarla in quanto ho riscontrato delle anomalie nell'importazione dei dati la macro è Sub Nettoy() di Anthony47
allego file con spiegazione
http://www.filedropper.com/prova_4
grazie

[Anthony47]

La macro non ha nessuna anomalia, hai cambiato le regole di cancellazione delle righe.

Puoi pero' ottenere in proprio la prestazione che cerchi:
-in una colonna libera (ad esempio la M) crea una formula che scriva Rinviato se in colonna L c'e' scritto Rinviato E la stessa partita non compare in elenco; da come vedo organizzati i dati ti basterebbe controllare che la stessa combinazione di squadra1 & squadra2 non compaia nelle 20 righe successive al Rinviato.

A questo punto nella Sub Netttoy bastera' modificare la parte If InStr(1, Cells(I, "L") etc etc in If InStr(1, Cells(I, "M") etc etc

Ciao

[rombotuono]

non intendevo dire che nella macro ci fosse un errore per quello che ho chiesto a suo tempo funziona perfettamente
mi era sfuggito un particolare che nell'importare i dati purtroppo ho riscontrato un problema non visto in precedenza.
il problema attuale è quello esposto.
provo a scrivere la formula spero di riuscirci
grazie

[Anthony47]

Ad esempio, in M4 e poi da copiare verso il basso:

Codice: Seleziona tutto

=SE(L4="";"";SE(CONTA.SE(G5:G25;G4)=1;SE(SINISTRA(L4;6)="Rinvia";L4;"");""))

Ciao