Trovare valori ripetuti

[grankio]

Le dilazioni non hanno numero ne data di creazione xke si riferiscono già ad una fattura e quindi non le riportano xke sarebbero gli stessi se tu vedi la provvigione della 274 totale e 52.25 che è la somma di 26,12 e 26,13.
Se io per ipotesi ad ogni dilazione ci aggiungo il numero di fattura cui si riferisce sarebbe più facile?
Do devo vedere se gli estratto conto hanno sempre lo stesso stile quindi se mi riportano subito sotto le eventuali dilazioni o se nel corso degli anni il loro software le ordina in base alla scadenza

[ricky53]

Ciao,
si, si semplificherebbe ogni elaborazione ma ... ti posso confessare che NON mi è più chiaro perchè vanno cancellate le righe a fronte di fatture uguali?

Tu vuoi verificare se, per errore, sono stare inserite due fatture uguali e basta?
Se è così allora bisogna trovare la chiave che rende univoca la fattura considerando anche la presenza delle righe di delle dilazioni e degli importi.

Con il file che ti avevo chiesto prima forse qualche idea può venire.
Predisponilo ed invialo.

[grankio]

Si io vorrei vedere se per errore nei vari estratti conto nel corso degli anni vengono riportate fatture di anni precedenti ed alcuni anni capita, così da poterle eliminare perché per un successivi calcolo di un indennita .
Domani ti allego una copia dell estratto se è questo che intendi x documento più completo xke il foglio definitivo e questo che ho postato

[ricky53]

Ciao,
si mi occorrono più dati possibili per studiare le casistiche.

ATTENZIONE : Cancella i dati riservati !!!

[ricky53]

Ciao,
al momento ho una soluzione mista: una macro e, su delle colonne di appoggio, delle formule (funzione "CONTA.SE" e concatenare Data+Num per creare una chiave)
Filtrare sulla colonna specifica ove ci saranno riportate le "CONDIZIONI" che identificano le righe duplicate prodotte dalla funzione "CONTA.SE"
Cancellazione righe filtrate
FINE dei giochi

Attendo il tuo file e poi ti potrò produrre una soluzione che ... già da adesso mi convince, almeno lo spero.

[ricky53]

Ciao,
oggi è una "giornata uggiosa" e, quindi, ho avuto modo di dedicarmi un po' al forum ... ho scelto di fare tutto tramite macro.

PREMESSA: LEGGI CON MOLTA ATTENZIONE QUANTO SEGUE

