Risultati da 1 a 11 di 11

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à
    46
    Messaggi
    3534
    Versione Office
    Excel 2013
    Likes ricevuti
    1230
    Likes dati
    1303

    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à
    54
    Messaggi
    10137
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2593
    Likes dati
    1557

    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à
    54
    Messaggi
    10137
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2593
    Likes dati
    1557

    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à
    50
    Messaggi
    5388
    Versione Office
    office 365/2016
    Likes ricevuti
    1274
    Likes dati
    1342

    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”
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  10. #9
    L'avatar di falso92ale
    Clicca e Apri
    Data Registrazione
    Feb 2018
    Località
    Minturno
    Messaggi
    164
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    101

    Re: Foglio presenze con check box e pulsante

    Ciao Ges vorrei dei consigli su questo codice
    Citazione Originariamente Scritto da ges Visualizza Messaggio
    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
    Invece del numero della Lezione vorrei cancellare quella riga e non prendarla più in considerazione nel codice e vorrei inserire sempre tramite CheckBox la "X" nel Foglio2 ma non in base al numero della lezione ma in base alla scelta della data.

    Allego il nuovo file.
    File Allegati File Allegati

  11. #10

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    46
    Messaggi
    3534
    Versione Office
    Excel 2013
    Likes ricevuti
    1230
    Likes dati
    1303

    Re: Foglio presenze con check box e pulsante

    Ti sei accodato ad una discussione vecchia di 2 anni (quindi con poca visibilità).
    Crea una nuova discussione, descrivi il problema che hai e allega un file di esempio con il risultato voluto.

  12. #11
    L'avatar di falso92ale
    Clicca e Apri
    Data Registrazione
    Feb 2018
    Località
    Minturno
    Messaggi
    164
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    101

    Re: Foglio presenze con check box e pulsante

    Grazie rubik ho già aperto una nuova discussione sull'argomento ma nel frattempo mi sono imbattuto in questa tramite il campo ricerca e credevo si potesse comunque continuare una discussione vecchia.

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, 17: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, 10:38
  3. Grafico dinamico con check box
    Di greeneyes63 nel forum Domande sui Grafici di Excel
    Risposte: 2
    Ultimo Messaggio: 08/07/16, 11:35
  4. Check box
    Di Fabrizio.gaglio nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 18/01/16, 16:46
  5. check box automatiche
    Di max72 nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 28/12/15, 19: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
  •