Pagina 1 di 2 12 UltimaUltima
Risultati da 1 a 30 di 31

Discussione: Cartellino timbrarure



  1. #1
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15

    Cartellino timbrarure

    Ciao gli amici del forum

    Vorrei creare se possibile un cartellino timbrature, mi spiego meglio.

    Nell 'intervallo A7:AF14 ci sono le celle per marcare gli orari di entrata e uscita.

    Vorrei che quando premo il tasto "timbrature" mi scrivesse orario di ing.1 Usc.1 / Ing.2 Usc.2 / e cosi via......
    poi il resto del foglio pensa a fare i calcoli con le formule.

    Ovviamente nelle celle B4:AF4 ci sono i giorni da 1 a 31 e sotto in corrispondenza il giorno della settimana corrispondente


    spero di essere stato abbastanza chiaro Grazie.......
    Vanno bene anche modifiche dello schema se torna meglio a livello di impostazione di formule e codici per il Vba.

    Grazie a tutti
    windows 10
    Excel 2016

  2. #2
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    Ascolta Nick , Cio che non Capisco e sè vuoi solo premere i tasto e lui dovrebbe inserirti un Ora prograssiva attuale.
    Oppure L'orario lo metti tu a mano e il Programma mette quello di Uscita Attuale.
    E difficile Capire il Tutto , Ciao da Maurizio

  3. #3
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    premendo il tasto la dovrebbe mettere orario
    quello che vedi e come dovrebbe venire.....
    Grazie
    windows 10
    Excel 2016

  4. #4
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0
    E fino a li C'ero arrivato pure Io ; però ciò che non Comprendo è da dove lo prende questo Benedetto orario.
    Dal time del Tuo PC ho da un Punto Fisso di questo Foglio.
    In quanto Io per sapere l'ora esatta Guardo L'orologio ; Oppure ful di una cella fisso la funzione Adesso() e po prendo questo come punto di Riferimento ; o No !
    Se invece vuoi solo il Formato usi il Costrutto VBA.Format(Time,"hh:mm:ss")

  5. #5
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    va bene sia che legga la formula ADESSO() da qualche cella oppure

    dall orologio del pc va bene entrambi

    come torna meglio a te
    windows 10
    Excel 2016

  6. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Nick
    se ho capito bene il problema forse è meglio lasciar perdere il pulsante Timbratura ed associare una macro all'evento Worksheet_SelectionChange.
    In altre parole ogni volta che fai click su una cella dell'intervallo A7:AF14 di spunta l'orario attuale; se per caso dovessi sbagliare si può correggere col doppio-click.
    Sempre se l'obiettivo è inserire l'orario attuale in una cella.
    Fai sapere. Ciao,
    Mario

  7. #7
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Penso che possa andare bene
    Anzi forse ancora meglio....
    Il pulsante era un idea perché non avevo
    In mente niente del genere...
    Ok... Grazie
    windows 10
    Excel 2016

  8. #8
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2072
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    ciao

    metti in A4 o dove vuoi = ADESSO() con la formattazione che ti interessa ORA personalizzato 13.30

    collega al shapes questa macro

    Sub Rettangolo1_Click()
    ActiveCell.Value = Range("A4")
    End Sub

    ed è fatta

    selezioni la cella e applichi l'orario cliccando sul rettangolo.
    ah! formatta le celle interessate come la cella A4

    da principiante ma efficace

  9. #9
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Scusa Gianfranco, che vuol dire "collega al shapes questa macro"

    son andato sul foglio in Vba e ho incollato quello che mi hai scritto ma non mi fà niente
    scusa ignoranza ma cosa devo fare esattamente????????
    windows 10
    Excel 2016

  10. #10
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2072
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    nel tuo foglio c'è come pulsante una shapes ( forma ) a rettangolo
    non un pulsante
    cliccaci con il desto e assegna macro nuovo

    ti verrà la scritta Sub Rettangolo1_Click()
    dentro copiaci il codice
    ActiveCell.Value = Range("A4")

  11. #11
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    ora provo
    windows 10
    Excel 2016

  12. #12
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Scusa ma devo andare su inserisci.....poi scegliere una forma a piacere.............
    windows 10
    Excel 2016

  13. #13
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    lo possiamo provare su questo file
    windows 10
    Excel 2016

  14. #14
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Nick
    Nel modulo del Foglio interessato inserisci queste due macro.
    La prima, selezionando una cella dell'intervallo che ho denominato "mese", scrive l'ora attuale
    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        If Not Intersect(Target, Range("mese")) Is Nothing Then
            Application.EnableEvents = False
            ActiveCell = Now
            Application.EnableEvents = True
        End If
      
    End Sub
    La seconda, facendo doppio click su una cella dell'intervallo "mese", cancella l'eventuale orario errato.
    Codice: 
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
        If Not Intersect(Target, Range("mese")) Is Nothing Then
            Application.EnableEvents = False
            ActiveCell = "": Cells(1, 1).Select
            Application.EnableEvents = True
        End If
    
    
    End Sub
    Ad abundantiam, allego il file sul quale ho lavorato: Allegato 1197
    Fai sapere se va bene. Ciao,
    Mario

  15. #15
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Ciao marius và quasi bene

    non ci deve mettere la data però solo ora e minuti hh:ss

    senno non può fare calcoli
    Grazie
    windows 10
    Excel 2016

  16. #16
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2072
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    spero esserci riuscito
    hai cambiato il foglio e ora è un pulsante

    ok l'allegato c'è

  17. #17
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    grazie Gianfranco

    funziona ora però mi devo studiare dove hai copiato il comando per farlo funzionare che lo applico nel mio file vero


    grazie per aiuto:285:
    windows 10
    Excel 2016

  18. #18
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2072
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    in questo caso è sul foglio1 perché hai utilizzato un pulsante ActiveX
    nel caso precedente invece avevi usato una forma.......rettangolo....
    e in quel caso la metti su un modulo

    differenza tra i due


    click dx su forma ti chiede assegna macro...........MODULO
    click su pulsante ActiveX click su modalità progettazione
    click dx su pulsante..ti chiede visualizza codice ci clicchi sopra e ti ritrovi nella schermata vba
    con
    Private Sub CommandButton1_Click()
    ActiveCell.Value = Range("A4")
    End Sub

    spero riesca a capirmi

  19. #19
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    stavo provando

    ti faccio sapere
    windows 10
    Excel 2016

  20. #20
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    grazie Gianfranco

    sei stato di grande aiuto

    trovato e provato tutto

    funziona
    windows 10
    Excel 2016

  21. #21
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2072
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    Si ma qua siamo alle elementari
    proviamo a passare avanti e venire promossi:176:

    il file di Marius è perfetto devi solo formattare il range B7 AF14 come ORA personalizzato 13.30
    ed è molto meglio del mio.

    Devi solo modificare la formula Mese

    Vai in formule

    gestisci nomi
    trovi il nome Mese
    cambia il range da B7 AF25
    in B7 AF 14

    e non ti serve il peulsante

    come clicchi su una cella del range si inserisce l'ora se fai doppio click si cancella

    qua siamo già alle superiori:176:

  22. #22
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2072
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    se non vuoi la formula basta eliminarla e variare il codice così
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B7:AF14")) Is Nothing Then
    Application.EnableEvents = False
    ActiveCell = "": Cells(1, 1).Select
    Application.EnableEvents = True
    End If
    End Sub
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("B7:AF14")) Is Nothing Then
    Application.EnableEvents = False
    ActiveCell = Now
    Application.EnableEvents = True
    End If

    End Sub

    Mi scuso con Marius se ho cambiato il suo codice, è solo per far capire a Nick le differenze

  23. #23
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Gianfranco sei stato perdetto

    Grazie anche a Marius44

    Hai cancellato da genstione nomi il "mese" e hai scritto il range di intervallo direttamente nel codice in Vba

    Voi siete alle università a insegnare............altro che promossi

    Grazie :18:
    windows 10
    Excel 2016

  24. #24
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    @Gianfranco
    Grazie per i complimenti e non scusarti.
    Vorrei chiederti due cose:
    - ma perchè cambiare i riferimenti del nome? Tutto il foglio può essere formattato in hh.mm
    - perché fare riferimento solo all'intervallo B7:AF14? e nelle altre righe non può essere inserito un orario?

    Personalmente formatterei anche il resto del foglio: anche le somme delle ore vanno gestite in hh.mm

    Ciao a tutti e buon proseguimento,
    Mario

  25. #25
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2072
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117
    Ciao Marius
    mi sembra che l'inserimento dell'orario sia limitato al range che ho delineato
    il resto a mio parere sono giorni di assenza e non comportano la timbratura

  26. #26
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    No Marius nelle altre righe non si inserisce altro ci sono altri tipi di conteggi che devono essere fatti

    il file l ho un pò alleggerito
    inserimento dell'ora mi bastava solo in quel range
    windows 10
    Excel 2016

  27. #27
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    infatti e come ha detto Gianfranco
    windows 10
    Excel 2016

  28. #28
    L'avatar di rollis13
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cordenons
    Messaggi
    815
    Versione Office
    2016 64bit
    Likes ricevuti
    147
    Likes dati
    53
    Buonasera a tutti.
    Personalmente apporterei un paio di piccole modifiche al codice di Marius44 al fine di evitare di modificare una cella che già contiene un orario al semplice click e per evitare di passare in modalità Modifica quando si fa il DoppioClick senza dover spostare il focus sempre nella cella (1,1) in modo da poter immediatamente inserire manualmente un orario in caso di necessità:
    Codice: 
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        
        If Not Intersect(Target, Range("mese")) Is Nothing Then
            Cancel = True                       'nuova
            Application.EnableEvents = False
            ActiveCell = ""                     'modificata
            Application.EnableEvents = True
        End If
    
    End Sub
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
        If Not Intersect(Target, Range("mese")) Is Nothing Then
            If ActiveCell <> "" Then Exit Sub   'nuova
            Application.EnableEvents = False
            ActiveCell = Now
            Application.EnableEvents = True
        End If
      
    End Sub

  29. I seguenti utenti hanno dato un "Like"


  30. #29
    L'avatar di nick0573
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Pistoia
    Età
    47
    Messaggi
    1072
    Versione Office
    Excel 2016
    Likes ricevuti
    19
    Likes dati
    15
    Grazie Rollis 13 Ottima idea

    perchè magari cliccando in maniera istintiva su una cella ti aggiornava un orario gia esistente grazie

    per il tuo intervento e completamento
    windows 10
    Excel 2016

  31. #30
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3216
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ottimo lavoro Rollis. Complimenti vivissimi. Ti sei meritato un "mi piace"

    Ciao,
    Mario

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
  •