Timesheet VBA

[andycrowh]

Hi there,

I am currently working on a timesheet and need it to do the below before I can send to colleagues to use:

- Column A reads the date in Column B and shows it as a day =TEXT(B9,"dddd") - what would I add that if the cell in Column B is empty nothing shows
- I have a command button that when clicked I want A1:G64 to save as PDF and ask the user where they would like it saved, the name of the PDF file needs to be "B5 Timesheet D7 to F7"

When users fill out the Userform it places a From and To date in the spreadsheet, I want Column B from B9 to populate all dates from the from date to the to date.

Please help

 

[dmt32]

hi,
something like this maybe

    Dim FromDate        As Date, ToDate As Date
    Dim NoDays          As Long
   
    FromDate = DateValue(Me.TextBox1.Value)
    ToDate = DateValue(Me.TextBox2.Value)

    NoDays = ToDate - FromDate + 1
   
    With Range("B9")
        .Value = FromDate
        .Resize(NoDays).DataSeries Rowcol:=xlColumns, Type:=xlChronological, _
                                   Date:=xlDay, Step:=1, Stop:=ToDate, Trend:=False
    End With

Adapt code to meet specific project need as required

Dave