Tag: excel avanzato

Un tutorial pratico e completo per semplificare la raccolta di dati anagrafici in Excel tramite l’uso delle macro VBA

[xyz-ips snippet=”maschera”]

Argomenti trattati

• Come creare una mascherina semplice per l’inserimento dati
• Scrivere una macro per trasferire i dati in una tabella
• Inserire pulsanti con macro associate
• Resettare i campi dopo l’inserimento
• Controllare eventuali duplicati tramite email

Livello di difficoltà: Base-intermedio
Tempo di lettura: Circa 7 minuti

Introduzione

Quando si raccolgono informazioni da utenti, clienti o collaboratori, una maschera di inserimento è uno degli strumenti più utili da creare in Excel. Permette di inserire dati in modo ordinato, evitando errori, duplicazioni o confusione. In questo tutorial imparerai a realizzare una maschera semplice per l’inserimento di dati anagrafici, completa di pulsanti per salvare i dati, cancellarli e controllare se sono già presenti in una tabella.

Non serve essere esperti di programmazione: spiegherò passo dopo passo tutto quello che ti serve per realizzare un modulo funzionale, efficace e pronto all’uso, sfruttando semplici macro VBA.

Svolgimento

1. Struttura della maschera

Apri Excel e crea un nuovo file. Rinomina il primo foglio in Foglio1. Qui inserirai i campi della mascherina di input, disposti in verticale nella colonna C:

Nel foglio Foglio2 prepara l’intestazione dei dati a partire dalla riga 1, nelle colonne da A a F:

Puoi digitare i titoli a mano oppure copiarli direttamente dalla maschera.

2. Abilitare le macro

Per usare il codice VBA, salva il file in formato .xlsm (Cartella di lavoro con attivazione macro). Poi premi ALT + F11 per aprire l’Editor di Visual Basic. Dal menu, vai su Inserisci > Modulo.

3. Macro 1 – AggiungiDati

Questa macro legge i dati inseriti nella mascherina e li trasferisce nella prima riga libera del Foglio2.

Sub AggiungiDati()
    Dim wsInput As Worksheet
    Dim wsDest As Worksheet
    Dim rigaLibera As Long

    Set wsInput = ThisWorkbook.Sheets("Foglio1")
    Set wsDest = ThisWorkbook.Sheets("Foglio2")

    rigaLibera = wsDest.Cells(wsDest.Rows.Count, 1).End(xlUp).Row
    If rigaLibera < 2 Then rigaLibera = 1
    rigaLibera = rigaLibera + 1

    wsDest.Cells(rigaLibera, 1).Value = wsInput.Cells(2, 3).Value
    wsDest.Cells(rigaLibera, 2).Value = wsInput.Cells(3, 3).Value
    wsDest.Cells(rigaLibera, 3).Value = wsInput.Cells(4, 3).Value
    wsDest.Cells(rigaLibera, 4).Value = wsInput.Cells(5, 3).Value
    wsDest.Cells(rigaLibera, 5).Value = wsInput.Cells(6, 3).Value
    wsDest.Cells(rigaLibera, 6).Value = wsInput.Cells(7, 3).Value
End Sub

4. Macro 2 – ResetCampi

Serve a svuotare tutti i campi della maschera, così puoi subito inserire un nuovo nominativo.

Sub ResetCampi()
    Dim wsInput As Worksheet
    Set wsInput = ThisWorkbook.Sheets("Foglio1")

    Dim i As Integer
    For i = 2 To 7
        wsInput.Cells(i, 3).Value = ""
    Next i
End Sub

5. Macro 3 – ControllaDuplicati

Controlla se la mail che stai per inserire è già presente nella tabella. Se sì, ti porta direttamente alla riga esistente. Se non la trova, ti avvisa.

Sub ControllaDuplicati()
    Dim wsInput As Worksheet
    Dim wsDest As Worksheet
    Dim mailDaControllare As String
    Dim cella As Range
    Dim trovato As Boolean

    Set wsInput = ThisWorkbook.Sheets("Foglio1")
    Set wsDest = ThisWorkbook.Sheets("Foglio2")

    mailDaControllare = Trim(wsInput.Cells(6, 3).Value)

    If mailDaControllare = "" Then
        MsgBox "Inserisci una mail da controllare.", vbExclamation
        Exit Sub
    End If

    trovato = False
    For Each cella In wsDest.Range("E2:E" & wsDest.Cells(wsDest.Rows.Count, "E").End(xlUp).Row)
        If Trim(cella.Value) = mailDaControllare Then
            trovato = True
            Application.Goto cella, True
            MsgBox "Mail già presente nella riga " & cella.Row, vbInformation
            Exit Sub
        End If
    Next cella

    If Not trovato Then
        MsgBox "Dato non presente.", vbInformation
    End If
End Sub

6. Inserire i pulsanti

Torna su Foglio1, clicca su Inserisci > Forme > Rettangolo e disegna tre pulsanti:

• Aggiungi
• Reset
• Controlla Mail

Fai clic destro su ogni rettangolo > Assegna macro e collega ciascuno alla macro corrispondente.

7. Test finale

1. Scrivi i dati nella maschera
2. Clicca su “Controlla Mail” per vedere se esiste già
3. Clicca su “Aggiungi” per salvarli
4. Clicca su “Reset” per svuotare i campi

[xyz-ips snippet=”maschera”]

Creare una Maschera di Inserimento Dati: conclusioni

Abbiamo realizzato una maschera di inserimento anagrafico completamente funzionale in Excel. Grazie a poche righe di codice VBA, ora sei in grado di raccogliere dati in modo ordinato, veloce e senza duplicazioni.

Questa procedura è perfetta per moduli clienti, elenchi iscritti, raccolte dati in azienda o per la gestione di piccole anagrafiche. Con semplici personalizzazioni, puoi adattarla a qualsiasi tipo di tabella o esigenza.

Se vuoi vedere tutto questo in azione, puoi guardare il video tutorial collegato a questo articolo o scaricare il file di esempio dal mio sito.

Per qualsiasi domanda o personalizzazione, puoi scrivermi: sarò felice di aiutarti a fare un passo avanti nella tua carriera digitale.

Se il tutorial Creare una Maschera di Inserimento Dati ti è stato utile, puoi supportarmi lasciandomi una recensione a 5 stelle (5, perchè per Google meno di 5 viene considerata recensione negativa):

Clicca qui per lasciarmi una recensione

Guarda il VideoTutorial Creare una Maschera di Inserimento Dati