VBA code to copy value from user input to other sheet

[hendyhellen]

Hello all~

Since i found this forum really helpful for learning and troubleshooting VBA code for newbie like me.
I need more help to create small VBA code that able to copy value from Sheet Label -> Cell A4 COPY TO Sheet Data -> Insert row based on every time user scan the barcode

File : Scanning-LABEL

Here is the illustration from what i want it :
This red box based on user input from TextBox1

After that, i need to copy the value from that part to Sheet Data on Row A2 and below (automatically insert new row)

Sorry for my bad English
Thank you all, appreciate for the help

 

[Herakles]

Will this work.

Private Sub subTransfarData()
Dim Ws As Worksheet

    Set Ws = Worksheets("Label")
    
    With Worksheets("Data").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 4)
        .Value = Array(Ws.Cells(4, 1).Value, Ws.Cells(11, 1).Value, Ws.Cells(12, 1).Value, Ws.Cells(13, 1).Value)
    End With
        
End Sub

 

[hendyhellen]

Hello Herakles,
I have put the code on new module and nothing happened / maybe i make something wrong when put the code ?

Will this work.

Private Sub subTransfarData()
Dim Ws As Worksheet

    Set Ws = Worksheets("Label")
   
    With Worksheets("Data").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(1, 4)
        .Value = Array(Ws.Cells(4, 1).Value, Ws.Cells(11, 1).Value, Ws.Cells(12, 1).Value, Ws.Cells(13, 1).Value)
    End With
       
End Sub

 

[Herakles]

Hello Herakles,
I have put the code on new module and nothing happened / maybe i make something wrong when put the code ?

View attachment 96234

Did you run the code?

 

[hendyhellen]

Oh sorry,
Yes the code working

But is there any option to make the code run automatically when workbooks open and copy the value to other sheet in realtime ?

Thank you~

Did you run the code?

 

[Herakles]

Oh sorry,
Yes the code working

But is there any option to make the code run automatically when workbooks open and copy the value to other sheet in realtime ?

Thank you~

Of course but will the data in 'Labels' not be changed whist you have the workbook open?

Put this code in the Thisworkbook Code Module.

Notice that I have corrected the name of the procedure.

Private Sub Workbook_Open()

    Call subTransferData

End Sub

 

[hendyhellen]

Thank you so much Herakles, this code now working 100%

Thread closed now

Of course but will the data in 'Labels' not be changed whist you have the workbook open?

Put this code in the Thisworkbook Code Module.

Notice that I have corrected the name of the procedure.

Private Sub Workbook_Open()

    Call subTransferData

End Sub