Condividi:        

eliminare celle e accorpare

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

eliminare celle e accorpare

Postdi rombotuono » 22/01/20 10:33

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
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Sponsor
 

Re: eliminare celle e accorpare

Postdi Anthony47 » 22/01/20 12:48

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: eliminare celle e accorpare

Postdi rombotuono » 22/01/20 13:00

grazie
perfetto
sempre gentilissimo
ciao
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Re: eliminare celle e accorpare

Postdi rombotuono » 12/02/20 22:01

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
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Re: eliminare celle e accorpare

Postdi Anthony47 » 12/02/20 23:56

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: eliminare celle e accorpare

Postdi rombotuono » 13/02/20 00:31

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
rombotuono
Utente Senior
 
Post: 112
Iscritto il: 09/11/18 17:27

Re: eliminare celle e accorpare

Postdi Anthony47 » 13/02/20 10:36

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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "eliminare celle e accorpare":


Chi c’è in linea

Visitano il forum: Nessuno e 58 ospiti

cron