Spostare righe di una tabella in un altro foglio



  • Spostare righe di una tabella in un altro foglio di DJT (utente non iscritto) data: 20/12/2016 19:37:49

    Salve a tutti, ho provato a cercare online questa funzione ma non ne vengo a capo.
    Sto gestendo un magazzino in excel, quello che vorrei realizzare riguarda la parte delle spedizioni.

    Mi ritrovo un file excel con 2 fogli, STOCK, SPEDITE,
    ho creato UNA TABELLA contenenti le informazioni del prodotto quantitativo ecc disposte su RIGHE

    Vorrei fare in modo che quando un prodotto parte dal magazzino attraverso un pulsante, sposto questi dati contenuti nella riga della tabella STOCK in un altro foglio (dello stesso file) chiamato SPEDITE dove praticamente mi va a creare il database di ciò che ho spedito, magari se una cassa con degli oggetti mi ritorna indietro di poterla rimetterla dal foglio STOCK.

    Dite che è possibile? Sapete indicarmi un link su cui posso studiarmi questa funzione per poterla realizzare?

    Grazie mille


  • di alfrimpa data: 20/12/2016 20:16:24

    Ciao DJT

    Allega un file di esempio con pochi dati, spiegazioni e risultato desiderato.

    Quello che hai chiesto si fa con le macro che sono un insieme di istruzioni scritto in un linguaggio di programmazione denominato Visual Basic for Application incorporato in Excel e nelle altre applicazioni Office.

    Alfredo


  • File allegato di DJT (utente non iscritto) data: 20/12/2016 21:18:46

    Mi sono dimenticato di precisare che il file che utilizzo nel pc del lavoro contiene e funziona con delle macro, quindi la reale estensione è xlsm e non quella dell'esempio che ho inviato ora. Spero sia chiara la spiegazione che ho inserito nel file, rimango a disposizione per chiarimenti.


  • di patel data: 21/12/2016 09:21:46

    prova queste
     
    Sub immagazzina()
    r = Selection.Row
    LR = Sheets("STOCK").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Selection.Cut Sheets("STOCK").Cells(LR, 1)
    Rows(r).Delete
    End Sub
    
    Sub spedisci()
    r = Selection.Row
    LR = Sheets("SPEDITO").Cells(Rows.Count, "A").End(xlUp).Row + 1
    Selection.Cut Sheets("SPEDITO").Cells(LR, 1)
    Rows(r).Delete
    End Sub


  • Funziona di DJT (utente non iscritto) data: 21/12/2016 15:59:57

    Grazie mille, funziona alla grande era proprio ciò che mi serviva, ora il file è già piu gestibile.

    Ho notato che ogni volta che mi crea una nuova riga (dopo aver spostato la riga in un altro foglio), in alcune celle non viene ricreato il bordo, come posso risolvere la cosa?

    In ogni caso grazie comunque per la soluzione