Forum di Excel e VBA, per condividere esperienze e risolvere problemi su: Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.
A capo automatico di Marco (utente non iscritto) data: 30/01/2014 10:30:45
Buongiorno a tutti, sto provando a costruirmi un piccolo file di calcolo che mi consenta di gestire il magazzino.
Ho un lettore di codice a barre USB, posizionando il cursore nella cella e scansionando il codice con la pistola ottengo un numero nella cella. Per passare al secondo prodotto devo nuovamente spostare il cursore affinchè lui mi restituisca il numero nella cella di sotto.
Io vorrei che in automatico, a partire dalla cella A1 tutti gli altri codici siano scritto in automatico nella cella A2 -A3 -A4 - An...
Sapete se è possibile fare questa cosa?
di LucaS. (utente non iscritto) data: 30/01/2014 10:49:58
Se il tuo problema è il dover selezionare la cella successiva prova con questo.
Agisce su tutta la colonna A
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(1, 0).Select
End If
End Sub
di patel data: 30/01/2014 10:54:15
prova questa da inserire nel modulo del foglio che utilizzi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Target.Offset(1).Select
End If
End Sub
di patel data: 30/01/2014 10:55:35
giuro che non ho copiato !
di Marco (utente non iscritto) data: 30/01/2014 11:00:38
Grazie lo provo appena arrivo in negozio e vi faccio sapere
di scossa (utente non iscritto) data: 30/01/2014 12:40:01
L'aggiunta di un carattere "a capo" dovrebbe essere un'impostazione programmabile nel lettore di codice a barre. Prova a leggere le sue istruzioni.
di Marco (utente non iscritto) data: 30/01/2014 18:14:23
Purtroppo le istruzioni non le ho poichè il lettore l ho "ereditato" dal vecchio gestore del negozio.
Il codice che mi avete passato funziona con la tastiera, solo ovviamente bisogna dare un ulteriore imput (tasto invio o spostarsi di cella con le freccette) per poter andare a capo.
Spero di poterlo provare questa sera e farvi sapere al più presto se fa quello che cerco.