Transfer Data to Specific Rows on another spreadsheet From User Form Inputs

[Julyna]

Hi, there,

I'm still quite new in this and struggling with a macro for staff data input. I have an input box on the first page and I want to save the first few inputs on the first page and next few on second page, but to match the record for the same person. I hope I was clear. Can you give a hand, please?

Here is my code:

Keyboard Shortcut: Ctrl+r
'
Dim Date_Input
Dim Date_Joined As Date


Range("Block_Start").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

ActiveCell = InputBox("Enter Surname", "Staff List")
If ActiveCell = "" Then End
ActiveCell.Offset(0, 1).Select

ActiveCell = InputBox("Enter Initials", "Staff List")
If ActiveCell = "" Then End
ActiveCell.Offset(0, 1).Select

ActiveCell = InputBox("Enter Department", "Staff List")
If ActiveCell = "" Then End
ActiveCell.Offset(0, 1).Select

ActiveCell = InputBox("Enter Phone Number", "Staff List")
If ActiveCell = "" Then End
ActiveCell.Offset(0, 1).Select


GetDate:
Date_Input = InputBox("Enter Date Joined", "Staff List")
'
' Solicit the date into Date_input (Dim'ed As Variant)
' Validate Date_Input to contain a valid date value
' Move Date_Input into Date_Joined (Dim'ed as Date) to ensure value is treated as local (European) date
'
If Date_Input = "" Then End


If Not IsDate(Date_Input) Then GoTo GetDate
Date_Joined = Date_Input
ActiveCell = Date_Joined

ActiveCell.Offset(-1, 1).Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A2"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A2").Select
Range("A1").Select

ActiveCell = InputBox("Enter Home Address", "Staff List")
If ActiveCell = "" Then End
Worksheets("Sheet2").Activate
Cells.Offset(5, 2).Select


End Sub

Thank you in advance!

 

[dmt32]

Hi,
Which inputs do you want to distribute across sheet1 and which across sheet2?

Also, do you have a unique reference for each employee like employee no?

Dave

 

[Julyna]

Hi, Dave, thank you for your time
I would like to keep the home address and tel number on page 2, rest of all on page 1.
No, they don't have, I've just mirrored col A (Surname) and B (Initials) from page 1 to page 2, so the records on each row should be for the same person
Thanks a lot!

 

[dmt32]

Hi,
should be possible - will have a look further when have some free time.

Dave

 

[dmt32]

Hi,
just to confirm

Sheet1 "Surname", "Initials", "Department", "Date Joined"

Sheet2 "Surname", "Initials" "Home Address", "Phone Number"

Also, code you have is for an InputBox not a Userform you mention in the title of your post.

Inputbox is a lot simpler & can be made to do what you want but need to understand if this what you want?

Dave