| | Post: 1 | Registrato il: 12/11/2019
| Età: 44 | Utente Junior | excel 2016 | | OFFLINE | |
|
12/11/2019 10:35 | |
buongiorno a tutti, sono nuovo nel forum, e scrivo per un aiuto, premetto che ho già fatto molte ricerche senza risultato e che non sono un esperto programmatore, anzi l'unico linguaggio che conosco è il python.
la mia richiesta è semplice, dovrei creare una sorta di inventario con codici a barre (diversi per ogni materiale) che alla lettura del codice a barre stampato ricerchi in automatico la cella excel al quale è collegato.
Esempio La cella A1 è "collagata" al codice a barre "123abc", ora io tramite lettore sparando la lettura sul cartellino stampato (riportante il codice a barre "123abc") deve selezionare la cella A1 senza che stampi di nuovo il codice.
è fattibile come cosa?
grazie in anticipo per l'aiuto |
|
| | Post: 3.531 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
12/11/2019 10:52 | |
Buona giornata, @ilgrabbo. @ilgrabbo, scrive:
... la mia richiesta è semplice, dovrei creare una sorta di inventario con codici a barre (diversi per ogni materiale) che alla lettura del codice a barre stampato ricerchi in automatico la cella excel al quale è collegato. Esempio La cella A1 è "collagata" al codice a barre "123abc", ora io tramite lettore sparando la lettura sul cartellino stampato (riportante il codice a barre "123abc") deve selezionare la cella A1 senza che stampi di nuovo il codice. è fattibile come cosa? ...
Direi che è possibile, se non ricordo male è però necessario: - Selezionare manualmente la Cella nella quale inserire il Codice a barre A disposizione. Buon Lavoro. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 1 | Registrato il: 12/11/2019
| Età: 44 | Utente Junior | excel 2016 | | OFFLINE | |
|
12/11/2019 10:57 | |
no, io non voglio che nella cella venga scritto il codice a barre, quello lo so.
io intendo assegnare a priori un codice a barre ad una determinata cella e voglio quando leggo lo stesso codice su un cartellino cartellino stampato venga selezionata in automatico la cella con il medesimo codice a barre senza che scriva o faccia altro.
|
| | Post: 2.195 | Registrato il: 21/03/2008
| Città: LOCATE VARESINO | Età: 76 | Utente Veteran | 2007 / 13 | | OFFLINE | |
|
12/11/2019 12:14 | |
ciao
non avendo a disposizione un lettore, non posso provare, ma mi sembra che questi deve sempre puntare ad una cella, dopo con VBA
Worksheet Change() intercetti il cambio di valore alla cella e fai la ricerca.
esiste un altro metodo , che io utilizzo per trasponder, un ActiveX di terze parti , da installare sul PC e utilizzare sempre con VBA
PS non so se funziona anche con un lettore, comunque spiegando in parole povere questi intercetta il segnale e lo passa ad una variabile, e in questo modo puoi fare la ricerca del dato
il suo nome e' ( StrokeReader ) e' a pagamento e mi sembra 10€ per una licenza
puoi scaricarti dal sito i manuali per il suo utilizzo
Ciao da locate
excel 2007 / 13 |
| | Post: 889 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Senior | Excel 2016-32bit Win11 | | OFFLINE |
|
12/11/2019 22:58 | |
Un saluto a tutti.
Se vuoi provare con questa mia macro, come base di partenza, ti allego anche un file di esempio.
In pratica: prima di tutto bisogna avere/creare una tabella in cui vi sia l'elenco di tutti i codice ed a fianco indicato la cella destinazione corrispondente.
Una volta posizionati in una qualsiasi cella, anche già compilata, del foglio in cui vanno selezionate le celle corrispondenti all'articolo barcode letto, basta leggere il codice con il lettore. La cella dov'è posizionato il cursore verrà ovviamente sovrascritta ma sarà la macro stessa a provvedere a rimettere tutto come prima; modificando la macro si può dedicare un'apposita cella come destinazione della lettura.
Questa è la macro da mettere nel modulo VBA foglio delle celle destinazione: Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim codice As String
Dim cerca As Range
Dim cella As Range
If Target.Count > 1 Then Exit Sub 'se ho selezionato più celle
codice = Target.Value
If codice <> "" Then
With Sheets("Tabella")
'cerca il codice letto nella tabella
Set cerca = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Find(codice, LookAt:=xlWhole)
With Application
.EnableEvents = False
.Undo 'ripristina valore cella
.EnableEvents = True
End With
If cerca Is Nothing Then 'se non c'è il codice
MsgBox codice & " non è presente nella tabella."
Else
Set cella = cerca.Offset(0, 1) 'ricava la cella corrispondente
Range(cella).Select 'posizionati nella cella corrispondente
Beep 'emetti un beep di conferma
End If
End With
End If
End Sub [Modificato da rollis13 12/11/2019 23:18]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 5.774 | Registrato il: 14/11/2004
| Utente Master | Office 2019 | | OFFLINE |
|
13/11/2019 10:41 | |
Ciao se fai una ricerca trovi molte discussioni sull'argomento, prova questa dell'amico Scossa
https://www.freeforumzone.com/d/10655423/-/discussione.aspx
Ciao By Sal [Modificato da by sal 13/11/2019 10:41] se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui |
|
|