Risultati da 1 a 16 di 16

Discussione: Creare riga immissione + tabella riepilogo



  1. #1
    L'avatar di ultra
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Ascoli Piceno
    Messaggi
    7
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Creare riga immissione + tabella riepilogo

    Buonasera,

    Vorrei esordire nel forum ponendovi un interrogativo per me abbastanza complicato. Spero possiate aiutarmi.

    Ho la necessita di creare una tabella che elenchi degli ordini, il problema è che vorrei evitare una classica tabella da scorrere ogni qual volta si desideri inserire un nuovo ordine. La mia intenzione è quella di ottenere una "riga fissa" per l'immissione dei dati con immediatamente sotto magari la tabella dove questi vanno a collocarsi.

    La tabella riepilogativa dovrebbe elencare le voci in modo che restino nelle prime posizione gli ordini scaduti o quelli in procinto di scadere.

    So che può essere non facile da spiegare ma vi prego di darmi una mano.

    Grazie

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Creare riga immissione + tabella riepilogo

    Ciao ultra,
    allega il file con quello che hai fatto e quello che vorresti ottenere, spiegando la situazione riferendoti a quel file.

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

  3. #3
    L'avatar di ultra
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Ascoli Piceno
    Messaggi
    7
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Creare riga immissione + tabella riepilogo

    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao ultra,
    allega il file con quello che hai fatto e quello che vorresti ottenere, spiegando la situazione riferendoti a quel file.
    Grazie per la veloce risposta.

    Ecco il file. In breve vorrei avere una prima tabella per l'immissione dei dati (prima tabella del file) e una sotto dove questi dati confluiscano, ordinati automaticamente per data scadeza.

    Nello specifico dove tu vedi data scadenza andrei ad inserire appunto la data, e via dicendo gli altri campi; sotto invece l'elenco completo degli ordini immessi elencati per scadenza ovvero l'ordine con la scadenza più vicina più in alto ecc.
    File Allegati File Allegati

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: Creare riga immissione + tabella riepilogo

    Ciao,
    per quello che chiedi bisogna ricorrere al VBA (quindi sposto la discussione nella giusta sezione)...come sei messo a VBA?

    Non so se adesso riesco a finire di scriverti qualcosa (sono un pò di fretta). Appena posso gli do uno sguardo...magari interviene prima qualche altro utente.

    Ciao

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

  5. #5

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

    Re: Creare riga immissione + tabella riepilogo

    Ciao,
    prova con questo codice:

    Codice: 
    Sub ordina()
        Dim iRow As Long
        With Sheets(1)
            iRow = Range("B" & Rows.Count).End(xlUp).Row + 1
            .Range("B" & iRow) = .Range("B4")
            .Range("C" & iRow) = .Range("C4")
            .Range("D" & iRow) = .Range("D4")
            .Range("E" & iRow) = .Range("E4")
            .Range("B4:E4") = ""
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Range("C9:C18") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
        With Sheets(1).Sort
            .SetRange Range("B8:E18")
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
    End Sub
    EDIT: Ciao Cromagno, avevo lasciato al pagina aperta e non avevo visto la tua risposta, comunque se va bene ho provato io a scrivere qualche riga di codice.
    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!

  6. I seguenti 3 utenti hanno dato un "Like" a ges per questo post:


  7. #6
    L'avatar di ultra
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Ascoli Piceno
    Messaggi
    7
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Creare riga immissione + tabella riepilogo

    Grazie ges, esattamente quello che volevo, purtroppo non so assolutamente usare il VBA e ammetto che neanche sapevo cosa fosse e quindi cercavo un modo attraverso le formule di excel.

    Già che ci sono approfitto della tua preparazione, se volessi colorare le voci con una scala di colori? basta una formattazione condizionale? In più, è possibile aggiungere affianco alle righe una casella di check che magari sbarri l'ordine?

  8. #7

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

    Re: Creare riga immissione + tabella riepilogo

    Ciao ultra,
    dovresti spiegarmi in che modo vorresti colorare le voci e anche cosa intendi per casella che "sbarri l'ordine".
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  9. #8
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1167
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570

    Re: Creare riga immissione + tabella riepilogo

    ges....permetti l intromissione il codice che hai postato ....quando hai tempo e voglia lo commenti( come mi hai fatto in passato)' perchè lo posso adattare a un lavoro che sto facendo...

  10. #9
    L'avatar di ultra
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Ascoli Piceno
    Messaggi
    7
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Creare riga immissione + tabella riepilogo

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao ultra,
    dovresti spiegarmi in che modo vorresti colorare le voci e anche cosa intendi per casella che "sbarri l'ordine".
    Semplicemente con una scala di colori in modo che la scadenza più vicina (la prima della tabella) risulti rossa ad esempio e via via meno intenso fino al bianco dell'ultima riga magari.

    Con sbarrare l'ordine intendevo eliminare dalla tabella gli ordini evasi, o al limite colorarli di nero o evidenziarli in qualunque altro modo (cosa da fare manualmente all'occorrenza)

  11. #10
    L'avatar di ultra
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Ascoli Piceno
    Messaggi
    7
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Creare riga immissione + tabella riepilogo

    Per il primo problema ho risolto

  12. #11

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

    Re: Creare riga immissione + tabella riepilogo

    Bene, visto che hai risolto il primo quesito ti posto una soluzione per il secondo.

    Codice: 
    Sub ordina()
        Dim iRow As Long, y As Long
        With Sheets(1)
            iRow = .Range("B" & Rows.Count).End(xlUp).Row + 1
            .Range("B" & iRow) = .Range("B4")
            .Range("C" & iRow) = .Range("C4")
            .Range("D" & iRow) = .Range("D4")
            .Range("E" & iRow) = .Range("E4")
            .Range("B4:E4") = ""
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Range("C9:C" & iRow) _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
        With Sheets(1).Sort
           .SetRange Range("B8:E" & iRow)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        With Sheets(1)
            For y = 9 To iRow
                If .Range("F" & y) = True Then
                    Range(Range("B" & y), Range("E" & y)).Interior.ColorIndex = 30
                Else
                    Range(Range("B" & y), Range("E" & y)).Interior.ColorIndex = xlNone
                End If
            Next
        End With
    End Sub
    File Allegati File Allegati
    Ultima modifica fatta da:ges; 06/05/16 alle 00:33 Motivo: Aggiunto dichiarazione variabile y
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  13. #12

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

    Re: Creare riga immissione + tabella riepilogo

    Citazione Originariamente Scritto da Danilo Fiorini Visualizza Messaggio
    ges....permetti l intromissione il codice che hai postato ....quando hai tempo e voglia lo commenti( come mi hai fatto in passato)' perchè lo posso adattare a un lavoro che sto facendo...
    Ciao Danilo,
    Codice: 
    Sub ordina()
        Dim iRow As Long, y As Long 'dichiaro le variabili
        With Sheets(1) 'per il foglio1
            iRow = .Range("B" & Rows.Count).End(xlUp).Row + 1 'trovo la prima cella vuota dopo l'ultima piena
            .Range("B" & iRow) = .Range("B4") 'la cella vuota trovata la rimepio col valore di B4
            .Range("C" & iRow) = .Range("C4") 'la cella vuota trovata la rimepio col valore di C4
            .Range("D" & iRow) = .Range("D4") 'la cella vuota trovata la rimepio col valore di D4
            .Range("E" & iRow) = .Range("E4") 'la cella vuota trovata la rimepio col valore di E4
            .Range("B4:E4") = "" ' cancello i dati nell'intervallo B4:E4
            .Sort.SortFields.Clear 'da qui iniziano le istruzioni per ordinare in base alla data meno recente
            .Sort.SortFields.Add Key:=Range("C9:C18") _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal ' ordino i dati in senso ascendente
        End With
         With Sheets(1).Sort       .SetRange Range("B8:E" & iRow) 'per l'intervallo B8:B .. ultima riga
            .Header = xlYes 'Specifica se la prima riga contiene informazioni di intestazione
            .MatchCase = False 'facoltativo imposta la formattazione carattere
            .Orientation = xlTopToBottom 'Specifica se il tipo dovrebbe essere in ascending o ordine descending.
            .SortMethod = xlPinYin 'facoltativo per certi caratteri
            .Apply
        End With
        With Sheets(1)
            For y = 9 To iRow 'apro un ciclo partendo dalla riga 9
                If .Range("F" & y) = True Then ' se è spuntata la casella di controllo ....
                    Range(Range("B" & y), Range("E" & y)).Interior.ColorIndex = 30 ' la riga si colora di marrone
                Else ' altrimenti ...
                    Range(Range("B" & y), Range("E" & y)).Interior.ColorIndex = xlNone 'la riga non viene colorata
                End If
            Next
        End With
    End Sub
    Spero che sia più chiaro.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  14. I seguenti 2 utenti hanno dato un "Like" a ges per questo post:


  15. #13
    L'avatar di D@nilo
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    45
    Messaggi
    1167
    Versione Office
    Excel 2010
    Likes ricevuti
    509
    Likes dati
    570

    Re: Creare riga immissione + tabella riepilogo

    grazie...sei sempre gentilissimo ora mi ci scervello un pò.....(però mi piace).....danilo

  16. #14

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

    Re: Creare riga immissione + tabella riepilogo

    Citazione Originariamente Scritto da Danilo Fiorini Visualizza Messaggio
    grazie...sei sempre gentilissimo ora mi ci scervello un pò.....(però mi piace).....danilo
    Grazie Danilo, fai benissimo a provare ... così si impara!
    Se incontri dubbi non esitare a chiedere ...:90:
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  17. I seguenti utenti hanno dato un "Like"


  18. #15
    L'avatar di ultra
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Ascoli Piceno
    Messaggi
    7
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Creare riga immissione + tabella riepilogo

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Bene, visto che hai risolto il primo quesito ti posto una soluzione per il secondo.

    Codice: 
    Sub ordina()
        Dim iRow As Long, y As Long
        With Sheets(1)
            iRow = .Range("B" & Rows.Count).End(xlUp).Row + 1
            .Range("B" & iRow) = .Range("B4")
            .Range("C" & iRow) = .Range("C4")
            .Range("D" & iRow) = .Range("D4")
            .Range("E" & iRow) = .Range("E4")
            .Range("B4:E4") = ""
            .Sort.SortFields.Clear
            .Sort.SortFields.Add Key:=Range("C9:C" & iRow) _
            , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        End With
        With Sheets(1).Sort
           .SetRange Range("B8:E" & iRow)
            .Header = xlYes
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
        End With
        With Sheets(1)
            For y = 9 To iRow
                If .Range("F" & y) = True Then
                    Range(Range("B" & y), Range("E" & y)).Interior.ColorIndex = 30
                Else
                    Range(Range("B" & y), Range("E" & y)).Interior.ColorIndex = xlNone
                End If
            Next
        End With
    End Sub
    Grazie ges, ho provato a riportare il tuo codice su una tabella più complessa; non riesco però a capire come, una volta scritto il codice, io possa creare una casella che attivi quel modulo (quella che tu hai creato con la scritta inserisci e ordina per intenderci)

    Per il momento ho provato a copiare e incollare la tua caselle e assegnare il modulo che ho fatto, ma qualcosa non riporta perchè quando clicco la riga finisce immediatamente sotto la tabella e non in ordine di scadenza. Allego il file
    File Allegati File Allegati

  19. #16
    L'avatar di ultra
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    Ascoli Piceno
    Messaggi
    7
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: Creare riga immissione + tabella riepilogo

    Citazione Originariamente Scritto da ultra Visualizza Messaggio
    Grazie ges, ho provato a riportare il tuo codice su una tabella più complessa; non riesco però a capire come, una volta scritto il codice, io possa creare una casella che attivi quel modulo (quella che tu hai creato con la scritta inserisci e ordina per intenderci)

    Per il momento ho provato a copiare e incollare la tua caselle e assegnare il modulo che ho fatto, ma qualcosa non riporta perchè quando clicco la riga finisce immediatamente sotto la tabella e non in ordine di scadenza. Allego il file
    Rinnovo la mia richiesta di aiuto, comunque ho trovato un problema di tipo logico alla tabella di riepilogo. Com'è impostata attualmente, un ordine evaso con scadenza 1956 resta comunque sopra a un ordine non evaso del 2016. Gli evasi dovrebbero collocarsi sotto i non evasi dal più recente al meno recente.

    Ringrazio quanti interverranno

Discussioni Simili

  1. Risposte: 8
    Ultimo Messaggio: 10/03/17, 21:48
  2. [Risolto] Richiesta Formula di Riepilogo su 1° Tabella da più Tabelle
    Di Bauhaus nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 19/02/17, 19:29
  3. [Risolto] Creare una tabella per le ore
    Di svizzera nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 04/12/16, 17:42
  4. [Risolto] Estrarre un testo da una stringa di una tabella tramite query, e poi creare una nuova tabella
    Di ProgrammD69 nel forum Domande su Microsoft Access
    Risposte: 11
    Ultimo Messaggio: 05/09/16, 10:21
  5. Creare grafico con serie ripetuta su unica riga
    Di Riccard0 nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 01/01/16, 19:28

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
  •