Lettura barcode e ricerca

Hai un problema con Excel?

Nuova discussione

Lettura barcode e ricerca
di Alessio (utente non iscritto) data: 08/05/2011
Salve,
ho sviluppato una procedura in exel che tramite un evento sul commandbutton all'interno di un form cerca un determinato valore e ne visualizza i dati all'interno del form stesso.
attivando la textbox da cui prendere il dato da ricercare, al momento per eseguire il codice ho usato l'evento commandbutton, ma volevo poter ometterlo e quando viene letto tramite lettore un barcode, l'esecuzione del codice parta in automatico.

premetto che sono tutti valori numerici ed il barcode è il classico a 13 numeri.

in poche parole volevo che una volta aperto il form e sparato sul barcode il codice partisse senza l'uso successivo del commanbutton.
Lettura barcode e ricerca
di Alessio (utente non iscritto) data: 19/05/2011
Salve di nuovo,
come faccio a fare il controllo su una textbox e quando risulta di n. 13 numeri mi si avvia automaticamente?????????

Lettura barcode e ricerca
di Alessio (utente non iscritto) data: 03/06/2011
Praticamente vi ho postato il codice che deve partire una volta che ha controllato che nella textbox8 c siano 13 caratteri numerici.
tutto questo xchè praticamente per come uso la procedura adesso, si apre la userform ho il setfocus sulla textbox8, leggo con il lettore il codice a barre (quindi i 13 carattri vengono immessi automaticamente da lettore), a quel punto deve partire tutta la procedura da codice sopra riportata.

grazie

If TextBox8.Value = "" Then
MsgBox "INSERIRE N. codice"
TextBox8.SetFocus
Exit Sub
End If

Sheets("Fogliox").Activate



Sheets("Fogliox").Select
trovacodice = Application.WorksheetFunction.CountIf(Range("AG9:AG20000"), TextBox8.Value)
If trovacodice <> 0 Then

Range("AG8").Select
Do
ActiveCell.Offset(1).Select
Loop Until ActiveCell.Value = UserForm4.TextBox8.Text
ActiveCell.Offset(0, -28).Select
X = ActiveCell.Address
cliente = ActiveCell.Value

ActiveCell.Offset(0, 4).Select
articolo = ActiveCell.Value

ActiveCell.Offset(0, 4).Select
colore = ActiveCell.Value

ActiveCell.Offset(0, 8).Select
j = ActiveCell.Value

ActiveCell.Offset(0, 2).Select
npezzi = ActiveCell.Value

ActiveCell.Offset(0, 8).Select
w = ActiveCell.Value

ActiveCell.Offset(0, -4).Select
z = ActiveCell.Value

ActiveCell.Offset(0, 4).Select
Taglia = ActiveCell.Value
Y = ActiveCell.Address
Taglia = ActiveSheet.Name
'Range(X & ":" & Y).Select
'Selection.Cut
UserForm4.TextBox1 = cliente
UserForm4.TextBox2 = articolo
UserForm4.TextBox3 = colore
'UserForm4.TextBox9 = j
UserForm4.TextBox5 = npezzi
UserForm4.TextBox6 = w
UserForm4.TextBox7 = z
'UserForm4.TextBox10 = Taglia
UserForm1.Show

TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
'TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
'TextBox9.Value = ""
'TextBox10.Value = ""
Range("A1").Select

    
 
Else

'att = att + 1  'si incrementa un numeratore di una unità ad ogni foglio scorso
If trovacodice = 0 Then 'quando il numero dei fogli coincide con i fogli totali meno quelli esclusi dalla ricerca scrivi
MsgBox "Cartello non trovato o codice errato. Controllare il numero e riprovare"
    
    End If
        End If
        

Sheets("fogliox").Select
Range("Aa3").Select

Vuoi Approfondire?