Risultati da 1 a 16 di 16

Discussione: Ricerca km mancanti



  1. #1
    L'avatar di sebgi
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Alfonsine. Ravenna
    Età
    48
    Messaggi
    80
    Versione Office
    EXCEL 2010
    Likes ricevuti
    1

    Ricerca km mancanti

    Salve a tutti, volevo sapere se c'era un metodo "automatico" per ricercare i km mancanti, per evitare di farlo manualmente.
    Via allego un esempio per farvi capire che cosa intendo fare.
    Se avete notato, in alcuni casi i km iniziali non corrispondono con quelli finali del giorno prima. Come faccio senza perdere tanto tempo, a trovare ed inserire il km mancante???
    Questa ricerca la devo fare su 15 vetture per ogni mese.....
    mi potete aiutare??:50:

    Grazie
    SEBGI
    Invia MPPM 

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7146
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1300
    Son certo di non aver capito.... intendi così, come da allegato?
    Invia MPPM 

  3. #3
    L'avatar di sebgi
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Alfonsine. Ravenna
    Età
    48
    Messaggi
    80
    Versione Office
    EXCEL 2010
    Likes ricevuti
    1
    Ciao GES, grazie per avermi risposto.
    Il mio quesito è riferito al fatto che, devo aggiungere una riga dove i km sono mancanti.....
    esempio di partenza:

    auto 1 --> 125 --->138--->13
    auto 1 --> 141 --->158--->17

    quelo che io vorrei:
    auto 1 --> 125 --->138--->13
    auto 1 --> 138 --->141--->4
    auto 1 --> 141 --->158--->17

    spero di essermi spiegato...sono ale prime armi

    grazie
    Invia MPPM 

  4. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7146
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1300
    Adesso credo di aver capito.
    Se non vuoi sistemare i km in un altro intervallo dello stesso foglio o su un altro foglio, con le formule non si può aggiungere una riga, ci vuole il codice vba.
    Invia MPPM 

  5. #5
    L'avatar di sebgi
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Alfonsine. Ravenna
    Età
    48
    Messaggi
    80
    Versione Office
    EXCEL 2010
    Likes ricevuti
    1
    Come immaginavo.....Mi potresti aiutare?
    Invia MPPM 

  6. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7146
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1300
    Purtroppo no, il vba lo sto ancora imparando.
    Invia MPPM 

  7. #7
    L'avatar di sebgi
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Alfonsine. Ravenna
    Età
    48
    Messaggi
    80
    Versione Office
    EXCEL 2010
    Likes ricevuti
    1
    hai qualcuno a cui posso porre il quesito?

    grazie
    Invia MPPM 

  8. #8

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7146
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1300
    Lascialo qui qualcuno a breve ti risponderà e forse lo sposteranno nell'altra sezione dedicata al vba.
    Invia MPPM 

  9. I seguenti utenti hanno dato un "Like"


  10. #9
    L'avatar di ste75v
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    borgomanero
    Messaggi
    105
    Versione Office
    2013
    Likes ricevuti
    2
    Likes dati
    3
    PENSO DI AVER CAPITO... PROVA A VEDERE SE COSI TI VA BENE

    AUTO KM INIZIALI KM FINALI KM PERCORSI KM MANCANTI
    1 125 138 13
    1 141 158 17 3
    1 158 169 11 0
    1 172 235 63 3
    1 238 258 20 3

    La formula da usare è SE:
    inserici in E3 la formula =SE(C2=B3;0;B3-C2)
    Invia MPPM 

  11. I seguenti utenti hanno dato un "Like"


  12. #10
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1126
    Ho preso spunto dalla ottima soluzione di ste75v per migliorare questa formula, infatti ho aggiunto questo pezzettino in rosso che ti restituisce zero quando si arriva all'ultimo record
    in attesa della risposta di sebgi
    cari saluti a tutto il forum
    copia ed incolla questa formula in D2 e trascina in basso

    =
    SE(B3<>"";SE(C2=B3;0;B3-C2);0)

    A
    B
    C
    D
    1
    AUTO KM INIZIALI KM FINALI KM PERCORSI
    2
    1
    125
    138
    1
    3
    1
    139
    158
    4
    4
    1
    162
    169
    31
    5
    1
    200
    235
    4
    6
    1
    239
    258
    0
    Invia MPPM 

  13. I seguenti utenti hanno dato un "Like"


  14. #11

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao a tutti,
    non so se ho capito bene, ma credo che a "sebgi" serva inserire una riga intermedia ogni volta che (per lo stesso veicolo) non corrispondono i Km finali del giorno prima con i Km iniziali del giorno in questione....

    Se fosse così, come ha detto giustamente "ges" bisogna ricorrere al VBA.
    Un codice che si potrebbe usare (da mettere in un modulo standard e allegare ad un pulsante) è questo:

    Codice: 
    Option Explicit
    Sub controllo()
    Dim i As Long, uriga As Long, iniz As Long, finali As Long
    uriga = Range("A65000").End(xlUp).Row
      For i = uriga To 2 Step -1
        If Cells(i + 1, 1).Value = Cells(i, 1).Value Then
          If Cells(i + 1, 2).Value > Cells(i, 3).Value Then
            iniz = Cells(i, 3).Value
            finali = Cells(i + 1, 2).Value
            Cells(i + 1, 1).EntireRow.Insert
            Cells(i + 1, 1).Value = Cells(i, 1).Value
            Cells(i + 1, 2).Value = iniz
            Cells(i + 1, 3).Value = finali
            Cells(i + 1, 4).Value = finali - iniz
            Cells(i + 2, 4).Value = Cells(i + 2, 3).Value - Cells(i + 2, 2).Value
          End If
        End If
      Next i
    End Sub
    Lascio un file di esempio in allegato per vedere se ho capito bene....
    Ultima modifica fatta da:cromagno; 15/09/15 alle 04:03

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  15. I seguenti 2 utenti hanno dato un "Like" a cromagno per questo post:


  16. #12
    L'avatar di sebgi
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Alfonsine. Ravenna
    Età
    48
    Messaggi
    80
    Versione Office
    EXCEL 2010
    Likes ricevuti
    1
    grazie Cromagno....è proprio quello che volevo.
    grazie grazie e grazie
    non sai da che scocciatura mi hai liberato

    Un grazie anche a tutti quelli che mi hanno dato una mano.

    Saluti a presto
    sebgi
    Invia MPPM 

  17. #13

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Grazie a te del riscontro ;)
    Invia MPPM 

  18. I seguenti utenti hanno dato un "Like"


  19. #14
    L'avatar di sebgi
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Alfonsine. Ravenna
    Età
    48
    Messaggi
    80
    Versione Office
    EXCEL 2010
    Likes ricevuti
    1
    Ciao scusami...
    potresti quando e se hai tempo spiegarmi ciò che hai fatto??

    Saluti
    sebgi
    Invia MPPM 

  20. #15

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao sebgi,
    non so quanto possa essere utile la spiegazione senza conoscere prima un pò di VBA, quindi ti consiglio (se ti interessa) di dare uno sguardo qui:
    http://ennius.altervista.org/freevbam.htm

    Detto questo, proverò a commentarti riga per riga cosa fa il codice:

    1. Option Explicit
    2. Sub controllo()

    1. Dim i As Long, uriga As Long, iniz As Long, finali As Long
    2. uriga = Range("A65000").End(xlUp).Row
    3. For i = uriga To 2 Step -1
    4. If Cells(i + 1, 1).Value = Cells(i, 1).Value Then
    5. If Cells(i + 1, 2).Value > Cells(i, 3).Value Then

    8. iniz = Cells(i, 3).Value
    9. finali = Cells(i + 1, 2).Value
    10. Cells(i + 1, 1).EntireRow.Insert

    1. Cells(i + 1, 1).Value = Cells(i, 1).Value

    12. Cells(i + 1, 2).Value = iniz
    13. Cells(i + 1, 3).Value = finali
    14. Cells(i + 1, 4).Value = finali - iniz

    1. Cells(i + 2, 4).Value = Cells(i + 2, 3).Value - Cells(i + 2, 2).Value

    16. End If
    17. End If
    18. Next i
    19. End Sub



    1. Specifico l’obbligo di dichiarare tutte le variabili
    2. Intestazione della routine (macro) “controllo”
    3. Definisco le variabili che utilizzerò e di che “tipo” sono
    4. Calcolo l’ultima riga della lista (parto dal basso perché quando si aggiungono righe si sfaserebbe il conteggio/individuazione dell’ultima riga. Di conseguenza, alcune righe non verrebbero controllate).
    5. Inizio il ciclo di controllo, dall’ultima riga fino alla prima, una riga per volta (STEP -1)
    6. Supponiamo di trovarci alla riga 10 con il nostro ciclo….
    1° condizione = se il valore di A10 è uguale al valore di A11…. VERO/FALSO
    7. Se è VERA la 1° condizione…
    2° condizione = se B11 è maggiore di C10…. VERO/FALSO
    8. Se è vera anche la seconda condizione…
    assegno alla variabile “iniz” il valore della cella C10
    9. Assegno alla variabile “finali” il valore della cella B11
    10. Mi posiziono nella cella A11 e inserisco una riga (da questo momento, la riga 11 è la nuova riga inserita, quindi vuota e da riempire)
    11. Assegno alla cella A11 il valore della cella A10
    12. Assegno alla cella B11 il valore della variabile “iniz”
    13. Assegno alla cella C11 il valore della variabile “finali”
    14. Assegno alla cella D11 il valore della differenza tra “finali” e “iniz”
    15. Questo è solo un controllo aggiuntivo, in quanto se inizialmente nella cella D11 (prima dell’inserimento della riga) non c’era la formula ma solo il valore ottenuto dal codice VBA, questo valore non si adeguerebbe ai nuovi dati, quindi:
    Assegno alla cella D12 la differenza tra la cella C12 e la cella B12
    16. Chiudo la 2° condizione
    17. Chiudo la 1° condizione
    18. Continuo il ciclo controllando la riga successiva, quindi la 9 (STEP -1)
    19. Fine della routine

    P.S.
    Incollando il codice, la numerazione si è "sfasata", ma credo riuscirai lo stesso a seguire le righe ;)
    Ultima modifica fatta da:cromagno; 17/09/15 alle 13:01

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

  21. I seguenti utenti hanno dato un "Like"


  22. #16
    L'avatar di sebgi
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Alfonsine. Ravenna
    Età
    48
    Messaggi
    80
    Versione Office
    EXCEL 2010
    Likes ricevuti
    1
    grazie ....non so come sdebitarmi...
    Ho intenzione di imparare un po di vba... e questo forum mi sta dando tanto

    grazie ancora
    Invia MPPM 

Discussioni Simili

  1. [Risolto] Codice mancanti
    Di ferposso61 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 25/02/17, 20:46
  2. [Risolto] Nomi mancanti da elenco
    Di cirochim nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 07/01/17, 17:37
  3. [Risolto] Numeri mancanti
    Di mapero nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 30/11/16, 08:37
  4. Ricerca giorni mancanti a fine mese e mese successivo
    Di pixartao nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 02/08/16, 15:08
  5. Ricerca numeri mancanti
    Di antonysameli nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 16/12/15, 22:44

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •