Risultati da 1 a 8 di 8

Discussione: Foglio presenze con check box e pulsante



  1. #1
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Foglio presenze con check box e pulsante

    Dopo aver visto alcuni tutorial del nostro Zuccalà su youtube riguardanti la check box, volevo provare a fare un lavoro un po' particolare.
    Partiamo da cosa voglio arrivare a fare: una registro presenze che utilizza una sorta di form con la check-box e un pulsante per inviare ad un'altra tabella, in un altro foglio di lavoro, le presenze/assenze giornaliere riguardanti, per esempio, una lezione.

    Al momento ho creato in un foglio (che chiamiamo REGISTRO) una tabella con una lista di nomi e affianco una griglia con un'intestazione numerica a crescere per ogni colonna e lo spazio sotto l'intestazione per la data. Questo sarebbe il foglio dove a seconda della data io andrei di solito a mettere manualmente una X (o altro simbolo o parola) per chi era presente quel giorno.

    In un altro foglio (che chiamiamo INSERIMENTO DATI) ho messo una tabella che riprende i nomi dal foglio di prima e con affianco una casella check-box da spuntare in caso di presenza. Inoltre nella stessa tabella ho messo la possibilità di inserire il numero della lezione e la data.

    Adesso, vorrei che da INSERIMENTO DATI, dopo aver magari premuto un pulsante, a seconda del numero di lezione inserito, mandi a REGISTRO la data che ho messo e mi vengono automaticamente segnati i presenti che ho spuntato con la check-box.

    Tutto il trambusto è ovviamente per permettere a chiunque di inserire in modo molto facile le presenze senza modificare per errore la tabella generale.

    Sperando di essere stato chiaro, potete aiutarmi con qualche idea/aiuto a proseguire?

    Un grazie a tutti!

  2. #2

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

    Re: Foglio presenze con check box e pulsante

    Sarebbe più semplice aiutarti se allegassi un file di esempio senza dati sensibili.

  3. #3
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Foglio presenze con check box e pulsante

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Sarebbe più semplice aiutarti se allegassi un file di esempio senza dati sensibili.
    Ho allegato un esempio (precompilato a mano per fare capire).
    Sia chiaro che non ho una finalità in questo ma voglio capire se si può fare una cosa del genere. Ogni aiuto o idea o suggerimento sono quindi ben accetti! :32:
    File Allegati File Allegati

  4. #4

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

    Re: Foglio presenze con check box e pulsante

    Ciao,
    vedi se va bene così:

    Codice: 
    Option Explicit
    Sub inserisci()
    Dim wks1 As Worksheet, wks2 As Worksheet, y As Integer
        Set wks1 = Worksheets("Inserimento Dati")
        Set wks2 = Worksheets("Registro")
            For y = 4 To 9
                If wks1.Range("D" & y) = True Then
                    wks2.Range("D4").Offset(-1, wks1.Range("C3") - 1) = wks1.Range("C4")
                    wks2.Range("D" & y).Offset(-1, wks1.Range("C3") - 1) = "x"
                End If
            Next
        Set wks1 = Nothing
        Set wks2 = Nothing
        MsgBox "Inserimento effettuato con successo!", vbInformation, "AVVISO"
    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!

  5. I seguenti utenti hanno dato un "Like"


  6. #5
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Foglio presenze con check box e pulsante

    Esatto!!! Sei un grande.
    Siccome però sto cercando di imparare mi spieghi a brevi linee il codice, più che altro per capire il ragionamento (tieni conto che non sono un programmatore nello spiegarmi :D).

    Ancora grazie!

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao,
    vedi se va bene così:

    Codice: 
    Option Explicit
    Sub inserisci()
    Dim wks1 As Worksheet, wks2 As Worksheet, y As Integer
        Set wks1 = Worksheets("Inserimento Dati")
        Set wks2 = Worksheets("Registro")
            For y = 4 To 9
                If wks1.Range("D" & y) = True Then
                    wks2.Range("D4").Offset(-1, wks1.Range("C3") - 1) = wks1.Range("C4")
                    wks2.Range("D" & y).Offset(-1, wks1.Range("C3") - 1) = "x"
                End If
            Next
        Set wks1 = Nothing
        Set wks2 = Nothing
        MsgBox "Inserimento effettuato con successo!", vbInformation, "AVVISO"
    End Sub

  7. #6

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

    Re: Foglio presenze con check box e pulsante

    Ciao,
    cerco di spiegarti inserendo dei commenti per ciascuna riga.
    Codice: 
    Option Explicit
    Sub inserisci()
    Dim wks1 As Worksheet, wks2 As Worksheet, y As Integer 'dichiaro le variabili
        Set wks1 = Worksheets("Inserimento Dati") ' assegno la prima variabile al primo foglio
        Set wks2 = Worksheets("Registro") 'assegno la seconda variabile al secondo foglio
            For y = 4 To 9 'definisco un ciclo che va dalla 1° riga alla 9°
                If wks1.Range("D" & y) = True Then ' se il valore della colonna D (D4:D9) è uguale a VERO, cioè se è spuntata la checbox ... allora ...
                    wks2.Range("D4").Offset(-1, wks1.Range("C3") - 1) = wks1.Range("C4") ' copia il contenuto della cella C4 del primo foglio nella riga con scarto di - 1 riga e "tot" colonne quanto è il numero della cella C3 del primo del primo foglio
                    wks2.Range("D" & y).Offset(-1, wks1.Range("C3") - 1) = "x"  ' inserisci una "x"  nella riga con scarto di - 1 riga e "tot" colonne quanto è il numero della cella C3 del primo del primo foglio
                End If  ' lo scarto di una riga sotto è dovuto al fatto che la tabella del secondo foglio è posizionata più in alto di una riga rispetto ai valori del primo foglio
            Next
        Set wks1 = Nothing
        Set wks2 = Nothing 'libero l'abbinamento delle variabili ai fogli
        MsgBox "Inserimento effettuato con successo!", vbInformation, "AVVISO" ' si mette un messaggio dopo l'inserimento
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  8. #7
    L'avatar di Cavier80
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Milano
    Età
    35
    Messaggi
    50
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    1

    Re: Foglio presenze con check box e pulsante

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao,
    cerco di spiegarti inserendo dei commenti per ciascuna riga.
    Grazie mille!!! :23:

  9. #8
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4937
    Versione Office
    2013
    Likes ricevuti
    1122
    Likes dati
    1131

    Re: Foglio presenze con check box e pulsante

    Ciao Cavier
    se la tua domanda è stata risolta segna questa discussione come [RISOLTO]
    Vai nella barra dei menu, situata all’inizio di questa discussione, troverai il menu “Strumenti Discussione” quindi scegliere “Segna questo Thread come risolto”

Discussioni Simili

  1. [Risolto] Azione su un foglio a seconda del pulsante (tab o invio) che premo
    Di Ciccio nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 31/10/16, 18:05
  2. Copiare immagine da un foglio all' altro con pulsante macro
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 24/09/16, 11:38
  3. Grafico dinamico con check box
    Di greeneyes63 nel forum Domande sui Grafici di Excel
    Risposte: 2
    Ultimo Messaggio: 08/07/16, 12:35
  4. Check box
    Di Fabrizio.gaglio nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 18/01/16, 17:46
  5. check box automatiche
    Di max72 nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 28/12/15, 20:20

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
  •