| | Post: 57 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
24/12/2020 08:56 | |
Buongiorno a tutti e un BUON NATALE
Nel mio file avrei bisogno del vostro aiuto mi servirebbe che quando apro userform1 (carico) e seleziono l'articolo nei campi Tipo Articolo e Macchine, se L'articolo e già presente mi inserisca i valori che sono già caricati in magazzino di conseguenza inserire solo la quantità, se invece l'articolo non presente inserisco con menu grazie |
|
| | Post: 25 | Registrato il: 15/11/2012
| Utente Junior | Excel 2019 | | OFFLINE |
|
26/12/2020 15:38 | |
Buon Pomeriggio, ho creato una macro qui:
Aggiunta Macro
Private Sub ComboBox2_Change()
art = ComboBox2.Text
Sheets("Magazzino").Activate
cr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 8 To cr
If art = Cells(i, 2) Then
quant = Cells(i, 4)
End If
Next i
txtArticolo.Text = quant
End Sub
Lanciando la userform del Carico, non appena inserisce l'articolo dal menu' a tendina, le comparirà in automatico la quantità se questa presente, altrimenti dovrà inserirla lei. Saluti |
| | Post: 57 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
26/12/2020 16:35 | |
buon pomeriggio goemon87ti ringrazio ma sicuramente ho fatto confusione quello che mi serviva era la compilazione nel userform
i campi TIPO ARTICOLO E MACCHINE e lasciare libero la quantità |
| | Post: 58 | Registrato il: 10/09/2017
| Città: CHIUSI DELLA VERNA | Età: 52 | Utente Junior | 2007/10 | | OFFLINE | |
|
26/12/2020 18:00 | |
BUONASERA goemon87 ti ringrazio per l'aiuto ho modificato la tua macro e funziona tutto grazie
Private Sub ComboBox2_Change()
art = ComboBox2.Text
Sheets("Magazzino").Activate
cr = Cells(Rows.Count, 2).End(xlUp).Row
For i = 8 To cr
If art = Cells(i, 2) Then
quant = Cells(i, 8)
ARTICOLO = Cells(i, 9)
End If
Next i
ComboBox4.Text = quant
ComboBox5.Text = ARTICOLO
End Sub |
| | Post: 26 | Registrato il: 15/11/2012
| Utente Junior | Excel 2019 | | OFFLINE |
|
26/12/2020 18:05 | |
Ok ottimo!!! :) Buona serata. [Modificato da goemon87 26/12/2020 18:06] |
|
|