Too few columns

B

Bilbo

Hi - I am trying to put together a year planner with one
column per day, but have hit the limit of 256 columns -
110 columns too few.
I have tried arranging the planner the other way, ie one
row per day but it is not very user-friendly.
Is there any way around the maximum number of columns?
I have also tried splitting the year into 2 6-month
calendars, but have hit major problems with linking
information from one to the other.
Any help would be much appreciated.
Happy new year to all

Bilbo
 
B

Bob Phillips

B ilbo,

Why not have 1 sheet per month, then 1 column per day?

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
P

Peter Atherton

Bilbo

Why not enter the dates without weekends?

this will prompt for a start date and fill in woorkdays
Mon to Fri

Sub FillDates()
Dim d, temp, dy
Dim num As Integer

d = InputBox("enter the first date", "Get First
Date", "1/1/04")
Cells(1, 1) = d

For j = 2 To 256

If Weekday(Cells(1, j - 1)) = 6 Then
num = 3
Cells(1, j) = Cells(1, j - 1) + num
Else
num = 1
Cells(1, j) = Cells(1, j - 1) + num
End If
Next j

End Sub

Regards
Peter
 
P

Peter Atherton

Bilbo

Sorry a mistake with the last code. Revised code is:

Sub FillWorkdays()
Dim d, temp, dy
Dim num As Integer
Range(Cells(1, 1), Cells(1, 256)).ClearContents
d = InputBox("enter the first date", "Get First
Date", "01/02/04")
Cells(1, 1).Value = d

For j = 2 To 256

If Weekday(Cells(1, j - 1)) = 6 Then
num = 3
Cells(1, j) = Cells(1, j - 1) + num
Else
num = 1
Cells(1, j) = Cells(1, j - 1) + num
End If
Next j

End Sub

Regards
Peter
 
Top