Button to add data to different sheet

[jepakc]

Hello! I'm very new to VBA and stuff like this. I have sheet named "component list" and second sheet named "finished product". I have button on "component list" sheet and i hope anytime i push the button it would generate serial number to the "finished product" sheet on column A and add current date to column B. I have headings in A1 and B1. The serial number can be as basic as "001, 002, 003 ...". I have been trying different things but i'm stuck with this so any help will be much appreciated!

 

[My Aswer Is This]

This script will ask for the serial number you want since you did not explain how to know what the serial number would be. And the script adds the data to a sheet named: "finished product"
Put this script in your button.

Sub My_Script()
'Modified 4/3/2022  11:34:27 PM  EDT
Application.ScreenUpdating = False
Dim ans As String
ans = InputBox("Enter your serial number")
Dim Lastrow As Long
Lastrow = Sheets("finished product").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("finished product").Cells(Lastrow, 1).Value = ans
Sheets("finished product").Cells(Lastrow, 2).Value = Date
Application.ScreenUpdating = True
End Sub

 

[jepakc]

This script will ask for the serial number you want since you did not explain how to know what the serial number would be. And the script adds the data to a sheet named: "finished product"
Put this script in your button.

Sub My_Script()
'Modified 4/3/2022  11:34:27 PM  EDT
Application.ScreenUpdating = False
Dim ans As String
ans = InputBox("Enter your serial number")
Dim Lastrow As Long
Lastrow = Sheets("finished product").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("finished product").Cells(Lastrow, 1).Value = ans
Sheets("finished product").Cells(Lastrow, 2).Value = Date
Application.ScreenUpdating = True
End Sub

Thank you very much, it works! I will try to modify the serial number specification part when i know the exact serial number format.