Helping in Excel sheet 2013

Question

I have sheet for (4 shifts)
 i wanna make roster depend on date,  the roster as follow
when i put starting day it makes fill automatically as the previous picture from starting date of month and ending of the same month and when i put another dates it make it as the same mechanism  .. i wish you help me in this issue and also if you wanna
me to attach the file or give me the hint to solve the problem using excel vba 2013.
another help: i have also day duty shift they attend all the week (M) except Friday and Saturday are (O)

Answer 1

Hi Ahmed,
We could get the last used row and column through End method, then we could get the last empty cell and set the values to the empty cell (start from the last empty cell).
Simple code:
Sub LastRowWithData_xlUp_1()
'use End(xlUp) to determine Last Row with Data, in one column (column B)
Dim lastRow As Long
'Rows.count returns the last row of the worksheet (which in Excel 2007 is 1,048,576); Cells(Rows.count, "B") returns the cell B1048576, ie. last cell in column B, and the code starts from this cell moving upwards; the code is bascially executing Range("B1048576").End(xlUp), and Range("B1048576").End(xlUp).Row finally returns the last row number.
lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
MsgBox lastRow
End Sub
Sub LastColumnWithData_xlToLeft()
'use End(xlToLeft) to determine Last Column with Data, in one row (row number 2)
Dim lastColumn As Integer
lastColumn = ActiveSheet.Cells(3, Columns.Count).End(xlToLeft).Column
MsgBox lastColumn
End Sub
To get the weekday, we could use WeekDay function, for example:
Dim LWeekday As Integer
LWeekday = Weekday("3/27/2015", vbSunday)
I suggest that you could try to achieve that, if you have the issues, you could post here if they are related to original issue or open the new threads.
Regards
Starain
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.