Risultati da 1 a 23 di 23

Discussione: Gestione automezzi rilevamento scadenze e anomalie



  1. #1
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Gestione automezzi rilevamento scadenze e anomalie

    Un saluto a tutto il forum.<br>Premesso che mi sono appena avvicinato ad Excel stavo cercando di trovare una "formula" semplice che mi evidenziasse su un parco auto quali mezzi hanno la polizza scaduta o sospesa.<br>Mi spiego.<br>Per il momento (salvo i miglioramenti che da solo o con il vs aiuto riuscirò a dare) mi basterebbe che, dato un database con gli estremi di tutti i mezzi, allorquando si verifichi un'anomalia (polizza scaduta o sospesa) un'apposita maschera o elenco mi evidenziasse in righe continue quali sono i mezzi che hanno la polizza scaduta ed anche quali quelli che dopo averi inserito nell'apposita cella un segno come ad es una X appaiono con polizza sospesa.<br>Nel mio piccolo sono solo riuscito a "colorare" le righe quando la condizione "data inserita" &lt;OGGI() risulta vera e/o quando, avvicinandosi una scadenza occorre dare rilievo a questa mediante colorazione della cella di un rosso vivo.<br>Sarebbe inoltre utile comprendere come fare, se si intende inserire una nuova riga per un eventuale nuovo mezzo, ad evitare che tutte le formule vengano sconvolte o disattese perchè, ad es., il database è ricompreso tra la cella A1 e J80 ed anche (ma è un di più superfluo) come colorare la colonna numerica di un colore diverso per le targhe da A-C, D-E, F-Z.<img src="images/smilies/251.gif" border="0" alt="" title="251" smilieid="208" class="inlineimg"><br>Non so se sono riuscito a spiegarmi ma forse allegando un file di esempio (il mio "pasticcio") con dati camuffati si riesce a comprendere meglio.
    File Allegati File Allegati

  2. #2
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Ciao emciri, se ho capito bene, copia la seguente:

    In Foglio "Anomalie", B2:
    =SE.ERRORE(INDICE(TUTTE!B$3:B$79;AGGREGA(15;6;(RIF.RIGA(TUTTE!$G$3:$G$79)-2)/((TUTTE!$G$3:$G$79<OGGI())+(TUTTE!$H$3:$H$79="X"));RIGHE($G$2:$G2)));"")
    da tirare a destra e successivamente tirare giù alla bisogna.
    Allego il file di prova, fa sapere se va bene.
    Ciao.
    File Allegati File Allegati

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Citazione Originariamente Scritto da pkrome59 Visualizza Messaggio
    Ciao emciri, .....
    PAZZESCOOOO
    Voi siete GRANDI...
    Grazie @pkrome59 :18:
    Ho provato un po' di corsa ma credo che vada bene... Adesso me lo studio e lo "sfruculeo" meglio.
    Non vorrei dire fesserie ma sembrerebbe che il mezzo n. 5 BA456CV che aveva la x della sospensione, una volta tolto non è stato eliminato dalle "Anomalie"... ma ho fatto di corsa e ora non poso provare bene.
    Vi farò sapere... se on fate prima voi, ora devo andare.
    Grazie ancora :239:
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:58 Motivo: Ciao, ridotto [quote]

  5. #4
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Ciao, fai attenzione perché il mezzo n. 5 BA456CV nelle anomalie in assenza della "X", come da aspettative, non viene visualizzato.
    Di nuovo ciao.

  6. #5
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Effettivamente deve essersi trattato di una disattenzione. Ora sembra funzionare ma... è sorto un altro piccolo problema cui non avevo pensato.
    La formula funziona solo a casa dove l'ho provata su....Excel 2013!!!
    In ufficio invece ho a disposizione solo Excel 2007 dove, mi pare, la funzione AGGREGA non funziona!!!:251:
    Come posso ovviare?
    Grazie mitici :243:
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:58

  7. #6
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Per 2007
    In B2
    Codice: 
    =SE(TUTTE!$G3="";"";SE(O(TUTTE!$G3<OGGI();TUTTE!$H3="X");CERCA.VERT($A2;TUTTE!$A$3:$I$101;RIF.COLONNA();FALSO);""))
    Dopo trascini a destra e in basso. Formatta la colonna D come data

  8. #7
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    La cosa splendida a frequentare questo forum è che gli aiuti piovono come...polpette in...tempo reale. Grazie
    Grazie @Raffaele_53
    Solo che con quest'ultima formula le righe non vengono raggruppate di seguito anche se il risultato rimane apprezzabile :271:
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:57

  9. #8
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Ciao emciri, un'alternativa alla formula proposta da Raffaele_53, che saluto cordialmente, per la versione 2007, potrebbe essere la seguente:

    In "ANOMALIE", B2:
    =SE(TUTTE!$G3="";"";INDICE(TUTTE!B$3:B$79;PICCOLO(SE((TUTTE!$G$3:$G$79<OGGI())+(TUTTE!$H$3:$H$79="X");(RIF.RIGA(TUTTE!$G$3:$G$79)-2));RIGHE($G$2:$G2))))
    da attivare con i tasti CTRL+ALT+INVIO, in quanto trattasi di formula matriciale.
    Successivamente da trascinare verso destra e poi tirare giù alla bisogna.
    Allego il file di prova, fai sapere se ti va bene.
    Saluti
    File Allegati File Allegati

  10. I seguenti utenti hanno dato un "Like"


  11. #9
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Citazione Originariamente Scritto da pkrome59 Visualizza Messaggio
    Ciao emciri, ...
    Grazie, proverò domani in ufficio.
    Tempestivi come non mai.
    PS. Non è che intendevi CTRL+MAIUSC+INVIO?
    Citazione Originariamente Scritto da pkrome59 Visualizza Messaggio
    Ciao, fai attenzione perché il mezzo n. 5 BA456CV nelle anomalie in assenza della "X", come da aspettative, non viene visualizzato.
    Di nuovo ciao.
    Approfitto per chiarire meglio il concetto che forse ho reso male nel mio precedente post a proposito dell'anomalia della "X" e che probabilmente non ho neppure compreso nella risposta di @pkrome59 :187:.
    Dunque ho scoperto che se in una riga manca la data di scadenza polizza ma vi è la x, quell'autoveicolo non viene inserito nel foglio "anomalie" mentre viene duplicato un altro veicolo e il foglio riporta comunque l'esatto numero di anomalie.
    Nel foglio allegato ho messo le targhe in serie e ho creato anomalie per le prime 5 righe più una dopo un certo intervallo.
    Ebbene nella 5a riga se tolgo la data polizza e metto la x il veicolo della 2a riga (tg AAX622) risulta duplicato nelle Anomalie mentre se metto la data di scadenza anteriore ad oggi o solo la X questo non accade.
    In conclusione. se non c'è rimedio, dovrei fare attenzione al fatto che siano presenti almeno uno dei due dati "incriminati".
    Ancora un ENORME GRAZIE per gli stupendi contributi che date a noi semplici "mortali" :264:
    File Allegati File Allegati
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:57

  12. #10
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Ciao, prova così:

    In B2:
    =SE.ERRORE(INDICE(TUTTE!B$3:B$79;AGGREGA(15;6;(RIF.RIGA(TUTTE!$G$3:$G$79)-2)/((TUTTE!$G$3:$G$79<OGGI())*(TUTTE!$G$3:$G$79>0)+(TUTTE!$H$3:$H$79="X"));RIGHE($G$2:$G2)));"")
    da trascinare verso destra e poi tirare giù alla bisogna.
    Ciao, fai sapere se va bene.

  13. #11
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Ciao a tutti, per quanto riguarda la versione 2007, la formula sarà:

    In B2:
    =SE(RIGHE(TUTTE!$G$3:$G3)>MATR.SOMMA.PRODOTTO((TUTTE!$G$3:$G$79<OGGI())*(TUTTE!$G$3:$G$79>0))+CONTA.SE(TUTTE!H3:H80;"X");"";INDICE(TUTTE!B$3:B$79;PICCOLO(SE((TUTTE!$G$3:$G$79<OGGI())*(TUTTE!$G$3:$G$79>0)+(TUTTE!$H$3:$H$79="X");(RIF.RIGA(TUTTE!$G$3:$G$79)-2));RIGHE($G$2:$G2))))
    Formula matrice da attivare con l'utilizzo dei tasti CTRL+ALT+INVIO
    e successivamente trascinare verso destra e poi tirare giù alla bisogna.
    Allego il file di prova, fa sapere se va bene.
    File Allegati File Allegati

  14. I seguenti utenti hanno dato un "Like"

    ges

  15. #12

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7124
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1298

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Ciao a tutti,
    alternativa col vba.

    Se ho capito bene, si vuole che compaiono nel secondo foglio le polizze la cui data è inferiore a quella corrente e quelle con la X.

    Codice: 
    Sub seleziona()
    Dim wks1 As Worksheet, wks2 As Worksheet, uRiga As Long, x As Long, y As Long
    Set wks1 = Worksheets("TUTTE")
    Set wks2 = Worksheets("ANOMALIE")
    Application.ScreenUpdating = False
    wks2.Range(Cells(2, 1), Cells(55, 8)) = ""
    uRiga = wks1.Cells(Rows.Count, 2).End(xlUp).Row
    x = 2
        For y = 3 To uRiga
            If wks1.Cells(y, 7) < Date Or LCase(wks1.Cells(y, 8)) = "x" Then
                With wks2
                    .Cells(x, 1) = x - 1
                    .Cells(x, 2) = wks1.Cells(y, 2)
                    .Cells(x, 3) = wks1.Cells(y, 3)
                    .Cells(x, 4) = wks1.Cells(y, 4)
                    .Cells(x, 5) = wks1.Cells(y, 5)
                    .Cells(x, 6) = wks1.Cells(y, 6)
                    .Cells(x, 7) = wks1.Cells(y, 7)
                    .Cells(x, 8) = wks1.Cells(y, 8)
                x = x + 1
                End With
            End If
        Next
    Application.ScreenUpdating = True
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  16. #13
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Citazione Originariamente Scritto da pkrome59 Visualizza Messaggio
    ....
    Purtroppo nn va come si puo' vedere dalle foto allegate. Delle 5 anomalie "create"ne visualizza 2 per intero e 1 solo la targa
    Inoltre credo che la matrice vada attivata con CTRL+MAIUSC (ovvero SHIFT)+INVIO


    Grazie in ogni caso per i Vs sforzi :18:
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:56

  17. #14
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao a tutti,
    alternativa col vba.
    ....
    Questa soluzione si adatta molto bene, a parte il "sacrificio" :176: di dover cliccare ogni volta sul pulsante. :264:
    Solo un paio di "segnalazioni"....: 1) ritengo che la formula si "occupi" di un numero predeterminato di righe preimpostato per cui quando si eliminano alcune di queste vengono evidenziate anche le parti poste ai piedi dell'elenco.; 2) non riesco ad eliminare la formattazione del veicolo tg CN640PM nel foglio delle "Anomalie"
    ma sono questioni di poco conto...
    Ancora GRAZIE
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:57 Motivo: Ciao, ridotto [quote]

  18. #15
    L'avatar di Berna11
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Latina
    Età
    62
    Messaggi
    2279
    Versione Office
    Excel 2010
    Likes ricevuti
    906
    Likes dati
    450

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Salve Emciri ed a tutti quanti, non ho studiato tutta la discussione rispondo solo per l'ultimo questito riguardante la formattazione tg CN640PM nel foglio delle "Anomalie".
    Se vai a vedere la formattazione inserita in questo foglio dice: =
    B2<OGGI()
    In colonna B non c'è nessuna data.
    Ora se vuoi in caratteri rosso tutta la riga che ha come data inferiore ad oggi devi cambiare la formula in: =$G2<OGGI()

  19. #16
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    GRAZIE
    ...perchè non ci ho pensato prima (e da solo!!):256:
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:56

  20. #17

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2808
    Versione Office
    Excel 2013
    Likes ricevuti
    1020
    Likes dati
    979

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Citazione Originariamente Scritto da emciri Visualizza Messaggio
    Questa soluzione si adatta molto bene, a parte il "sacrificio" :176: di dover cliccare ogni volta sul pulsante. :264:[...]
    Nel VBE Foglio7(Anomalie), aggiungi:
    Codice: 
    
    Private Sub Worksheet_Activate()
    Call Seleziona
    End Sub

  21. #18
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Nel VBE Foglio7(Anomalie), aggiungi:
    Codice: 
    
    Private Sub Worksheet_Activate()
    Call Seleziona
    End Sub
    :28::28:
    :208:

  22. #19
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Un saluto a tutti, prova la seguente:

    In B2:
    =SE(VAL.ERRORE(INDICE(TUTTE!B$3:B$80;PICCOLO(SE((TUTTE!$G$3:$G$80<OGGI())*(TUTTE!$G$3:$G$80>=0)+(TUTTE!$H$3:$H$80="X");(RIF.RIGA(TUTTE!$G$3:$G$80)-2));RIGHE($G$2:$G2))));"";INDICE(TUTTE!B$3:B$80;PICCOLO(SE((TUTTE!$G$3:$G$80<OGGI())*(TUTTE!$G$3:$G$80>=0)+(TUTTE!$H$3:$H$80="X");(RIF.RIGA(TUTTE!$G$3:$G$80)-2));RIGHE($G$2:$G2))))
    da attivare tramite i tasti CTRL + MAIUSCOLO + INVIO, successivamente trascinare a destra e poi tirare giù alla bisogna.
    Allego il file di prova.
    Saluti.
    File Allegati File Allegati

  23. I seguenti utenti hanno dato un "Like"

    ges

  24. #20
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Citazione Originariamente Scritto da pkrome59 Visualizza Messaggio
    Un saluto a tutti...
    Sembra un "romanzo" ma alla fine il risultato è quello che conta... Funziona!! (su 2013).
    GRAZIE :18:
    Siete impagabili :271:
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:56

  25. #21

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7124
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1298

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Ciao emciri,
    definire "romanzo" la formula di pkrome, che cordialmente saluto, è assolutamente inappropriato!
    La chiamerei piuttosto una "brevissima prefazione" ... guarda QUI e te ne rendi conto tu stessa! :167:
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  26. #22
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    WOOOOW... Non ci posso credere:93:
    Allora chiedo umilmente venia :251:
    Mitico @pkrome :18:
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:58

  27. #23
    L'avatar di emciri
    Clicca e Apri
    Data Registrazione
    Jun 2016
    Località
    Agrigento
    Messaggi
    33
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    6

    Re: Gestione automezzi rilevamento scadenze e anomalie

    Citazione Originariamente Scritto da pkrome59 Visualizza Messaggio
    Un saluto a tutti, prova la seguente:....
    Ho imperdonabilmente omesso di riferire che FUNZIONA tutto, anche su OFFIC3 2007
    GRAZIE
    Ultima modifica fatta da:Canapone; 27/03/17 alle 16:56

Discussioni Simili

  1. Avviso scadenze con mail
    Di givi79 nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 27/12/16, 21:39
  2. [Risolto] Scadenze
    Di Simona nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 06/10/16, 01:13
  3. Scadenze
    Di cesare nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 20/09/15, 03:34
  4. Estrarre dati con scadenze
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 34
    Ultimo Messaggio: 06/08/15, 16:24
  5. Gestione automezzi
    Di Gianpietro nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 29/07/15, 16:38

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
  •