vba to copy a date and paste it in specific cell of another sheet

[Tet Htut Naing]

Hi,
I need help for my problem.
I am handling staff daily record and other informations. For now, I have to record daily arrival time of each staff (total 200 staff). The staff who arrive after 9:30 will be recorded as "late". But here there will be two different kind of late- personal late (recorded as pl) and on duty late (recorded as odl). In a sheet, I would record the time of his/her arrival time in colum 4 and in colum 5 write the kinds of late as pl or odl, if he/she arrived after 9:30. So, two colum will be used for one specific day with mention of a date in row 2 by merging colum 4 and 5 of row 2. Date format is 14- Feb- 15. So, colum 6 and 7 will be for 15-Feb-15 and so on. Colum 1 is Serial number, col 2 for rank grade and colum 3 the name of the staff.
What I want to do is that
If I enter pl or odl in a cell of Row 4 Colum 5, then run a macro to copy 14 from 14-Feb-15 and paste that number in a cell of another sheet.
Again, if I enter another pl or odl in Row 4 Col 7 for the same staff, then copy 15 out of 15-Feb-15 and paste that number in the same cell mentioned above (it will become 14, 15).
By doing so, I can easily check how many late on which days occur to the staff within a cell.
May I apologize unless it is possible.
If possible, please help me.
[email protected]
Htut

[skywriter]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.
Remember to desensitize the data.

ViewPic

[Tet Htut Naing]

Thanks for your kindly reply,
I live in Myanmar and so bad internet. That's why I could not reply to you immediately.

Ok, I will attach a workbook. In Leave & Late Rec Sheet, there will be other leave records of a month for each staff. The number 13 in Casual Leave Column and 17,18 in Annual Leave Column is meant for the date of August Month. This is the way I want to see for "Date of Attending Office Late" Column.
If I enter pl or old in the Remark columns of "Off Time Rec" Sheet, then run a macro/vba to pick up the date above respective remark column and paste it in "Date of Attending Office Late" Column of Leave & Late Rec Sheet.

[skywriter]

Your data would be very difficult to deal with for my skill level. You have merged cells which cause issues and you only have numbers 1,3 for example for the date and the word August in a cell that's merged. The way your sheet is formatted it's difficult for me to imagine how to deal with it.

Perhaps someone else has some ideas. I apologize.

Good Luck.

[Tet Htut Naing]

Hello Skywriter,
Thanks for your quick response.
I am thinking now - what if I unmerged those cells.
Is there any other ways to solve this?
How about only date in those previously merged cells (after being unmerged, there will be two separate cells and I can input numbers only in those two cells)
For example, 14 will be replaced, in place of 14-Aug-15 - removed Aug and 15.

I am not a guru on VBA/Macro.
I think it is possible if I put 14 only into those two cells.
I imagine a command like,
if pl or odl is typed in a cell of row 5, col 4, then check for the staff or something else that is constant, and copy the specific cell (14 containg cell).
Again, check the same staff in destination sheet and paste 14 with comma. Because for each and every month, the columns are constant.
You may understand what I would like to mean - my english is bad as I live in Myanmar.
Thanks