In questo articolo imparerai come copiare i dati da un foglio all’altro utilizzando la funzione del foglio di lavoro.

Facci capire con un esempio:

Abbiamo 2 fogli di lavoro, ovvero il foglio dati e attività giornaliera conterrà le informazioni inserite. Fare riferimento all’istantanea sottostante

img1

Abbiamo bisogno di un codice che copierà i dati nel foglio delle attività quotidiane; tuttavia, mentre si incollano i dati, è necessario cercare in base alla colonna del numero ID e quindi incollare i dati in base al numero ID.

C’è un pulsante di invio che copierà i dati nel foglio delle attività quotidiane come segue

img2

Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic

img3

Fare clic su CommandButton Questo aprirà CommandButton1_Click Object Immettere il seguente codice nell’oggetto CommandButton1

Private Sub CommandButton1_Click ()

LR = Sheet2.Cells (Rows.Count, “A”). End (xlUp) .Row

i = Application.WorksheetFunction.Match (Sheet1.Range (“B1”), Sheet2.Range (“A2: A” & LR), 0) + 1

Sheet1.Range (“B2”). Copia

Sheet2.Range (“B” & i) .PasteSpecialxlValues ​​

Sheet1.Range (“B3”). Copia

Sheet2.Range (“C” & i) .PasteSpecialxlValues ​​

Application.CutCopyMode = False

End Sub

img4

Dopo aver fatto clic sul pulsante Invia nel foglio dati, i dati verranno copiati nel foglio delle attività quotidiane.

Quando si inseriscono le informazioni di vendita nella scheda tecnica e dopo aver fatto clic sul pulsante Invia, i dati verranno trasferiti alla scheda Attività giornaliera.

Istantanea della scheda Dati

img5

Per vedere il risultato nell’attività quotidiana, fare riferimento all’istantanea sottostante

img6

In questo modo possiamo copiare i dati da un foglio all’altro.