Risultati da 1 a 7 di 7

Discussione: Aggiornamento valore TextBox in tempo reale in base al valore selezionato nella ComboBox



  1. #1
    L'avatar di SalDC
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Italia
    Età
    27
    Messaggi
    3
    Versione Office
    2007
    Utile ricevuti
    0
    Utile dati
    0

    Aggiornamento valore TextBox in tempo reale in base al valore selezionato nella ComboBox

    Buonasera,
    ho creato un file Excel per generare le fatture. Il file contiene 3 fogli ("Fattura" - "Storico" - "Clienti") e una UserForm in cui sono contenuti 1 ComboBox e 4 TextBox, nella parte bassa della UserForm ci sono 2 pulsanti, uno per inserire i dati nel foglio "Fattura" e l'altro per cancellare gli stessi.
    Il problema che non riesco a risolvere consiste nel visualizzare in tempo reale (appena selezione dall'elenco clienti della ComboBox un cliente) nelle TextBox i dati relativi al cliente selezionato (Indirizzo, Cap, C.F.).
    Preciso che se clicco sul bottone "Inserisci dati fatturazione" i dati vengono correttamente inseriti in "Fattura", da questo deduco che le variabili legate alle TextBox memorizzano i valori dal foglio "Clienti" ma non riesco a vederli nella UserForm finchè non la chiudo e la riapro.
    La macro è scritta in VBA, usando Excel 2007.
    Spero possiate aiutarmi con questo problema.
    Grazie in anticipo per l'aiuto.

    Codice: 
    Sub CommandButton1_Click()
    Dim Cliente As String, Indirizzo As String, CAP As String, citta As String, provincia As String
    Dim CFiva As String, NFattura As String, data As String
    Cliente = Cliente_ComboBox1.Value
    Indirizzo = IndirizzoTextBox.Value
    CAP = CAP_TextBox.Value
    citta = Citta_TextBox.Value
    provincia = Provincia_TextBox.Value
    CFiva = CF_TextBox.Value
    NFattura = NFattura_TextBox.Value
    data = G_TextBox.Value + "/" + M_TextBox.Value + "/20" + A_TextBox.Value
    
    For i = 4 To 10
        If Cliente = Sheets("Clienti").Range("A" & i).Value Then
        Indirizzo = Sheets("Clienti").Range("B" & i).Value
        CAP = Sheets("Clienti").Range("C" & i).Value
        citta = Sheets("Clienti").Range("D" & i).Value
        provincia = Sheets("Clienti").Range("E" & i).Value
        CFiva = Sheets("Clienti").Range("F" & i).Value
        End If
       Next
    
    ActiveSheet.Unprotect
    Sheets("Fattura").Range("L6") = Cliente
    Sheets("Fattura").Range("L7") = Indirizzo
    Sheets("Fattura").Range("L8") = CAP + " " + citta + " (" + provincia + ")"
    If Len(Trim(CFiva)) > 14 Then
        Sheets("Fattura").Range("L9") = "CF. " + CFiva
    Else
        Sheets("Fattura").Range("L9") = "P.IVA " + CFiva
    End If
        Sheets("Fattura").Range("J1") = "Fattura n." + NFattura + " del " + data
        Sheets("Fattura").Range("D45") = "Bacoli, " + data
    ActiveSheet.Protect
    InserimentoDati.Hide
    End Sub

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    2326
    Versione Office
    2010/2013 PC
    Utile ricevuti
    400
    Utile dati
    41

    Re: Aggiornamento valore TextBox in tempo reale in base al valore selezionato nella ComboBox

    Citazione Originariamente Scritto da SalDC Visualizza Messaggio
    Buonasera,
    ho creato un file Excel per generare le fatture. Il file contiene 3 fogli ("Fattura" - "Storico" - "Clienti") e una UserForm in cui sono contenuti 1 ComboBox e 4 TextBox, nella parte bassa della UserForm ci sono 2 pulsanti, uno per inserire i dati nel foglio "Fattura" e l'altro per cancellare gli stessi.
    Il problema che non riesco a risolvere consiste nel visualizzare in tempo reale (appena selezione dall'elenco clienti della ComboBox un cliente) nelle TextBox i dati relativi al cliente selezionato (Indirizzo, Cap, C.F.).
    Preciso che se clicco sul bottone "Inserisci dati fatturazione" i dati vengono correttamente inseriti in "Fattura", da questo deduco che le variabili legate alle TextBox memorizzano i valori dal foglio "Clienti" ma non riesco a vederli nella UserForm finchè non la chiudo e la riapro.
    La macro è scritta in VBA, usando Excel 2007.
    Spero possiate aiutarmi con questo problema.
    Grazie in anticipo per l'aiuto.

    Codice: 
    Sub CommandButton1_Click()
    Dim Cliente As String, Indirizzo As String, CAP As String, citta As String, provincia As String
    Dim CFiva As String, NFattura As String, data As String
    Cliente = Cliente_ComboBox1.Value
    Indirizzo = IndirizzoTextBox.Value
    CAP = CAP_TextBox.Value
    citta = Citta_TextBox.Value
    provincia = Provincia_TextBox.Value
    CFiva = CF_TextBox.Value
    NFattura = NFattura_TextBox.Value
    data = G_TextBox.Value + "/" + M_TextBox.Value + "/20" + A_TextBox.Value
    
    For i = 4 To 10
        If Cliente = Sheets("Clienti").Range("A" & i).Value Then
        Indirizzo = Sheets("Clienti").Range("B" & i).Value
        CAP = Sheets("Clienti").Range("C" & i).Value
        citta = Sheets("Clienti").Range("D" & i).Value
        provincia = Sheets("Clienti").Range("E" & i).Value
        CFiva = Sheets("Clienti").Range("F" & i).Value
        End If
       Next
    
    ActiveSheet.Unprotect
    Sheets("Fattura").Range("L6") = Cliente
    Sheets("Fattura").Range("L7") = Indirizzo
    Sheets("Fattura").Range("L8") = CAP + " " + citta + " (" + provincia + ")"
    If Len(Trim(CFiva)) > 14 Then
        Sheets("Fattura").Range("L9") = "CF. " + CFiva
    Else
        Sheets("Fattura").Range("L9") = "P.IVA " + CFiva
    End If
        Sheets("Fattura").Range("J1") = "Fattura n." + NFattura + " del " + data
        Sheets("Fattura").Range("D45") = "Bacoli, " + data
    ActiveSheet.Protect
    InserimentoDati.Hide
    End Sub
    se alleghi un file senza dati sensibili, potremmo darci un'occhiata

    P.S.
    comunque per farla semplice, devi fare una routine : Private sub combobox_change
    all'interno metti le istruzioni per riempire le varie text box

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di SalDC
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Italia
    Età
    27
    Messaggi
    3
    Versione Office
    2007
    Utile ricevuti
    0
    Utile dati
    0

    Re: Aggiornamento valore TextBox in tempo reale in base al valore selezionato nella ComboBox

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    se alleghi un file senza dati sensibili, potremmo darci un'occhiata
    Grazie per la celere risposta, ho allegato il file, spero che semplifichi la risoluzione del problema.

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    P.S.
    comunque per farla semplice, devi fare una routine : Private sub combobox_change
    all'interno metti le istruzioni per riempire le varie text box


    Ho provato con:

    Codice: 
    Private sub IndirizzoTextBox_change()
    IndirizzoTextBox.Text = Indirizzo
    End Sub
    ma non funziona.
    Grazie per l'aiuto.
    File Allegati File Allegati

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    2326
    Versione Office
    2010/2013 PC
    Utile ricevuti
    400
    Utile dati
    41

    Re: Aggiornamento valore TextBox in tempo reale in base al valore selezionato nella ComboBox

    Citazione Originariamente Scritto da SalDC Visualizza Messaggio
    Grazie per la celere risposta, ho allegato il file, spero che semplifichi la risoluzione del problema.



    Ho provato con:

    Codice: 
    Private sub IndirizzoTextBox_change()
    IndirizzoTextBox.Text = Indirizzo
    End Sub
    ma non funziona.
    Grazie per l'aiuto.
    Ecco il file modificato. Se fai doppio clic (da VBA) sulla combobox, vedrai il codice che ho scritto.

    Fammi sapere se va bene

    Ciao

    P.S.
    Un consiglio, dopo aver inserito i dati in fattura, "Inserisci dati fatturazione" azzera i dati nei vari textbox
    File Allegati File Allegati

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di SalDC
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Italia
    Età
    27
    Messaggi
    3
    Versione Office
    2007
    Utile ricevuti
    0
    Utile dati
    0

    Re: Aggiornamento valore TextBox in tempo reale in base al valore selezionato nella ComboBox

    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Ecco il file modificato. Se fai doppio clic (da VBA) sulla combobox, vedrai il codice che ho scritto.

    Fammi sapere se va bene

    Ciao

    P.S.
    Un consiglio, dopo aver inserito i dati in fattura, "Inserisci dati fatturazione" azzera i dati nei vari textbox
    Grazie mille, è perfetto . Ci stavo sbattendo la testa dalle 15.00 .
    Domani inserirò anche l'archiviazione e il richiamo delle fatture emesse.
    Grazie ancora per l'aiuto e sicuramente a presto

  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    2326
    Versione Office
    2010/2013 PC
    Utile ricevuti
    400
    Utile dati
    41

    Re: Aggiornamento valore TextBox in tempo reale in base al valore selezionato nella ComboBox

    Citazione Originariamente Scritto da SalDC Visualizza Messaggio
    Grazie mille, è perfetto . Ci stavo sbattendo la testa dalle 15.00 .
    Domani inserirò anche l'archiviazione e il richiamo delle fatture emesse.
    Grazie ancora per l'aiuto e sicuramente a presto
    Grazie a te per il riscontro positivo e... alla prossima

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    L'avatar di Dillina
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Tenerife
    Messaggi
    636
    Versione Office
    2013
    Utile ricevuti
    124
    Utile dati
    613

    Re: Aggiornamento valore TextBox in tempo reale in base al valore selezionato nella ComboBox

    Ciao SalDC e benvenuto nel Forum,

    ho visto che non sei passato dal VIA.
    Vieni a presentarti appena hai due minuti?

    Grazie e scusate l'intrusione!
    Sii gentile quando possibile. È sempre possibile
    (Dalai Lama)

Discussioni Simili

  1. [Risolto] Se cambia il valore nella combobox, Attiva evento
    Di Vincenzo Damiani nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 13/10/16, 13:32
  2. Ordinare in modo automatico ed in tempo reale
    Di Multicentrum nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 12/09/16, 17:52
  3. Risposte: 7
    Ultimo Messaggio: 22/06/16, 15:17
  4. Caricare ListBox sulla base del valore ComboBox
    Di dpg70 nel forum Domande su Excel VBA e MACRO
    Risposte: 8
    Ultimo Messaggio: 24/05/16, 20:47
  5. Valore Combobox uguale all'item selezionato
    Di cromagno nel forum Domande su Excel VBA e MACRO
    Risposte: 24
    Ultimo Messaggio: 19/12/15, 10:40

Tag per Questa Discussione

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
  •