Autopopulate cell with list of data

[Hansni]

Hi I have Spreadsheet with list of Employee name and working hours. I have created template for timesheet.

A B
Employee



D
List of Employee
Amesh
Sara
Monika
Nawab


I want B1 cell show me D2(List of Employee one at time )and auto select D3, than D4

Please Help

[JOHN H. DAVIS]

Would something like this help?

Please Login or Register  to view this content.

[Hansni]

Hi John

It really worked than you for your help. However If I have data in D2, E2 as same list and in one macro button which is next i want to put into B1 & C1.

Secondly what Macro I need to do to get prevoius record

Regards
Hansni

[JOHN H. DAVIS]

Do you mean like this? Not sure I understand.

Please Login or Register  to view this content.

[Hansni]

That's Fine John, I got the solution thank you.
Is there any way to copy Macro's result from one sheet to another regardless the result changes every time when run the macro but the result pasted in another sheet that kept same place and paste new result in next row

Regards
Hansni

[JOHN H. DAVIS]

Maybe?

Please Login or Register  to view this content.

[Hansni]

Hi John
I have below mentioned Macro suggested by you and it is working well nothing wrong. But now I have data like in E against each employee name their normal working hours and sick leave in F. I macro code given by you which is copying data from lis and pasting in relevent place. Because it rotate list if one employee has anything against it blank it just rotate other staff detail to blank. How i can fix it. Please help
Sub Hansni()

Range("B1") = Range("D2")

Range("D2").Cut Range("D" & Rows.Count).End(3)(2)
Range("D2").Delete xlUp

End Sub