Risultati da 1 a 5 di 5

Discussione: Copiare dati con una macro da una ComboBox



  1. #1
    L'avatar di maurizio54
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Cinisello Balsamo (MI)
    Età
    63
    Messaggi
    25
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    2

    Copiare dati con una macro da una ComboBox

    Ciao a tutti,
    ho creato un data entry su un foglio di excel 2013 con dei menù a tendina e la macro preleva correttamente i dati e li copia nel data base su un altro foglio. Ho poi sostituito i menù a discesa con delle ComboBox create dai controlli Activex per sfruttare la compilazione automatica delle parole che mi velocizza la selezione del dato nell'elenco. Il mio problema è che la macro preleva i dati dalle celle ma non dalle ComboBox. Come si può risolvere questo problema?
    Ringrazio da subito chi vorrà darmi una mano e rinnovo un saluto a tutti.:41:

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977
    Se alleghi un file con una spiegazione del risultato richiesto, è più facile aiutarti

  3. #3
    L'avatar di maurizio54
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Cinisello Balsamo (MI)
    Età
    63
    Messaggi
    25
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    2
    Grazie Rubik72 per avermi risposto ed allego un file di esempio sperando di aver spiegato il problema!
    Ciao
    File Allegati File Allegati

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2801
    Versione Office
    Excel 2013
    Likes ricevuti
    1019
    Likes dati
    977
    La riga che ti serve è:
    Codice: 
        Range(xxxxx) = Foglio10.ComboBox1.Vaue
    Ho semplificato un po la tua routine
    Codice: 
    Sub InviaNuovoProdotto()Dim iRow As Long
    Dim wks1 As Worksheet, wks2 As Worksheet
    
    
    Set wks1 = Sheets("NuovoProdotto")
    Set wks2 = Sheets("Prodotti")
    
    
    iRow = wks2.Cells(Rows.Count, 1).End(xlUp).Row + 1
        
    With wks1
        wks2.Cells(iRow, 1) = .Range("b2") 'codice prodotto
        wks2.Cells(iRow, 2) = .Range("b3") 'codice confezione
        wks2.Cells(iRow, 3) = .Range("b4") 'nome prodotto
        wks2.Cells(iRow, 4) = .Range("b5") 'descrizione prodotto
        wks2.Cells(iRow, 5) = Foglio10.ComboBox1  'tipo confezione
        wks2.Cells(iRow, 6) = .Range("b7") 'rif. prezzo
        wks2.Cells(iRow, 7) = .Range("b8") 'prezzo unità
        wks2.Cells(iRow, 8) = .Range("b9") 'prezzo scatola
    End With
    
    
    Set wks1 = Nothing
    Set wks2 = Nothing
        
    End Sub
    File Allegati File Allegati

  5. #5
    L'avatar di maurizio54
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Cinisello Balsamo (MI)
    Età
    63
    Messaggi
    25
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    2
    Grazie Rubik72, sei stato veramente grande e a giudicare da come hai ridotto la mia routine capisco che ne ho ancora tanta di strada da fare!
    Ciao e alla prossima!:28:

Discussioni Simili

  1. Macro per copiare dati secondo un elenco
    Di CHIOEX88 nel forum Domande su Excel VBA e MACRO
    Risposte: 20
    Ultimo Messaggio: 25/03/17, 22:28
  2. Macro Copiare dati da un foglio ad un altro alla prima cella utile (vuota)
    Di Spaginato nel forum Domande su Excel VBA e MACRO
    Risposte: 33
    Ultimo Messaggio: 27/02/17, 20:24
  3. Risposte: 6
    Ultimo Messaggio: 23/10/16, 18:02
  4. Copiare cella concatenata se presente testo specifico in combobox
    Di G.Bove nel forum Domande su Excel VBA e MACRO
    Risposte: 12
    Ultimo Messaggio: 10/08/16, 10:10
  5. MACRO per copiare dati su un altro foglio
    Di mpaolett nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 06/06/16, 20:46

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
  •