popolare tabella excel da userform

Anonimo
2020-06-06T12:04:09+00:00

Salve, ecco in breve il mio problema:

ho creato una userform , nella quale ci sono delle checkbox , textbox e due pulsanti.

faccio un esempio:

quando la checkbox chiamata ckb_Entrate_Banca è selezionata, premendo il pulsante btn_Inserisci, il contenuto in txt_Data  deve essere inserito nella tabella nominata ENTRATE_BANCA , nel foglio chiamato BANCA.

la userform viene richiamata da un foglio chiamato RIEPILOGO.

Microsoft 365 e Office | Excel | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

8 risposte

Ordina per: Più utili
  1. Anonimo
    2020-06-06T13:31:52+00:00

    si il suggerimento funziona,sto cercando di capire, come modificarlo per utilizzarlo in modo completo per il file.

    Come vedi, nella userform per ogni voce ci sono due quadrati di spunta, che corrispondono a due tabelle distinte per voce.

    insomma, quello fatto per banca, devo farlo per ogni tabella

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2020-06-06T13:24:09+00:00

    Ciao Diego,

    ecco qua il file FINANZAper domanda.xlsm

    Ho scaricato il tuo file e credo che il codice suggerito nella mia risposta precedente funzioni.

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2020-06-06T13:04:12+00:00

    ecco qua il file FINANZAper domanda.xlsm

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2020-06-06T13:03:44+00:00

    Ciao Diego,

    In attesa di un file di esempio e ponendo che la tabella ENTRATE_BANCA sia una tabella di Excel, prova qualcosa del genere:

    '========>>

    Option Explicit

    '-------->>

    Private Sub btn_Inserisci_Click()

        Dim SH  As Worksheet

        Dim Rng As Range

        Dim LObj As ListObject

        Dim newRow As ListRow

        Const sFoglio As String = "BANCA"

        Const sTabella As String = "ENTRATE_BANCA"

        If Me.ckb_Entrate_Banca.Value Then

            Set SH = ThisWorkbook.Sheets(sFoglio)

            Set LObj = SH.ListObjects(sTabella)

            Set newRow = LObj.ListRows.Add

            newRow.Range(1).Value = Me.txtb_Data.Value

        End If

    End Sub

    '<<===========

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti Nessun commento
  5. Anonimo
    2020-06-06T12:23:02+00:00

    Ciao Diego,

    Salve, ecco in breve il mio problema:

    ho creato una userform , nella quale ci sono delle checkbox , textbox e due pulsanti.

    faccio un esempio:

    quando la checkbox chiamata ckb_Entrate_Banca è selezionata, premendo il pulsante btn_Inserisci, il contenuto in txt_Data  deve essere inserito nella tabella nominata ENTRATE_BANCA , nel foglio chiamato BANCA.

    la userform viene richiamata da un foglio chiamato RIEPILOGO.

    Sarebbe utile tu potessi caricare un file di esempio, privo di dati sensibili, su OneDrive o DropBox.

    Per caricare il file su Microsoft OneDrive, vedi:

       Condividere file e cartelle di OneDrive

    Per caricare il file su DropBox, vedi:

    Come faccio a condividere file e cartelle in Dropbox?

    ===

    Regards,

    Norman

    La risposta è stata utile?

    0 commenti Nessun commento