Too few columns

  • Thread starter Thread starter Bilbo
  • Start date Start date
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 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)
 
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
 
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
 
Back
Top