pick calendar date and day

[hlock]

I've figured out how to add a calendar control to my excel 2007 spreadsheet.
For example, when I click in cell F8, the calendar appears, I click on a
November 11, the date of 11/11/08 gets entered into cell F8, and the calendar
disappears. It works great. However, what I would like to be able to set up
is when the person clicks on November 11, the date of November gets entered
into cell F8 AND the corresponding weekday (in this case, Tuesday) gets
automatically entered into the cell above, F7.

The calendar control is set up for a range of cells: F8:L8. I would want
the weekdays set up to be entered into the range of cells: F7:L8. Is this
possible? Thanks.

 

[NoodNutt]

G'day

Try this:


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F8:L8")) Is Nothing Then

If DTPicker1.Visible Then DTPicker1.Visible = False

End If

If Not Intersect(Target, Range("F8:L8")) Is Nothing Then

With ActiveCell
.Offset(0, -1).Value = Target.Value
End With

End If
End Sub

Format Cells F7:L7 as Custom "ddd" for eg Mon, Tue, Wed, etc.......
Format Cells F7:L7 as Custom "dddd" for eg Monday, Tueday, etc.......

(Remove quotes from ddd & dddd)

HTH
Mark.

 

[Rick Rothstein]

I think this worksheet Change event code will do what you want...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Long
If Target.Address = "$F$8" Then
Target.Offset(-1).Value = Format(Target.Value, "dddd")
For X = 1 To 6
Target.Offset(, X).Value = Target.Value + X
Target.Offset(-1, X).Value = Format(Target.Value + X, "dddd")
Next
End If
End Sub

The "dddd" argument in the two Format statements makes the function return
the fully spelled out day name; if you wanted the abbreviated day name, then
just change the "dddd" to "ddd".

 

[hlock]

Thank you. This is sort of what I was looking for. However, I want each
date/day to be independent of each other. When someone fills in F8 with a
date (and thus the day in F7), I don't want the rest of the range to be
automatically filled in. For example, I pick Oct 15 for F8, Oct 30 for G8
and Nov 4 for H8. Then F7 would automatically fill in with Wednesday, G7
would fill in with Thursday and H7 would fill in with Tuesday. Thanks!!

 

[Rick Rothstein]

Then try this worksheet Change event code instead...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F8:L8")) Is Nothing Then
Target.Offset(-1).Value = Format(Target.Value, "did")
End If
End Sub

 

[hlock]

Perfect. Thank you!

Then try this worksheet Change event code instead...

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F8:L8")) Is Nothing Then
Target.Offset(-1).Value = Format(Target.Value, "did")
End If
End Sub

 

[Rick Rothstein]

You are welcome. I guess you picked up on the "did" instead of "dddd" typo?