inserting date

[paul_pearson]

I enter a date into C4 (always a Monday).Is there a formula or VBA Code which then inserts daily dates from Monday to Friday into the following cells...C4:C8 (dates 17/6/2013 to 21/6/2013) , C12:C16 (dates 24/6/2013 to 28/6/2013) etc,,,etc,, with dates to 21/12/2013

No weekend dates required only Monday to Friday

Thanks

Paul

 

[MARK858]

Right click the bottom right corner of cell C4,drag across the cells, select fill weekdays from the dropdown list

Edit: Sorry poor reading skills.Please ignore. didn't notice the gap in the data

 

[Vidar]

Or with a formula. If you have the start date in C4, then in C5 use this formula and drag to copy down.
It will leave 3 empty rows between every week:
=IF(MOD(ROW()-4,8)=0,INDIRECT("C"&ROW()-4)+3,IF(MOD(ROW()-4,8)>4,"",C4+1))

 

[paul_pearson]

Excellent
Could this also be achieved with VBA code.Works greatr and I could use a button to insert
Thanks again
Paul

 

[paul_pearson]

I would use a button to insert the dates but would also need a button to delete the dates but this would need a password so as the dates cannot be deleted
Thanks again

 

[paul_pearson]

Could this be achieved with VBA?Thanks

 

[galt13]

Would this work for you?

Sub weekday_calendar()

Dim roffset As Integer

Dim datecount As Date

roffset = 1

Cells(4, 3).Activate

If Weekday(Cells(4, 3), vbMonday) <> 1 Then
    MsgBox "Cell C4 must contain the date of a Monday"
    Exit Sub
End If

datecount = Cells(4, 3).Value

While Year(datecount) = Year(Cells(4, 3))

    If roffset > 4 Then
        
        roffset = roffset + 3
        ActiveCell.Offset(roffset).Activate
        datecount = datecount + 2
        roffset = 0
    End If
    
    datecount = datecount + 1
    
    If Year(datecount) = Year(Cells(4, 3)) Then
        ActiveCell.Offset(roffset).Value = datecount
    End If
    
    roffset = roffset + 1
    
Wend
    
    
End Sub

 

[paul_pearson]

Hi Galt13
.
Works great

Is it possible to add a delete button for removing the dates but with password protection so that the dates can only be deleted by me

Thanks

 

[galt13]

Glad I could help.

 

[paul_pearson]

Hi Galt13
.
Is it possible to add a delete button for removing the dates but with password protection so that the dates can only be deleted by me

Also in B4:B9 (merged cells) , B12:B17 (merged cells) etc..etc.. I have the weeknumber....could this be incorporated into the code as well....it would insert along with the dates

Thanks