Allora:
0. Fai una copia del tuo file
1. NON APRIRE il file ORIGINALE !!! Lavora sulla copia
2. Copia le macro in un modulo (dal foglio excel premi "Alt+F11", VBAProject, Microsoft Excel Oggetti, Tasto destro, Inserisci, Modulo, nella finestra di destra copia il codice che trovi alla fine
3. Con "F5" esegui il la macro "Elabora_e_Cancella"
4. Fai le verifiche controllando le colonne "N:S" che vengono scritte dalla macro, le intestazioni sono esplicative
5. Filtra sulla colonna "R" per ">1" e controlla le righe filtrate perchè queste sono le righe che verranno cancellate
6. A controllo fatto esegui la macro "Cancella_Righe"
7. Fai l'ultimo controllo con il file iniziale
8. Togli l'apice all'istruzione

Codice: Seleziona tutto

'    Call Cancella_Righe  ' <<====== QUESTA MACRO va eseguita solo dopo aver fatto le verifiche

A questo punto la macro è pronta per essere eseguita quante volte vuoi e tu non devi fare nulla se non RICONTROLLARE dopo aver eseguito la macro sul file originale e Speriamo che sia quello che avevi chiesto.

Codice: Seleziona tutto

Option Explicit
Public UR As Long, I As Long

Sub Elabora_e_Cancella()
    Sheets("Provvigioni contabilizzate").Select
    Application.ScreenUpdating = False
   
    UR = Range("Q" & Rows.Count).End(xlUp).Row
    Range("A2:S" & UR).Select
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    ActiveSheet.ShowAllData

    Range("N2:S" & UR).Clear
   
    Range("N2") = "N. Docum."
    Range("O2") = "Progr. Docum."
    Range("P2") = "Data Scadenza"
    Range("Q2") = "Chiave"
    Range("R2") = "Righe Duplicate"
    Range("S2") = "Progr. Iniziale"
    Range("S3") = 1
    Range("S4") = 2
    Range("S3:S4").Select
    Selection.AutoFill Destination:=Range("S3:S" & UR), Type:=xlFillDefault

    UR = Range("B" & Rows.Count).End(xlUp).Row
    For I = 3 To UR
        If Cells(I, "B") = "" Then
            Cells(I, "N") = Cells(I - 1, "N")
            Cells(I, "O") = Cells(I - 1, "O") + 1
        Else
            Cells(I, "N") = Cells(I, "B")
            Cells(I, "O") = 0
        End If
        Cells(I, "P") = Cells(I, "E")
        Cells(I, "Q") = Cells(I, "N") & "-" & Cells(I, "O")
    Next I
   
    Range("R3:R" & UR).FormulaR1C1 = "=COUNTIF(RC[-1]:R100C[-1], RC[-1])"
    Range("A2:S" & UR).Select
    Selection.Sort Key1:=Range("Q3"), Order1:=xlAscending, Key2:=Range("R3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
   
    Range("R3:R" & UR).Copy
    Range("R3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
   
'..................................................................................................
'    Call Cancella_Righe  ' <<====== QUESTA MACRO va eseguita solo dopo aver fatto le verifiche
'..................................................................................................
    Application.ScreenUpdating = True
    MsgBox "Elaborazione Effettuata"
End Sub

Sub Cancella_Righe()
    Sheets("Provvigioni contabilizzate").Select
    UR = Range("B" & Rows.Count).End(xlUp).Row
    Range("A2:S" & UR).Select
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    ActiveSheet.ShowAllData
    Selection.AutoFilter Field:=18, Criteria1:=">1", Operator:=xlAnd

    UR = Range("B" & Rows.Count).End(xlUp).Row

    Rows("3:" & UR).Select
    Rows("3:" & UR).Delete Shift:=xlUp
    ActiveSheet.ShowAllData
   
    UR = Range("B" & Rows.Count).End(xlUp).Row
    Range("A2:S" & UR).Select
    Selection.Sort Key1:=Range("S3"), Order1:=xlAscending, Key2:=Range("R3") _
        , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
End Sub


[grankio]

Ok grazie, pomeriggio vedo d inviarti la base da cui prendo i dati,mi sono un po' perso nella spiegazione d come eseguire la macro ma t chiederò più avanti

[ricky53]

Ciao,
va bene ma prima "RILEGGI" con "MOLTA ATTENZIONE" quanto ti ho scritto e fai i passi uno ad uno altrimenti ... mi arrabbio e ... !!!

[grankio]

ok ho copiato la macro nel foglio volume d'affari faccio f5 e mi dice errore Runtime 1004, errore nello showalldata per la classe worksheet

[ricky53]

Ciao,
SEI SICURO di aver lavorato sul file che ci hai inviato e NON su un altro modificato ????

Quali dati ci sono in colonna "A" del foglio "Provvigioni contabilizzate" ???

[grankio]

In colonna A ho l anno, B N. Documento ecc.... Come il file inviato qui

[ricky53]

Ciao,
strano ... ci sono dati in quella colonna ???

Comunque esegui la macro avviandola con "F8" e premi "F8" ogni volta per vedere cosa fa la macro sul foglio e quali istruzioni esegue e ... facci sapere.

[grankio]

ciao sto facendo con f8 e m dice al rigo : Selection.AutoFilter Field:=18, Criteria1:=">1", Operator:=xlAn
errore Runtime 1004 errore nel metodo autofilter per la classe range
scusa l ignoranza ma non capisco la formula leggevo questo rigo

Cancella_Righe()
Sheets("Provvigioni contabilizzate").Select

quindi cancella i ripetuti da provvigioni contabilizzate?io la macro la devo mettere sul foglio volume d'affari e solo li deve controllare i valori ripetuti, provvigioni contabilizzate deve restare uguale x com'e con gli eventuali valori riperuti

[ricky53]

Ciao,
essendo il foglio "Volume affari" vuoto ho ricavato che tu volessi cancellare la fatture duplicate in "Provvigioni contabilizzate".

Strano che il codice vada in errore in quella istruzione, per il momento soprassediamo per trovare una nuova soluzione e poi affronteremo gli eventuali errori.

Ricominciamo e descrivo le operazioni da fare:
1. dal foglio "Provvigioni contabilizzate" si selezionano le colonne "A_F" e si copiano nel foglio "Volume affari"
2. sul foglio "Volume affari" vanno identificate le fatture duplicate (la chiave è costituita da "num. documento" e "data scadenza")
3. si eliminano le righe con fatture duplicate


E' questo quello che ti occorre?

[ricky53]

Ciao,
prima leggi quanto ti ho scritto nel precedente intervento.

Adesso una domanda: i dati presenti nel foglio "Volume affari" possono essere "RICOPERTI COMPLETAMENTE" ???

[grankio]

ciao,
1) il foglio provvigioni contabilizzate e una copia esatta del foglio cartaceo da cui io copio i dati e come tale deve rimanere

2)nel volume d'affari io copio e incollo le colonne dalla A alla G in cui poi dovrei identificare i duplicati verificando che siano contemporaneamente uguali n.documento e data scadenza (si potrebbe allargare inserendo il nome cliente)

3)poi devo provvedere ad eliminarle, ma la macro/formula mi puo andare bene anche solo se individua precisamente i ripetuti e mi permette di distinguerli e poi li cancello 1 ad 1 (non so che percentuale d errore puo avere non vorrei eliminare cose in più)

