Risultati da 1 a 26 di 26

Discussione: sequenza automatica ticket



  1. #1
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    sequenza automatica ticket

    Salve gente,
    rieccomi nuovamente qui a chiedere il vostro supporto.

    In allegato trovate il file dei ticket per il pranzo.
    Nella parte bassa appare il numero del ticket N.° PR e un numero evidenziato in giallo. PR= Pranzo i primi numeri indicato la data gli ultimi quattro dopo / indicano la sequenza del ticket giornaliero.

    n. PR 08062016/001
    n. PR 08062016/002
    e così via.

    il mio intento sarebbe quello di far apparire data e progressivo automaticamente per ogni ticket.
    Se dovrò stampare i ticket domani dovrà apparire
    n. PR 09062016/001
    n. PR 09062016/002
    ecc ecc.

    è possibile ciò?
    Ultima modifica fatta da:Gerardo Zuccalà; 09/06/16 alle 09:25

  2. #2

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6771
    Versione Office
    2013
    Likes ricevuti
    716
    Likes dati
    164

    Re: sequenza automatica ticket

    Ciao Matteo

    Con questa piccola udf da inserire in un modulo standard

    Codice: 
    Function miooggi()
    miooggi = Format(Date, "ddmmyyyy")
    End Function
    avrai la data nel formato che vuoi (es. domani 09062016).

    Non ho capito la numerazione 001 002 etc come vuoi che sia generata.

    Alfredo

  3. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6771
    Versione Office
    2013
    Likes ricevuti
    716
    Likes dati
    164

    Re: sequenza automatica ticket

    Potresti scrivere la formula così nella cella

    Codice: 
    =miooggi()&"/001"
    e ti verrà fuori

    08062016/001

    Alfredo

  4. #4
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Ciao Alfredo,

    grazie per la tua risposta. La numerazione deve essere sequenziale da 001 in poi.

    come puoi vedere nel file, il ticket è composto da due parti, una matrice e una parte da consegnare. Ovviamente i data e numero sequenziale devono essere uguali da entrambi le parti.
    Poi sotto ci sono altri stampati e per ogni ticket ci deve essere data e numero progressivo.
    i buoni vengono generati in base ad una prenotazione che va fatta in un altro foglio di lavoro.
    quindi se ho 50 prenotazioni io devo stampare 50 ticket e di conseguenza i numeri andranno da 001 a 050

  5. #5
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Potresti scrivere la formula così nella cella

    Codice: 
    =miooggi()&"/001"
    e ti verrà fuori

    08062016/001

    Alfredo

    con questa formula e cambiando il formato non esce la data ma un numero

  6. #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: sequenza automatica ticket

    Ciao a tutti
    Nel codice è meglio mettere 08062016 oppure 862016?
    Vedo che stamperai due ticket alla volta, non sarebbe il caso di metterne 6/8 per pagina?

    Comunque ho bisogno anche del codice che compila i ticket per farlo interaggire.
    Ps. Può capitare di stampare al massimo quanti ticket per ogni Data?

  7. #7
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Ciao a tutti
    Nel codice è meglio mettere 08062016 oppure 862016?
    Vedo che stamperai due ticket alla volta, non sarebbe il caso di metterne 6/8 per pagina?

    Comunque ho bisogno anche del codice che compila i ticket per farlo interaggire.
    Ps. Può capitare di stampare al massimo quanti ticket per ogni Data?

    per la data è indifferente 08062016 o 862016 è uguale.
    per pagina ne verranno stampati 8 ( il numero consentito in base alla grandezza del singolo ticket) considerando anche al matrice.
    Diciamo che un numero massimo di ticket può essere 150 ma non capiterà mai anche se bisogna metterlo in conto.

    Il codice che compila il ticket lo sto elaborando. Ti spiego brevemente, ci sarà una pagina di prenotazione contenente l'elenco di tutti i dipendente e ognuno di essi si prenoterà in base al turno di lavoro. Di conseguenza nella pagina contenente ( ipotesi) 120 dipendenti, ci saranno un numero di SI e un numero di NO.
    i SI, ovvero coloro i quali saranno prenotati per usufruire del pasto, compariranno in un'ulteriore foglio di lavoro.
    A questo punto, nella pagina dei ticket metterò un riferimento assoluto all'ultima pagina che ho menzionato in modo tale da far apparire i nominativi.

  8. #8
    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: sequenza automatica ticket

    Puoi spostare il foglio dei Si/No, spero che sia all'interno di quello allegato

  9. #9
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Puoi spostare il foglio dei Si/No, spero che sia all'interno di quello allegato
    il foglio ancora non è presente in quello allegato.

  10. #10
    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: sequenza automatica ticket

    Ammettiamo che nel Foglio2 ci sia in A2=qualifica, B2=cognome C2=nome D2=X
    nelle righe sotto tutti gli altri, questo codice stampa 8 eticchette per pagina con i dati presenti in foglio2 (solo se contrassegnati in colonna D da una X
    Ps quando tutto a posto c0è da togliere una riga e abilitarne due

    Codice: 
    Sub Stampa_ticket()
    Dim DD As Date, X, Ur, R, C, Codice As String, N As Double, Val As Date
    Val = InputBox("Inserire la Data, ex 1/1/2016, Se quella odierna premere OK", , Date)
    If Not IsDate(Val) Then MsgBox "Data non valida " & Val & " ,esco dalla procedura"
    R = 4
    N = 1
    Ur = Sheets("foglio2").Range("A" & Rows.Count).End(xlUp).Row
    Range("B4:C9,F4:G9,B13:C18,F13:G18,B22:C27,F22:G27,B31:C36,F31:G36") = ""
        For X = 2 To Ur
            If Sheets("foglio2").Cells(X, 4) = "X" Then
                If N / 2 <> Int(N / 2) Then
                    Cells(R, 2) = Sheets("foglio2").Cells(X, 1)
                    Cells(R + 1, 2) = Sheets("foglio2").Cells(X, 2)
                    Cells(R + 2, 2) = Sheets("foglio2").Cells(X, 3)
                    Cells(R + 3, 2) = Val
                    Cells(R + 5, 2) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
                    N = N + 1
                Else
                    Cells(R, 6) = Sheets("foglio2").Cells(X, 1)
                    Cells(R + 1, 6) = Sheets("foglio2").Cells(X, 2)
                    Cells(R + 2, 6) = Sheets("foglio2").Cells(X, 3)
                    Cells(R + 3, 6) = Val
                    Cells(R + 5, 6) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
                    'If N / 8 = Int(N / 8) Then Range("A1:H36").PrintOut: Range("B4:C9,F4:G9,B13:C18,F13:G18,B22:C27,F22:G27,B31:C36,F31:G36") = ""
                    If N / 8 = Int(N / 8) Then Range("B4:C9,F4:G9,B13:C18,F13:G18,B22:C27,F22:G27,B31:C36,F31:G36") = ""   ' da togliere
                    If N / 8 <> Int(N / 8) Then R = R + 9 Else R = 4
                    N = N + 1
                End If
            End If
        Next X
    'If (N - 1) Mod 8 <> 0 Then Range("A1:H36").PrintOut: Range("B4:C9,F4:G9,B13:C18,F13:G18,B22:C27,F22:G27,B31:C36,F31:G36") = ""
    MsgBox "Fatto"
    End Sub

  11. #11
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Ammettiamo che nel Foglio2 ci sia in A2=qualifica, B2=cognome C2=nome D2=X
    nelle righe sotto tutti gli altri, questo codice stampa 8 eticchette per pagina con i dati presenti in foglio2 (solo se contrassegnati in colonna D da una X
    Ps quando tutto a posto c0è da togliere una riga e abilitarne due

    Codice: 
    Sub Stampa_ticket()
    Dim DD As Date, X, Ur, R, C, Codice As String, N As Double, Val As Date
    Val = InputBox("Inserire la Data, ex 1/1/2016, Se quella odierna premere OK", , Date)
    If Not IsDate(Val) Then MsgBox "Data non valida " & Val & " ,esco dalla procedura"
    R = 4
    N = 1
    Ur = Sheets("foglio2").Range("A" & Rows.Count).End(xlUp).Row
    Range("B4:C9,F4:G9,B13:C18,F13:G18,B22:C27,F22:G27,B31:C36,F31:G36") = ""
        For X = 2 To Ur
            If Sheets("foglio2").Cells(X, 4) = "X" Then
                If N / 2 <> Int(N / 2) Then
                    Cells(R, 2) = Sheets("foglio2").Cells(X, 1)
                    Cells(R + 1, 2) = Sheets("foglio2").Cells(X, 2)
                    Cells(R + 2, 2) = Sheets("foglio2").Cells(X, 3)
                    Cells(R + 3, 2) = Val
                    Cells(R + 5, 2) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
                    N = N + 1
                Else
                    Cells(R, 6) = Sheets("foglio2").Cells(X, 1)
                    Cells(R + 1, 6) = Sheets("foglio2").Cells(X, 2)
                    Cells(R + 2, 6) = Sheets("foglio2").Cells(X, 3)
                    Cells(R + 3, 6) = Val
                    Cells(R + 5, 6) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
                    'If N / 8 = Int(N / 8) Then Range("A1:H36").PrintOut: Range("B4:C9,F4:G9,B13:C18,F13:G18,B22:C27,F22:G27,B31:C36,F31:G36") = ""
                    If N / 8 = Int(N / 8) Then Range("B4:C9,F4:G9,B13:C18,F13:G18,B22:C27,F22:G27,B31:C36,F31:G36") = ""   ' da togliere
                    If N / 8 <> Int(N / 8) Then R = R + 9 Else R = 4
                    N = N + 1
                End If
            End If
        Next X
    'If (N - 1) Mod 8 <> 0 Then Range("A1:H36").PrintOut: Range("B4:C9,F4:G9,B13:C18,F13:G18,B22:C27,F22:G27,B31:C36,F31:G36") = ""
    MsgBox "Fatto"
    End Sub

    Raffaele, ti ringrazio per l'aiuto ma purtroppo non mi è ben chiaro. ho inserito questo codice mi dice fatto ma non vedo alcun risultato
    File Allegati File Allegati

  12. #12
    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: sequenza automatica ticket

    Se invece d'avviare il codice, vai sul codice premi F8 (la prima riga diventa gialla) ripremi F8 continuamente vedrai che sul foglio i tiket si autocompilano (quando arriva a 8 cancella e ricomincia). Come scritto quando funziona togli la riga (da togliere) ed abilita le altre due che stampano effettivamente.
    Ps Una X maiuscola, oppure metti in prima riga>>> Option compare text

  13. #13
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Se invece d'avviare il codice, vai sul codice premi F8 (la prima riga diventa gialla) ripremi F8 continuamente vedrai che sul foglio i tiket si autocompilano (quando arriva a 8 cancella e ricomincia). Come scritto quando funziona togli la riga (da togliere) ed abilita le altre due che stampano effettivamente.
    fatto, premuto f8 la priam riga diventa gialla, premo nuovamente f8 e poi mi appare l'avviso della data continuo ma non si compila nulla.
    il file che ho allegato l'hai visto? risulta corretto il tuo codice oppure ho commesso errori?
    in serata allego il file vero e proprio che dovrei utilizzare

  14. #14
    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: sequenza automatica ticket

    Ho fatto una modifica al post precedente
    Ps Una X maiuscola, oppure metti in prima riga>>> Option compare text

  15. #15
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Ho fatto una modifica al post precedente
    Ps Una X maiuscola, oppure metti in prima riga>>> Option compare text
    ok, adesso funziona, quindi avevo sbagliato io ad incollare. porta pazienza ma ho molto ancora da imparare.

    ho notato che le parti non uguali ovvero, nella matrice risulta un nome nel ticket un altro invece dovrebbero essere uguali matrice e ticket

    continua ad esserci qualcosa che non funziona, se aumento oltre gli 8 me ne scrive 3.

    stasera posto il file definitivo e vedrò di capirci qualcosa.

  16. #16
    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: sequenza automatica ticket

    Non ho capito cosa hai chiesto?
    Ps Mi ero dimenticato di dire che nel fogli1 ci devono essere solo 8 ticket

  17. #17
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Non ho capito cosa hai chiesto?
    Ps Mi ero dimenticato di dire che nel fogli1 ci devono essere solo 8 ticket
    tranquillo, sicuramente il quesito non è stato posto in maniera corretta.
    In serata allego il file definitivo e cercherò di spiegare quello che vorrei ottenere.

  18. #18
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Il file in excel allegato serve a gestire le prenotazioni passo presso l'azienda e alla successiva emissione dei ticket.

    La cartella di lavoro è composta dai seguenti fogli:

    Setting: informazioni basi dell'azienda;
    Prenotazione: all'interno vanno inseriti i dipendenti distinguendoli per qualifica cognome e nome. Nelle colonne accanto va indicata la tipologia di pasto che spetta al dipendente.
    Pranzo: qui vi sono i ticket veri e propri composti da una matrice e da un ticket da staccare.

    Ciò che vorrei realizzare io, in maniera più automatica rispetto a quella che usavo prima, è la compilazione automatica del seriale identificativo del ticket.

    all'interno del foglio PRENOTAZIONE, inserisco i nomi dei dipendenti, inserisco il tipo di pasto ( Pranzo, Cena, Colazione ) e poi alla pressione del pulsante genera Pranzo automaticamente i nomi dei dipendenti prenotati devono figurare nei ticket presenti sul foglio PRANZO.

    Esempio:

    sul Foglio PRENOTAZIONE inserisco

    qualifica cognome nome pranzo cena colazione
    dott tizio caio SI NO NO
    avv pinco pallo SI NO NO
    prof rossi marco NO SI No
    cav sempronio domenico SI NO NO


    nel foglio Pranzo, dove sono presenti i ticket da stampare mi dovranno comparire i nomi di coloro i quali hanno diritto al pranzo ( ovvero Pranzo=SI)
    Nella parte inferiore del ticket vi è la scritta N.° PR ed è proprio qui che il sistema mi deve generare il codice data/001 (10062016/001 ); data/002; data/003 e così via.
    Ovviamente il codice deve essere uguale sia per la matrice che per il ticket ( la matrice rimane all'ufficio amministrativo il ticket va speso).

    Questo discorso va fatto oltre che per il pranzo anche per la cena e la colazione quindi servono tre pulsanti di generazione ticket.

    Spero di essere stato più chiaro adesso.
    File Allegati File Allegati

  19. #19
    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: sequenza automatica ticket

    Alcune domande:
    I tre fogli Elab??? non c'entrano nulla, sono prove Tue?
    Vedendo i Ticket (attualmente stampa verticale), ogni 8+8 una pagine + un'altra pagina 8+8 gruppo alla destra(oppure sarà stampata orrizontale)?
    Ora non ho ancora capito complettamente la Tua richiesta. Naturale che per ogni foglio stampato 8+8 ticket ci sara nomi differenti per ogni ticket. Questi sarnno tagliati e consegnati alle persone. Oppure intendi dire che tizio che fà Pranzo, Cena, Colazione e desideri che i suoi Ticket siano raggruppati uno dietro l'altro?

    >>>N.° PR.....compilazione automatica del seriale identificativo del ticket.
    il codice data/001, non va bene come nel primo allegato? Ogni giorno inizio da 001 e aumento sino alla fine. Oppure il(N.° PR è unico per ogni persona), intendo ha usufruito del ticket 30 volte e desideri che al prossimo uso venga scritto 031?

    >>> Pranzo, Cena, Colazione
    Capito, il codice parte da 001 al pranzo, quando passa alla cena continua? Idem per colazione?
    Naturale metto in A3 = Pranzo oppure Cena, Colazione (data giorno dopo). Mà questi li posso metterli sullo stesso foglio?
    Intendo stampo 8+8 ticket alla volta, quando finirà pranzo (solo 3/4 ticket), posso continuare con Ticket della cena?

    >>>Ovviamente il codice deve essere uguale sia per la matrice che per il ticket
    Intendi dire che se metto DATA/001 in B9, dovrei metterlo anche in colonna I? Se si dove, in quale cella? Forse in F9?

    Ps Ho notato che in colonna D c'è la Firma, ma non in colonna H? Perchè?

  20. #20
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Alcune domande:
    I tre fogli Elab??? non c'entrano nulla, sono prove Tue?
    Vedendo i Ticket (attualmente stampa verticale), ogni 8+8 una pagine + un'altra pagina 8+8 gruppo alla destra(oppure sarà stampata orrizontale)?
    Ora non ho ancora capito complettamente la Tua richiesta. Naturale che per ogni foglio stampato 8+8 ticket ci sara nomi differenti per ogni ticket. Questi sarnno tagliati e consegnati alle persone. Oppure intendi dire che tizio che fà Pranzo, Cena, Colazione e desideri che i suoi Ticket siano raggruppati uno dietro l'altro?

    >>>N.° PR.....compilazione automatica del seriale identificativo del ticket.
    il codice data/001, non va bene come nel primo allegato? Ogni giorno inizio da 001 e aumento sino alla fine. Oppure il(N.° PR è unico per ogni persona), intendo ha usufruito del ticket 30 volte e desideri che al prossimo uso venga scritto 031?

    >>> Pranzo, Cena, Colazione
    Capito, il codice parte da 001 al pranzo, quando passa alla cena continua? Idem per colazione?
    Naturale metto in A3 = Pranzo oppure Cena, Colazione (data giorno dopo). Mà questi li posso metterli sullo stesso foglio?
    Intendo stampo 8+8 ticket alla volta, quando finirà pranzo (solo 3/4 ticket), posso continuare con Ticket della cena?

    >>>Ovviamente il codice deve essere uguale sia per la matrice che per il ticket
    Intendi dire che se metto DATA/001 in B9, dovrei metterlo anche in colonna I? Se si dove, in quale cella? Forse in F9?

    Ps Ho notato che in colonna D c'è la Firma, ma non in colonna H? Perchè?

    Vado per ordine:

    i tre fogli elab_pranzo; elab_cena;elab_colazione;
    contengono la formula della prenotazione ovvero se tu scrivi i nomi nel foglio PRENOTAZIONE coloro i quali hanno il SI compaiono nel foglio elab per poi essere richiamati nei ticket.
    Se selezioni una cella del foglio elab_pranzo troverai la formula
    =SE(Prenotazione!$F7="SI";Prenotazione!B7;0)
    di conseguenza chi ha la prenotazione del pasto appare nel foglio elab.
    i dati presenti nel foglio elab_pranzo sono richiamati a sua volta nel foglio PRANZO
    =Elab_Pranzo!$A$1

    Stampa dei ticket:
    ogni foglio A4 contiene 4 ticket in verticale ( La parte dove c'è scritto matrice e quella accanto devono contenere gli stessi dati perchè la parte matrice resta a me e la parte dove NON c'è scritto matrice va tagliata e data alla persona che usufruisce del pasto)

    Numero identificativo:
    il numero dopo / rimane invariato ovvero il primo ticket pranzo sarà sempre data/001 quello sotto data/002 ecc ecc in questo caso sono 70 quindi si partirà da data/001 e si arriverà a data/070. Deve cambiare solo la data.
    gli identificativi sarà diversi per i pasti.
    N. PR ( per il pranzo )
    n. CE ( per la cena )
    N. CO ( per la colazione )


    Pranzo,Cena,Colazione:
    sono fogli separati. Un foglio per il pranzo ( già presente nella cartella di lavoro ), un foglio per la cena e un foglio per la colazione . questi ultimi due li devo ancora inserire
    Nella cella A3 del foglio pranzo ci sarà solo la scritta PRANZO
    nella cella A3 del foglio cena ci sarà solo la scritta CENA
    nella cella A3 del foglio colazione ci sarà solo COLAZIONE

    Codice uguale per matrice e ticket:
    il codice data/001 va inserito nella cella B9. Lo stesso codice ( data/001 ) va inserito nella cella F9

    Nella colonna D appare la scritta Firma perchè il personale che preleva il buono lo firma come ricevuta in quanto la parte della matrice rimane a me. La parte del ticket viene presa dal dipendente e consegnata.

  21. #21
    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: sequenza automatica ticket

    >>>i tre fogli elab_pranzo; elab_cena;elab_colazione

    Per me i tre fogli elab sono inutili, mi basta solo Prenotazione. Il foglio Pranzo che si può chiamare Ticket e non mi servono altri a meno che siano differenti.
    Ho capito ogni ticket riga(1:9), una persona. In E1:H9 il numero ripetuto.

    >>>in questo caso sono 70
    A dire la verita sono 65 a pranzo, quello che non sò (65/4 per pagina =16 pagine), più una con scritto solo un Ticket. Posso iniziare a stampare Cena in quella pagina?
    Quando stampo devo far stampare pure la pagina di destra =(Azienda Siderurgica "IL TAGLIO" S.p.a)?

  22. #22
    L'avatar di MatteoG
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Bronte
    Età
    30
    Messaggi
    35
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    8

    Re: sequenza automatica ticket

    A me in definitiva serve il cambio automatico della data/progressivo nelle celle prima indicate.
    Se poi hai delle idee che possano migliorare che ben venga.
    La mia incognita era far cambiare la data ogni giorno con il formato 10062016/001

  23. #23
    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: sequenza automatica ticket

    Scusami, io ho trovato il post in VBA
    Pensavo che volessi un codice, comuque la potevi fare anche tramite formule.
    Ti allego un VBA che scrive solo il codice, vai sul foglio dei ticket premi AlT+F11 e inseriscilo sulla destra
    Ps. Il numero 50 modificalo con quanti ticket presenti sul foglio
    Codice: 
    Sub Codice_ticket()
    Dim  X, R, N, Val As Date
    Val = InputBox("Inserire la Data, ex 1/1/2016, Se quella odierna premere OK", , Date)
    If Not IsDate(Val) Then MsgBox "Data non valida " & Val & " ,esco dalla procedura"
    R = 9
    N = 1
    For X = 1 To 50 ' da cambiare
        Cells(R, 2) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
        Cells(R, 6) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
        N = N + 1
        R = R + 9
    Next X
    End Sub

  24. I seguenti utenti hanno dato un "Like"


  25. #24
    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: sequenza automatica ticket

    Questo sarebbe stato il lavoro che intendevo
    Codice: 
    Sub Stampa_ticket()
    Dim X, Y, T, Ur, R, Rr, Cc, DD As Date, Codice As String, Val As Date
    Val = InputBox("Inserire la Data, ex 1/1/2016, Se quella odierna premere OK", , Date)
    If Not IsDate(Val) Then MsgBox "Data non valida " & Val & " ,esco dalla procedura": Exit Sub
    Ur = Sheets("Prenotazione").Range("B" & Rows.Count).End(xlUp).Row
    Sheets("Ticket").Range("A3:H3,B4:C9,F4:G9,E9,A9,A12:H12,B13:C18,F13:G18,A18,E18,A21:H21,B22:C27,A27,F22:G27,E27,A30:H30,B31:C37,F31:G36,A36,E36") = ""
    Cc = 6
    R = 3
    For Y = 1 To 3
        If Sheets("Prenotazione").Cells(2, Cc) = "COLAZIONE" Then Val = Val + 1
        For X = 6 To Ur
            For T = 1 To 4
            If Sheets("Prenotazione").Cells(X, Cc) = "SI" Then
                N = N + 1
                Sheets("Ticket").Cells(R, 1) = Sheets("Prenotazione").Cells(2, Cc)
                Sheets("Ticket").Cells(R, 5) = Sheets("Prenotazione").Cells(2, Cc)
                Sheets("Ticket").Cells(R + 1, 2) = Sheets("Prenotazione").Cells(X, 2)
                Sheets("Ticket").Cells(R + 1, 6) = Sheets("Prenotazione").Cells(X, 2)
                Sheets("Ticket").Cells(R + 2, 2) = Sheets("Prenotazione").Cells(X, 3)
                Sheets("Ticket").Cells(R + 2, 6) = Sheets("Prenotazione").Cells(X, 3)
                Sheets("Ticket").Cells(R + 3, 2) = Sheets("Prenotazione").Cells(X, 4)
                Sheets("Ticket").Cells(R + 3, 6) = Sheets("Prenotazione").Cells(X, 4)
                Sheets("Ticket").Cells(R + 4, 2) = Val
                Sheets("Ticket").Cells(R + 4, 6) = Val
                Sheets("Ticket").Cells(R + 6, 1) = Sheets("Prenotazione").Cells(2, Cc - 1)
                Sheets("Ticket").Cells(R + 6, 2) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
                Sheets("Ticket").Cells(R + 6, 5) = Sheets("Prenotazione").Cells(2, Cc - 1)
                Sheets("Ticket").Cells(R + 6, 6) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
                'If N Mod 4 = 0 Then
                If N / 4 = Int(N / 4) Then
                    'Sheets("Ticket").Range("A1:H36").PrintOut 'oppure Sheets("Ticket").Range("A1:L36").PrintOut
                    Sheets("Ticket").Range("A3:H3,B4:C9,F4:G9,E9,A9,A12:H12,B13:C18,F13:G18,A18,E18,A21:H21,B22:C27,A27,F22:G27,E27,A30:H30,B31:C37,F31:G36,A36,E36") = ""
                    R = 3
                Else
                    R = R + 9
                    X = X + 1
                End If
            End If
        Next T
    Next X
    Cc = Cc + 2
    Next Y
    'If A3 <> "" Then Sheets("Ticket").Range("A1:H36").PrintOut 'oppure Sheets("Ticket").Range("A1:L36").PrintOut
    'Sheets("Ticket").Range("A3:H3,B4:C9,F4:G9,E9,A9,A12:H12,B13:C18,F13:G18,A18,E18,A21:H21,B22:C27,A27,F22:G27,E27,A30:H30,B31:C37,F31:G36,A36,E36") = ""
    MsgBox "Fatto"
    End Sub
    File Allegati File Allegati

  26. #25
    L'avatar di PINO52
    Clicca e Apri
    Data Registrazione
    Oct 2016
    Località
    Genzano
    Messaggi
    1
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da Raffaele_53 Visualizza Messaggio
    Questo sarebbe stato il lavoro che intendevo
    Codice: 
    Sub Stampa_ticket()
    Dim X, Y, T, Ur, R, Rr, Cc, DD As Date, Codice As String, Val As Date
    Val = InputBox("Inserire la Data, ex 1/1/2016, Se quella odierna premere OK", , Date)
    If Not IsDate(Val) Then MsgBox "Data non valida " & Val & " ,esco dalla procedura": Exit Sub
    Ur = Sheets("Prenotazione").Range("B" & Rows.Count).End(xlUp).Row
    Sheets("Ticket").Range("A3:H3,B4:C9,F4:G9,E9,A9,A12:H12,B13:C18,F13:G18,A18,E18,A21:H21,B22:C27,A27,F22:G27,E27,A30:H30,B31:C37,F31:G36,A36,E36") = ""
    Cc = 6
    R = 3
    For Y = 1 To 3
        If Sheets("Prenotazione").Cells(2, Cc) = "COLAZIONE" Then Val = Val + 1
        For X = 6 To Ur
            For T = 1 To 4
            If Sheets("Prenotazione").Cells(X, Cc) = "SI" Then
                N = N + 1
                Sheets("Ticket").Cells(R, 1) = Sheets("Prenotazione").Cells(2, Cc)
                Sheets("Ticket").Cells(R, 5) = Sheets("Prenotazione").Cells(2, Cc)
                Sheets("Ticket").Cells(R + 1, 2) = Sheets("Prenotazione").Cells(X, 2)
                Sheets("Ticket").Cells(R + 1, 6) = Sheets("Prenotazione").Cells(X, 2)
                Sheets("Ticket").Cells(R + 2, 2) = Sheets("Prenotazione").Cells(X, 3)
                Sheets("Ticket").Cells(R + 2, 6) = Sheets("Prenotazione").Cells(X, 3)
                Sheets("Ticket").Cells(R + 3, 2) = Sheets("Prenotazione").Cells(X, 4)
                Sheets("Ticket").Cells(R + 3, 6) = Sheets("Prenotazione").Cells(X, 4)
                Sheets("Ticket").Cells(R + 4, 2) = Val
                Sheets("Ticket").Cells(R + 4, 6) = Val
                Sheets("Ticket").Cells(R + 6, 1) = Sheets("Prenotazione").Cells(2, Cc - 1)
                Sheets("Ticket").Cells(R + 6, 2) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
                Sheets("Ticket").Cells(R + 6, 5) = Sheets("Prenotazione").Cells(2, Cc - 1)
                Sheets("Ticket").Cells(R + 6, 6) = Day(Val) & Month(Val) & Year(Val) & "/" & Format$(N, "000")
                'If N Mod 4 = 0 Then
                If N / 4 = Int(N / 4) Then
                    Sheets("Ticket").Range("A1:H36").PrintOut 'oppure Sheets("Ticket").Range("A1:L36").PrintOut
                    Sheets("Ticket").Range("A3:H3,B4:C9,F4:G9,E9,A9,A12:H12,B13:C18,F13:G18,A18,E18,A21:H21,B22:C27,A27,F22:G27,E27,A30:H30,B31:C37,F31:G36,A36,E36") = ""
                    R = 3
                Else
                    R = R + 9
                    X = X + 1
                End If
            End If
        Next T
    Next X
    Cc = Cc + 2
    Next Y
    'If A3 <> "" Then Sheets("Ticket").Range("A1:H36").PrintOut 'oppure Sheets("Ticket").Range("A1:L36").PrintOut
    'Sheets("Ticket").Range("A3:H3,B4:C9,F4:G9,E9,A9,A12:H12,B13:C18,F13:G18,A18,E18,A21:H21,B22:C27,A27,F22:G27,E27,A30:H30,B31:C37,F31:G36,A36,E36") = ""
    MsgBox "Fatto"
    End Sub
    Salve a tutti,
    sono un novellino e sto cercando di adattare la macro suddetta per le mie esigenze. Ho molto apprezzato questa macro perchè fatta bene e ringrazio Raffaele_53 per il lavoro fatto. Non riesco, però, ad avere nel foglio "TICKET" tutti i buoni pasti. In pratica essi vengono sovrascritti e ottengo solo l'ultimo elenco prodotto. In stampa però funziona bene il tutto. Presumo che l'arcano sia nella riga in grassetto ma non so come fare per avere tutto l'elenco e non solo l'ultimo prodotto. Spero in un vostro aiuto.
    Grazie

  27. #26
    L'avatar di Catwoman
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Tenerife
    Messaggi
    762
    Versione Office
    2013
    Likes ricevuti
    131
    Likes dati
    701

    Re: sequenza automatica ticket

    Citazione Originariamente Scritto da PINO52 Visualizza Messaggio
    Salve a tutti,
    sono un novellino e sto cercando di adattare la macro suddetta per le mie esigenze. Ho molto apprezzato questa macro perchè fatta bene e ringrazio Raffaele_53 per il lavoro fatto. Non riesco, però, ad avere nel foglio "TICKET" tutti i buoni pasti. In pratica essi vengono sovrascritti e ottengo solo l'ultimo elenco prodotto. In stampa però funziona bene il tutto. Presumo che l'arcano sia nella riga in grassetto ma non so come fare per avere tutto l'elenco e non solo l'ultimo prodotto. Spero in un vostro aiuto.
    Grazie
    Ciao Pino e benvenuto nel Forum,
    ho notato che non sei passato dal VIA prima di postare.
    Vieni a presentarti appena hai due minuti? Così facciamo gli onori di casa e mi spieghi anche chi è quello splendore che hai nell'avatar!
    Ti aspetto!
    Grazie


    (scusate l'invasione di campo ragazzi )
    Sii gentile quando possibile. È sempre possibile
    (Dalai Lama)

Discussioni Simili

  1. [Risolto] Trovare primo valore >0 e inserire i successivi in sequenza
    Di M4l4ysia nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 24/02/17, 13:20
  2. [Risolto] Come ordinare orari inizio/fine in sequenza
    Di sangylordy nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 26/11/16, 22:11
  3. Colorare celle non in sequenza
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 08/09/16, 23:05
  4. Sequenza ordinata con il tasto invio
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 07/04/16, 13:25
  5. eseguire 3 macro in automatico ma in sequenza una all'altra
    Di ste75v nel forum Domande su Excel VBA e MACRO
    Risposte: 26
    Ultimo Messaggio: 29/10/15, 18:39

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
  •