macro excell per cancellare righe su criterio

[sissi78]

Ciao Ragazzi,
premettendo che le macro non sono il mio forte... mi sarebbe molto utile una macro che cancelli le righe in base al seguente criterio se il pod e la decorrenza 1 sono presenti una sola volta non fare azioni
Se il pod e la decorrenza 1 sono presenti più volte scegliere la riga che in tipo dati riporta la seguente sequenza di priorità:

Dati ORARI Distributore
Dati Consumo Certificati
Dati Non Orari Distributore
Simulazione Bollette

(praticamente vorrei eliminare i doppioni in base alla priorità di cui sopra) :-)

Ho un file excell fatto con le colonne che seguono:

ragione pod decorrenza 1 decorrenza 2 tipo dati F1 F2 F3

[ricky53]

Ciao,
ciao prima di tutto benvenuta nel nostro forum.


Non mi è ben chiaro come hai strutturato i dati e quali dati contengono le varie colonne.
Non ho capito il discorso sulla sequenza di priorità !

Comunque non è necessaria una macro.
Perchè non utilizzare una colonna di appoggio in cui scrive una formula con la funzione "CONTA.SE" sulla colonna pod ed un altra sulla colonna "decorrenza 1" e poi applicare un filtro su queste colonne per >1 e cancellare le righe che non ti interessano?
Se hai excel 2007 o successivi puoi utilizzare una sola colonna con la funzione "CONTA.PIU.SE".

Un file di esempio ci aiuterebbe molto, togli i dati riservati.

[sissi78]

Ciao Riky,
grazie mille per il benvenuto :-)

ho office 2010.
provo a mandarti il file in privato?

[ricky53]

Ciao,
no in privato NO perchè non consentiamo agli altri utenti di poterti aiutare.
Togli i dati riservati ed allegalo nel forum

[sissi78]

Ciao Riky,
io ho più righe per lo stesso cliente e periodo e ne voglio salvare solo una con il criterio di priorità a seguire

se ho Dati ORARI Distributore tengo solo quella riga.
Se non c'è ed ho Dati Consumo Certificati o Dati Non Orari Distributore o Simulazione Bollette tengo la prima riga che trovo in ordine di importanza dei dati. (se le lascio tutte e 4 quando presenti in pratica dupplico o triplico i record e questo mi sballa i totali).

ho provato a inserire il file di seguito con il risultato che vorrei.
ancora grazie mille per il tuo aiuto

Sissi

a seguire il file di esempio

ragione pod decorrenza 1 decorrenza 2 tipo dati F1 F2 F3
cliente 1 IT011E10592xxx 01/02/2014 28/02/2014 Dati Consumo Certificati 2805 2308 3245
cliente 1 IT011E10592xxx 01/02/2014 28/02/2014 Dati Non Orari Distributore 2805 2308 3245
cliente 1 IT011E10592xxx 01/03/2014 31/03/2014 Dati Consumo Certificati 2805 2827 3717
cliente 1 IT011E10592xxx 01/03/2014 31/03/2014 Dati Non Orari Distributore 2805 2827 3717
cliente 1 IT011E10592xxx 01/04/2014 30/04/2014 Dati Consumo Certificati 2530 2304 3476
cliente 1 IT011E10592xxx 01/04/2014 30/04/2014 Dati Non Orari Distributore 2331 2309 3284
cliente 1 IT011E10592xxx 01/05/2014 31/05/2014 Dati Consumo Certificati 2210 2391 3202
cliente 1 IT011E10592xxx 01/05/2014 31/05/2014 Dati Non Orari Distributore 2409 2386 3394
cliente 1 IT011E10592xxx 01/06/2014 30/06/2014 Dati Consumo Certificati 2748 2551 3616
cliente 1 IT011E10592xxx 01/06/2014 30/06/2014 Dati Non Orari Distributore 2748 2551 3616
cliente 1 IT011E10592xxx 01/07/2014 31/07/2014 Dati Consumo Certificati 2648 2325 3091
cliente 1 IT011E10592xxx 01/07/2014 31/07/2014 Dati Non Orari Distributore 2584 2360 3324
cliente 1 IT011E10592xxx 01/08/2014 31/08/2014 Dati Consumo Certificati 2520 2395 3558
cliente 1 IT011E10592xxx 01/08/2014 31/08/2014 Dati Non Orari Distributore 2584 2360 3325
cliente 1 IT011E10592xxx 01/09/2014 30/09/2014 Dati Consumo Certificati 2644 2256 2841
cliente 1 IT011E10592xxx 01/09/2014 30/09/2014 Dati Non Orari Distributore 2579 2310 2789
cliente 1 IT011E10592xxx 01/10/2014 31/10/2014 Dati Consumo Certificati 2599 2441 2829
cliente 1 IT011E10592xxx 01/10/2014 31/10/2014 Dati Non Orari Distributore 2664 2387 2881
cliente 1 IT011E10592xxx 01/11/2014 30/11/2014 Dati ORARI Distributore 2868 2149 2734
cliente 1 IT011E10592xxx 01/12/2014 31/12/2014 Dati ORARI Distributore 2938 2359 3592


