A capo automatico



  • 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.