Discussione Domanda Vba(Excel "UserForm"Comportamento del tasto invio.)

may89

Utente Iron
3 Aprile 2022
11
5
5
13
Buona sera,
Ho creato un file excel con l'uso di VBA, ho messo al suo interno una UserForm Con una ricerca e delle caselle per inserire dei dati ma quando premo invio l'asticella ,quella che serve per scrivere non mi si sposta in ordine(Gruppo-Codice-Articolo-Quantità-Commessa-Fornitore).
Come faccio a ogni pressione del tasto invio a farla andare nella casella accanto?
Grazie
Codice:
'Punlsante reset
Private Sub cmdReset_Click()
Me.cboGruppo = ""
Me.txtCodice = ""
Me.txtArticolo = ""
Me.txtQuantita = ""
Me.txtCommessa = ""
Me.txtFornitore = ""
Me.cboGruppo.SetFocus
End Sub
'Condizioni
Private Sub cmdNuovo_Click()

 
If cboGruppo = "" Then
   MsgBox "Attenzione Inserire GRUPPO!", vbExclamation, "Avviso"
     cboGruppo.SetFocus
   Exit Sub
ElseIf txtCodice = "" Then
   MsgBox "Attenzione Inserire Codice!", vbExclamation, "Avviso"
   txtCodice.SetFocus
   Exit Sub
ElseIf txtArticolo = "" Then
   MsgBox "Attenzione Inserire Articolo!", vbExclamation, "Avviso"
   txtArticolo.SetFocus
   Exit Sub
ElseIf txtQuantita = "" Then
   MsgBox "Attenzione Inserire Quantità!", vbExclamation, "Avviso"
   txtQuantita.SetFocus
   Exit Sub
ElseIf txtCommessa = "" Then
   MsgBox "Attenzione Inserire Commessa!", vbExclamation, "Avviso"
   txtCommessa.SetFocus
   Exit Sub
ElseIf txtFornitore = "" Then
   MsgBox "Attenzione Inserire Fornitore!", vbExclamation, "Avviso"
   txtFornitore.SetFocus
   Exit Sub
 Exit Sub
 

Else
'Posizionamento Celle per dati
Worksheets(1).Range("B999999").End(xlUp).Offset(1).Select
ActiveCell.Value = cboGruppo
ActiveCell.Offset(0, 1).Value = txtCodice
ActiveCell.Offset(0, 2).Value = txtArticolo
ActiveCell.Offset(0, 3).Value = txtQuantita
ActiveCell.Offset(0, 4).Value = txtCommessa
ActiveCell.Offset(0, 5).Value = txtFornitore

'Richiamo reset alla dìfine dell'inserimento
Call cmdReset_Click
'Messaggio finale di fine inserimento
End If
MsgBox "Bravo/a hai inserito tutto correttamente ora riposati!", vbInformation, "Notifica"
Call ResetFiltroDopoInserimento
End Sub


Private Sub txtRicercaGruppo_Change()
  Range("B2").AutoFilter Field:=1, Criteria1:=txtRicercaGruppo.Text & "*"
If txtRicercaGruppo = "" Then
Selection.AutoFilter

End If

End Sub
Screenshot 2022-10-25 224015.png