risultato che vorrei

cliente 1 IT011E10592xxx 01/02/2014 28/02/2014 Dati Consumo Certificati 2805 2308 3245
cliente 1 IT011E10592xxx 01/03/2014 31/03/2014 Dati Consumo Certificati 2805 2827 3717
cliente 1 IT011E10592xxx 01/04/2014 30/04/2014 Dati Consumo Certificati 2530 2304 3476
cliente 1 IT011E10592xxx 01/05/2014 31/05/2014 Dati Consumo Certificati 2210 2391 3202
cliente 1 IT011E10592xxx 01/06/2014 30/06/2014 Dati Consumo Certificati 2748 2551 3616
cliente 1 IT011E10592xxx 01/07/2014 31/07/2014 Dati Consumo Certificati 2648 2325 3091
cliente 1 IT011E10592xxx 01/08/2014 31/08/2014 Dati Consumo Certificati 2520 2395 3558
cliente 1 IT011E10592xxx 01/09/2014 30/09/2014 Dati Consumo Certificati 2644 2256 2841
cliente 1 IT011E10592xxx 01/10/2014 31/10/2014 Dati Consumo Certificati 2599 2441 2829
cliente 1 IT011E10592xxx 01/10/2014 31/10/2014 Dati Non Orari Distributore 2664 2387 2881
cliente 1 IT011E10592xxx 01/11/2014 30/11/2014 Dati ORARI Distributore 2868 2149 2734
cliente 1 IT011E10592xxx 01/12/2014 31/12/2014 Dati ORARI Distributore 2938 2359 3592

[Flash30005]

Ciao Sissi78 e benvenuta nel Forum

Trovo discordanze tra l'input e l'output dei dati ma se ho interpretato bene questa macro dovrebbe risolvere altrimenti posta ancora dicendo cosa ottieni e cosa vorresti ottenere specificando le motivazioni e non solo dicendo "pod" che sicuramente per te ha un significato per me lo potrebbe avere con una "I" davanti (Ipod)

Codice: Seleziona tutto

Sub EliminaDoppioni()
UR1 = Range("C" & Rows.Count).End(xlUp).Row
For RR1 = 2 To UR1
CodUni1 = Range("A" & RR1) & Range("C" & RR1) & Range("D" & RR1) & Range("E" & RR1) & Range("G" & RR1) & Range("H" & RR1) & Range("I" & RR1)
For RR2 = UR1 To RR1 + 1 Step -1
CodUni2 = Range("A" & RR2) & Range("C" & RR2) & Range("D" & RR2) & Range("E" & RR2) & Range("G" & RR2) & Range("H" & RR2) & Range("I" & RR2)
If CodUni1 = CodUni2 Then Rows(RR2).Delete
Next RR2
Next RR1
End Sub


Prima di procedere fai un duplicato del file originale perché la macro elimina definitivamente le righe che ritiene doppie
Copia l'intero codice (apposito comando posto sopra al codice "Seleziona tutto")
dal foglio dei dati premi Alt + F11
sulla destra incolli la macro
Avvia la macro e controlla i risultati ottenuti

ciao

[sissi78]

grazie mille flash faccio un tentataivo e ti faccio sapere!!
anch'io preferisco l'ipod.... hi hi hi

[sissi78]

Ciao Flash,
mi sa che mi sono incartata sui range.

quando tu nomini la variabile range "c" al posto di C devo inserire il nome della colonna?

so che sono una capra ma porta pazienza....

Sissi

[Flash30005]

Ho considerato i campi che vedi nell'immagine le colonne prese in considerazione
se non sono così devi cambiare la/le lettere delle colonne in Range nei due codici CodUni 1 e 2


url immagine

ciao

[sissi78]

tutto perfetto ma la colonna B non esiste nel mio caso.
cliente 1 è una colonna sola per coprire il nome....
ancora grazie ed a presto

sissi

[sissi78]

ci siamo quasi
il problema è che la mia variabile ha 4 valori solo sulla colonna F e devo tenere solo il più importante nel caso ci sia (che è il valore dati orari distributore)
Se non c'è questo valore devo tenere Dati Consumo Certificati
Se non ci sono i due valori sopra devo tenere Dati Non Orari Distributore
e solo se non ci sono i tre precedenti devo tenere Simulazione Bollette.
lo so che ti sto annoiando ma nel cancellare le righe a mano divento più stupida di quello che sono già....

thank's

[Flash30005]

Facendolo a mano userai una logica che se la esponi al meglio la potrei applicare alla macro e potrei terminare il progetto ormai quasi ultimato ma... così non riesco a capire, mi occorre il file come esempio.
Leggi gli MP, ci sono le indicazioni di come fare

ciao