You could achieve this with macros.
For the numbers something like this
Code:
Sub Skip890()
Dim rng As Range
Dim cel As Range
Dim cNum As Long
'where ever you are putting the numbers
Set rng = Range("C3:C38")
'put the number you want to start at in cell A2
cNum = Range("A2").Value
For Each cel In rng
cel.Value = cNum
cNum = cNum + 1
If Right(cNum, 1) = 8 Then
cNum = cNum + 3
End If
Next cel
End Sub
maybe like this for the days
Code:
Sub SkipFriToSun()
Dim rng As Range
Dim cel As Range
Dim cDa As Date
'where ever you are putting the days
Set rng = Range("D3:D38")
'put the starting date in cell B2
cDa = Range("B2").Value
For Each cel In rng
'if the day is Friday add 3 days to get Monday
If Format(cDa, "ddd") = "Fri" Then
cDa = cDa + 3
End If
'format this how ever you want it displayed
cel.Value = Format(cDa, "Long Date")
'get ready for next day
cDa = cDa + 1
Next cel
End Sub
I put this code into the sheets module, hope it's of some use, just an idea.
Bookmarks