non capisco cosa intendi per ricoperti completamente

[ricky53]

Che i dati presenti nel foglio 'Volume affari' verranno sostituiti da quelli copiati.

Proprio per farti fare le verifiche ho separato la macro che cancella da quella che elabora e ... poi potevi cancellare eseguendola

[grankio]

Che i dati presenti nel foglio 'Volume affari' verranno sostituiti da quelli copiati.

Proprio per farti fare le verifiche ho separato la macro che cancella da quella che elabora e ... poi potevi cancellare eseguendola

ok, io terminata la copia dei datti faro un ctrl+c delle colonne da A alla G e le incollo sul foglio volume affari, e poi qui (volume affari) eseguo la macro e cancello.
ps. cmq ancora ho margine di tempo xke devo copiare più di mille righe, quindi se hai da fare fai con calma non ti intossicare il weekend al pc dietro a me

[ricky53]

Ciao,
No, manualmente NON devi fare nulla, fara' tutto la macro:
copiera' le colonne
Trovera' i dati ripetuti
Tu li verificherai filtrando per >1 la colonna "Ripetuti' che la macro scrivera' e ... poi lancerai la macro che cancella
Attendi fino a questa sera

Il tuo compito e' ... solo quello di alimentare il foglio iniziale 'Provvigioni contabilizzate'

Hai preparato il file che ti avevo chiesto?

[grankio]

Purtroppo non ho potuto fart delle copie del cartaceo da cui copio i dati sia xke A3 e non potevo sia xke nn m è stato "permesso" comunque tieni conto che l Excel provvigioni contabilizzate e la copia esatta del cartaceo io al massimo posso farti avere un foglio più aggiornato con più dati settimana prossima.