Risultati da 1 a 12 di 12

Discussione: Aiuto per VBA UserForm



  1. #1
    L'avatar di Teopaguz
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Villongo
    EtÓ
    25
    Messaggi
    9
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    1

    Aiuto per VBA UserForm

    Ciao ragazzi sono nuovo del forum anche se vi seguo sempre e grazie a voi sono riuscito a creare un semplice ma efficace gestionale per la mia azienda.
    L'ultimo passo dopo aver creato tutti i vari fogli che tengono tutti gli articoli in magazzino mi piacerebbe riuscire a caricare e modificare gli articoli direttamente da una userform, ho giÓ creato una userform con cui carico i dati e creo la "commessa interna" ed ora avrei bisogno di un aggiunta per la modifica dei dati giÓ presenti in magazzino.
    Carico il foglio magazzino del mio file che Ŕ l'unico interessato da questa modifica, praticamente ho bisogno di una Userform che tramite la colonna B mi trovi i relativi valori nelle altre colonne, sulla stessa riga, in cui ho messo i dati e me li faccia, nel caso serva, modificare.
    Praticamente io sparo il codice a barre dell'interno (es.20161001) e voglio che nei vari textbox della userform mi compaiano i dati -> la casella con il numero macchina, la casella articolo,
    la q.tÓ, le note e i pezzi visionati.
    Sarebbe interessante inserire tutto cio nella userform sulla destra di tutte le colonne dove ho predisposto le caselle.
    Grazie ragazzi ;)
    File Allegati File Allegati

  2. #2

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Aiuto per VBA UserForm

    Ho creato una UserForm. Crea il tasto per richiamarla dove pi¨ ti Ŕ comodo.
    Questo Ŕ il codice:
    Codice: 
    Dim iRow As Long
    
    
    Private Sub ComboBox1_Change()
    
    
    iRow = ComboBox1.ListIndex + 2
    
    
    With Foglio3
        TextBox1 = .Cells(iRow, 1)
        TextBox2 = .Cells(iRow, 3)
        TextBox3 = .Cells(iRow, 4)
        TextBox4 = .Cells(iRow, 5)
        TextBox5 = .Cells(iRow, 6)
        TextBox6 = .Cells(iRow, 7)
        TextBox7 = .Cells(iRow, 8)
        TextBox8 = .Cells(iRow, 9)
        TextBox9 = .Cells(iRow, 10)
        TextBox10 = .Cells(iRow, 11)
        TextBox11 = .Cells(iRow, 12)
        TextBox12 = .Cells(iRow, 13)
    End With
    End Sub
    
    
    Private Sub CommandButton1_Click()
    Unload Me
    End Sub
    
    
    Private Sub CommandButton2_Click()
    
    
    With Foglio3
         .Cells(iRow, 1) = TextBox1
         .Cells(iRow, 3) = TextBox2
         .Cells(iRow, 4) = TextBox3
         .Cells(iRow, 5) = TextBox4
         .Cells(iRow, 6) = TextBox5
         .Cells(iRow, 7) = TextBox6
         .Cells(iRow, 8) = TextBox7
         .Cells(iRow, 9) = TextBox8
         .Cells(iRow, 10) = TextBox9
         .Cells(iRow, 11) = TextBox10
         .Cells(iRow, 12) = TextBox11
         .Cells(iRow, 13) = TextBox12
    End With
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    Dim uRiga As Long, i As Long
    
    
    uRiga = Foglio3.Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To uRiga
        ComboBox1.AddItem Foglio3.Cells(i, 2)
    Next
    
    
    End Sub
    File Allegati File Allegati

  3. I seguenti utenti hanno dato un "Like"


  4. #3
    L'avatar di Teopaguz
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Villongo
    EtÓ
    25
    Messaggi
    9
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    1

    Re: Aiuto per VBA UserForm

    Grazie mille per la prontissima risposta, domattina lo provo con il file originale :286:

  5. #4
    L'avatar di Teopaguz
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Villongo
    EtÓ
    25
    Messaggi
    9
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    1

    Re: Aiuto per VBA UserForm

    Fantastico con quelche piccola modifica funziona alla perfezione, ora ho un altra domanda stupidissima, ho inserito anche un bottone per colorare di verde la riga quando il prodotto Ŕ stato lavorato, perchŔ con questo codice mi va a colorare sempre la riga del foglio 1 e non del foglio 3? (la userform la avvio dal foglio1)
    Codice: 
    Private Sub CommandButton3_Click()
    With Foglio3
    Rows(iRow).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        End With
    
    
    End Sub

  6. #5
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    LocalitÓ
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17

    Re: Aiuto per VBA UserForm

    al posto di 'With Foglio3'
    metti 'Sheets("Foglio3").Select'
    oppure
    Sheets("Foglio3").Rows(iRow).Select

  7. #6

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Aiuto per VBA UserForm

    Citazione Originariamente Scritto da zio_tom Visualizza Messaggio
    al posto di 'With Foglio3'
    metti 'Sheets("Foglio3").Select'
    oppure
    Sheets("Foglio3").Rows(iRow).Select
    Ciao zio_tom, forse ti sei confuso in quanto Sheets("Foglio3").Select non esiste.
    Sicuramente volevi scrivere Foglio3.Select

    Citazione Originariamente Scritto da Teopaguz Visualizza Messaggio
    Fantastico con quelche piccola modifica funziona alla perfezione, ora ho un altra domanda stupidissima, ho inserito anche un bottone per colorare di verde la riga quando il prodotto Ŕ stato lavorato, perchŔ con questo codice mi va a colorare sempre la riga del foglio 1 e non del foglio 3? (la userform la avvio dal foglio1)
    Codice: 
    Private Sub CommandButton3_Click()
    With Foglio3
    Rows(iRow).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .Color = 65535
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        End With
    
    
    End Sub
    Come suggerito da zio_tom le opzioni sono 2:
    Se scrivi
    Codice: 
    With Foglio3
         Rows(iRow).select
              With Selection.Interior
    [...]
    devi "attivare" il Foglio3 ("Magazzino"),

    altrimenti puoi omettere Select e senza "attivare" il Foglio3 puoi scrivere:
    Codice: 
    With Foglio3.Rows(iRow).Interior
    [...]

  8. #7
    L'avatar di Teopaguz
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Villongo
    EtÓ
    25
    Messaggi
    9
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    1

    Re: Aiuto per VBA UserForm

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Ciao zio_tom, forse ti sei confuso in quanto Sheets("Foglio3").Select non esiste.
    Sicuramente volevi scrivere Foglio3.Select


    Come suggerito da zio_tom le opzioni sono 2:
    Se scrivi
    Codice: 
    With Foglio3
         Rows(iRow).select
              With Selection.Interior
    [...]
    devi "attivare" il Foglio3 ("Magazzino"),

    altrimenti puoi omettere Select e senza "attivare" il Foglio3 puoi scrivere:
    Codice: 
    With Foglio3.Rows(iRow).Interior
    [...]
    Grazie mille a entrambi..con qualche prova e riscrivendo qualche volta il codice sono riuscito...brutto usare il VBA se non ne capisci molto :279:

  9. #8
    L'avatar di Teopaguz
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Villongo
    EtÓ
    25
    Messaggi
    9
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    1

    Re: Aiuto per VBA UserForm

    Ragazzi scusatemi un altra piccola domanda, dopo aver perfezionato al massimo la userform per la modifica dei dati con il primo codice che mi avete scritto ho capito che ho bisogno di poter ricercare i vari articolo da modificare anche tramite il nome dell'articolo e non solo tramite il codice a barre, ho provato a modificare il codice ma non riesco proprio....avrei solamente bisogno di uno script che esegua la stessa identica azione del primo postato ma ricercando il valore nella 3░ colonna, cioŔ quella in cui ho scritto il nome dell'articolo. Grazie mille ragazzi siete i mogliori! :286:

  10. #9

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Aiuto per VBA UserForm

    Ho sostituito una textbox con una combobox (ARTICOLO) e questa Ŕ la routine:
    Codice: 
    Dim iRow As Long
    
    
    Private Sub ComboBox1_Change()
    iRow = ComboBox1.ListIndex + 2
    
    
    With Foglio3
        ComboBox2 = .Cells(iRow, 3)
        TextBox2 = .Cells(iRow, 3)
        TextBox3 = .Cells(iRow, 4)
        TextBox4 = .Cells(iRow, 5)
        TextBox5 = .Cells(iRow, 6)
        TextBox6 = .Cells(iRow, 7)
        TextBox7 = .Cells(iRow, 8)
        TextBox8 = .Cells(iRow, 9)
        TextBox9 = .Cells(iRow, 10)
        TextBox10 = .Cells(iRow, 11)
        TextBox11 = .Cells(iRow, 12)
        TextBox12 = .Cells(iRow, 13)
    End With
    End Sub
    
    
    Private Sub ComboBox2_Change()
    iRow = ComboBox2.ListIndex + 2
    
    
    With Foglio3
        ComboBox1 = .Cells(iRow, 2)
        TextBox2 = .Cells(iRow, 3)
        TextBox3 = .Cells(iRow, 4)
        TextBox4 = .Cells(iRow, 5)
        TextBox5 = .Cells(iRow, 6)
        TextBox6 = .Cells(iRow, 7)
        TextBox7 = .Cells(iRow, 8)
        TextBox8 = .Cells(iRow, 9)
        TextBox9 = .Cells(iRow, 10)
        TextBox10 = .Cells(iRow, 11)
        TextBox11 = .Cells(iRow, 12)
        TextBox12 = .Cells(iRow, 13)
    End With
    
    
    End Sub
    
    
    Private Sub CommandButton1_Click()
    Unload Me
    End Sub
    
    
    Private Sub CommandButton2_Click()
    
    
    With Foglio3
         .Cells(iRow, 1) = TextBox1
         .Cells(iRow, 3) = TextBox2
         .Cells(iRow, 4) = TextBox3
         .Cells(iRow, 5) = TextBox4
         .Cells(iRow, 6) = TextBox5
         .Cells(iRow, 7) = TextBox6
         .Cells(iRow, 8) = TextBox7
         .Cells(iRow, 9) = TextBox8
         .Cells(iRow, 10) = TextBox9
         .Cells(iRow, 11) = TextBox10
         .Cells(iRow, 12) = TextBox11
         .Cells(iRow, 13) = TextBox12
    End With
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    Dim uRiga As Long, i As Long
    
    
    uRiga = Foglio3.Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To uRiga
        ComboBox1.AddItem Foglio3.Cells(i, 2)
        ComboBox2.AddItem Foglio3.Cells(i, 3)
    Next
    
    
    End Sub
    File Allegati File Allegati

  11. #10
    L'avatar di Teopaguz
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Villongo
    EtÓ
    25
    Messaggi
    9
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    1

    Re: Aiuto per VBA UserForm

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Ho sostituito una textbox con una combobox (ARTICOLO) e questa Ŕ la routine:
    Codice: 
    Dim iRow As Long
    
    
    Private Sub ComboBox1_Change()
    iRow = ComboBox1.ListIndex + 2
    
    
    With Foglio3
        ComboBox2 = .Cells(iRow, 3)
        TextBox2 = .Cells(iRow, 3)
        TextBox3 = .Cells(iRow, 4)
        TextBox4 = .Cells(iRow, 5)
        TextBox5 = .Cells(iRow, 6)
        TextBox6 = .Cells(iRow, 7)
        TextBox7 = .Cells(iRow, 8)
        TextBox8 = .Cells(iRow, 9)
        TextBox9 = .Cells(iRow, 10)
        TextBox10 = .Cells(iRow, 11)
        TextBox11 = .Cells(iRow, 12)
        TextBox12 = .Cells(iRow, 13)
    End With
    End Sub
    
    
    Private Sub ComboBox2_Change()
    iRow = ComboBox2.ListIndex + 2
    
    
    With Foglio3
        ComboBox1 = .Cells(iRow, 2)
        TextBox2 = .Cells(iRow, 3)
        TextBox3 = .Cells(iRow, 4)
        TextBox4 = .Cells(iRow, 5)
        TextBox5 = .Cells(iRow, 6)
        TextBox6 = .Cells(iRow, 7)
        TextBox7 = .Cells(iRow, 8)
        TextBox8 = .Cells(iRow, 9)
        TextBox9 = .Cells(iRow, 10)
        TextBox10 = .Cells(iRow, 11)
        TextBox11 = .Cells(iRow, 12)
        TextBox12 = .Cells(iRow, 13)
    End With
    
    
    End Sub
    
    
    Private Sub CommandButton1_Click()
    Unload Me
    End Sub
    
    
    Private Sub CommandButton2_Click()
    
    
    With Foglio3
         .Cells(iRow, 1) = TextBox1
         .Cells(iRow, 3) = TextBox2
         .Cells(iRow, 4) = TextBox3
         .Cells(iRow, 5) = TextBox4
         .Cells(iRow, 6) = TextBox5
         .Cells(iRow, 7) = TextBox6
         .Cells(iRow, 8) = TextBox7
         .Cells(iRow, 9) = TextBox8
         .Cells(iRow, 10) = TextBox9
         .Cells(iRow, 11) = TextBox10
         .Cells(iRow, 12) = TextBox11
         .Cells(iRow, 13) = TextBox12
    End With
    
    
    End Sub
    
    
    Private Sub UserForm_Initialize()
    Dim uRiga As Long, i As Long
    
    
    uRiga = Foglio3.Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To uRiga
        ComboBox1.AddItem Foglio3.Cells(i, 2)
        ComboBox2.AddItem Foglio3.Cells(i, 3)
    Next
    
    
    End Sub
    Fantastico grazie mille :286:

  12. #11

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    LocalitÓ
    Cosenza
    EtÓ
    45
    Messaggi
    2815
    Versione Office
    Excel 2013
    Likes ricevuti
    1024
    Likes dati
    982

    Re: Aiuto per VBA UserForm

    Se hai risolto il problema, segna questa discussione come "RISOLTO".
    Vai sul men¨ "Strumenti Discussione" (all'inizio del thread) e scegli la voce "Segna questo thread come risolto...".

  13. #12
    L'avatar di Teopaguz
    Clicca e Apri
    Data Registrazione
    May 2016
    LocalitÓ
    Villongo
    EtÓ
    25
    Messaggi
    9
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    1

    Re: Aiuto per VBA UserForm

    Citazione Originariamente Scritto da Rubik72 Visualizza Messaggio
    Se hai risolto il problema, segna questa discussione come "RISOLTO".
    Vai sul men¨ "Strumenti Discussione" (all'inizio del thread) e scegli la voce "Segna questo thread come risolto...".

    Ho quasi risolto, nel senso che non vorrei aprire un thread nuovo per ogni piccola richiesta per migliorare il mio userform.....e questa vi giuro che sarÓ l'ultima.....
    Grazie al vostro aiuto sono arrivato a creare questo file, l'ultima piccola cosa che mi servirebbe sarebbe avere sempre in vista l'ultimo articolo caricato. Vorrei semplicemente che nella prima userform che si apre dal foglio "DATI" nelle textbox a destra mi compaiano i dati contenuti nell'ultima riga compilata del foglio "MAGAZZINO". Ho provato ad utilizzare end xlup per ogni textbox ma non Ŕ possibile perchŔ alcune delle celle nell'ultima riga compilata potrebbero essere vuote. L'unica cella che Ŕ sempre piena e che quindi secondo me si puo usare come indice Ŕ quella nella colonna B. Spero di essermi spiegato. Grazie a ognuno di voi per i preziosi consigli!
    File Allegati File Allegati

Discussioni Simili

  1. [Risolto] Aiuto scadenziario
    Di Andrea85 nel forum Domande su Excel in generale
    Risposte: 31
    Ultimo Messaggio: 28/11/16, 19:14
  2. aiuto ;)
    Di angelixa nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 10/10/16, 16:52
  3. Aiuto...
    Di cippy nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 07/04/16, 22:42
  4. aiuto per tabella
    Di ioio nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 07/03/16, 17:45
  5. uso del cerca.vert
    Di barbatos nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 26/11/15, 16:57

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
  •