help with code please
 

using cell addresses to create a date and enter the day of the weekends. the
code works but returns an error on feb 29. added the on error resume next, but
it still puts Sun in feb 29. can someone help?



For Each cell In Worksheets("Reports").Range("B4:M34")
On Error Resume Next

'this creates the date
wEndVal = cell.Column - 1 & "/" & cell.Row - 3 & "/" & _
Year(Worksheets("Reports").Range("f2").Value)

' this puts the day in the cell if it's a weekend
If Weekday(wEndVal, 2) 5 Then
cell.Value = Format(wEndVal, "ddd")
cell.HorizontalAlignment = xlCenter
cell.Font.Bold = True
End If

Next

--


Gary

Help with code please
 

Gary,

Add check for valid date:

If IsDate(wEndval) Then
' this puts the day in the cell if it's a weekend
If Weekday(wEndval, 2) 5 Then
cell.Value = Format(wEndval, "ddd")
cell.HorizontalAlignment = xlCenter
cell.Font.Bold = True
End If
End If

HTH

Help with code please
 

thanks.
i was going to try that, but when i looked for is functions in help. i didn't
see that. so i tried iserror and it didn't work right. i think i may have looked
in the wrong help, excel instead of vb.

thanks again

--


Gary


"Toppers" wrote in message
...
Gary,

Add check for valid date:

If IsDate(wEndval) Then
' this puts the day in the cell if it's a weekend
If Weekday(wEndval, 2) 5 Then
cell.Value = Format(wEndval, "ddd")
cell.HorizontalAlignment = xlCenter
cell.Font.Bold = True
End If
End If

HTH

Help with code please
 

ummm..... Weekday values are 1 for Sunday and 7 for Saturday...not "5"
--
stay smart..program!


"Gary Keramidas" wrote:

thanks.
i was going to try that, but when i looked for is functions in help. i didn't
see that. so i tried iserror and it didn't work right. i think i may have looked
in the wrong help, excel instead of vb.

thanks again

--


Gary


"Toppers" wrote in message
...
Gary,

Add check for valid date:

If IsDate(wEndval) Then
' this puts the day in the cell if it's a weekend
If Weekday(wEndval, 2) 5 Then
cell.Value = Format(wEndval, "ddd")
cell.HorizontalAlignment = xlCenter
cell.Font.Bold = True
End If
End If

HTH

Help with code please
 

the comma 2 tells it to start with monday as 1, tuesday as 2 and so on. so sat
is 6 and sunday is 7

If Weekday(wEndVal, 2)

--


Gary


"peteswansen" wrote in message
...
ummm..... Weekday values are 1 for Sunday and 7 for Saturday...not "5"
--
stay smart..program!


"Gary Keramidas" wrote:

thanks.
i was going to try that, but when i looked for is functions in help. i didn't
see that. so i tried iserror and it didn't work right. i think i may have
looked
in the wrong help, excel instead of vb.

thanks again

--


Gary


"Toppers" wrote in message
...
Gary,

Add check for valid date:

If IsDate(wEndval) Then
' this puts the day in the cell if it's a weekend
If Weekday(wEndval, 2) 5 Then
cell.Value = Format(wEndval, "ddd")
cell.HorizontalAlignment = xlCenter
cell.Font.Bold = True
End If
End If

HTH