Here I have a calendar where every day has 2 rows. In this example let say
that today's date is 1st January. I need that cell B2 (Highlight) will be
highlighted with any colour as I open the file and cell B3 (Details) remains
empty where I can put my details. Any help please?

Thanks in adnance.

A B C D E F
____________________________________________________
1 JAN FEB MAR APR MAY
____________________________________________________
2 1 Highlight
3 Details
_____________________________________________________
4 2
5
______________________________________________________
6 3
7
______________________________________________________
8 4
9
________________________________________________________

You conditional formatting formula for cell C2 is:

=DATE(YEAR(TODAY()),TEXT(1&" "&C$1&" "&2000,"mm"),DAY($B2)) = TODAY()

NOTE: TEXT(1&" "&C$1&" "&2000,"mm") converts JAN, FEB, MAR to 01. 02, 03 for
the Date() function. It will also convert January, February, March.
--
Steve

"MAX" <(E-Mail Removed)> wrote in message
news:77DD4DEC-4CA1-489F-91E1-(E-Mail Removed)...
> Here I have a calendar where every day has 2 rows. In this example let say
> that today's date is 1st January. I need that cell B2 (Highlight) will be
> highlighted with any colour as I open the file and cell B3 (Details)
> remains
> empty where I can put my details. Any help please?
>
> Thanks in adnance.
>
> A B C D E F
> ____________________________________________________
> 1 JAN FEB MAR APR MAY
> ____________________________________________________
> 2 1 Highlight
> 3 Details
> _____________________________________________________
> 4 2
> 5
> ______________________________________________________
> 6 3
> 7
> ______________________________________________________
> 8 4
> 9
> ________________________________________________________

The below code will highlight the current day cell as per your calendar
layout. Place this code in workbook open event. If you have the calendar in a
default sheet you can add the sheet name as well. Launch VBE using Alt+F11.
From the treeview double click 'This Workbook' and paste this code.

Private Sub Workbook_Open()
Range("B2").Resize(62, 31).Interior.ColorIndex = xlNone
Cells(Day(Date) * 2, Month(Date) + 1).Interior.Color = vbYellow
End Sub


If this post helps click Yes
---------------
Jacob Skaria


"MAX" wrote:

> Here I have a calendar where every day has 2 rows. In this example let say
> that today's date is 1st January. I need that cell B2 (Highlight) will be
> highlighted with any colour as I open the file and cell B3 (Details) remains
> empty where I can put my details. Any help please?
>
> Thanks in adnance.
>
> A B C D E F
> ____________________________________________________
> 1 JAN FEB MAR APR MAY
> ____________________________________________________
> 2 1 Highlight
> 3 Details
> _____________________________________________________
> 4 2
> 5
> ______________________________________________________
> 6 3
> 7
> ______________________________________________________
> 8 4
> 9
> ________________________________________________________

Hi Jacob
If I insert a row at the top, does the code remains the same?

Thanks in advance.


"Jacob Skaria" wrote:

> The below code will highlight the current day cell as per your calendar
> layout. Place this code in workbook open event. If you have the calendar in a
> default sheet you can add the sheet name as well. Launch VBE using Alt+F11.
> From the treeview double click 'This Workbook' and paste this code.
>
> Private Sub Workbook_Open()
> Range("B2").Resize(62, 31).Interior.ColorIndex = xlNone
> Cells(Day(Date) * 2, Month(Date) + 1).Interior.Color = vbYellow
> End Sub
>
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "MAX" wrote:
>
> > Here I have a calendar where every day has 2 rows. In this example let say
> > that today's date is 1st January. I need that cell B2 (Highlight) will be
> > highlighted with any colour as I open the file and cell B3 (Details) remains
> > empty where I can put my details. Any help please?
> >
> > Thanks in adnance.
> >
> > A B C D E F
> > ____________________________________________________
> > 1 JAN FEB MAR APR MAY
> > ____________________________________________________
> > 2 1 Highlight
> > 3 Details
> > _____________________________________________________
> > 4 2
> > 5
> > ______________________________________________________
> > 6 3
> > 7
> > ______________________________________________________
> > 8 4
> > 9
> > ________________________________________________________

With one row on top ...I have changed B2 to C2 and the day row +1. Try the
below and feedback

Private Sub Workbook_Open()
Range("C2").Resize(62, 31).Interior.ColorIndex = xlNone
Cells(1+(Day(Date) * 2), Month(Date) + 1).Interior.Color = vbYellow
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"MAX" wrote:

>
>
> Hi Jacob
> If I insert a row at the top, does the code remains the same?
>
> Thanks in advance.
>
>
> "Jacob Skaria" wrote:
>
> > The below code will highlight the current day cell as per your calendar
> > layout. Place this code in workbook open event. If you have the calendar in a
> > default sheet you can add the sheet name as well. Launch VBE using Alt+F11.
> > From the treeview double click 'This Workbook' and paste this code.
> >
> > Private Sub Workbook_Open()
> > Range("B2").Resize(62, 31).Interior.ColorIndex = xlNone
> > Cells(Day(Date) * 2, Month(Date) + 1).Interior.Color = vbYellow
> > End Sub
> >
> >
> > If this post helps click Yes
> > ---------------
> > Jacob Skaria
> >
> >
> > "MAX" wrote:
> >
> > > Here I have a calendar where every day has 2 rows. In this example let say
> > > that today's date is 1st January. I need that cell B2 (Highlight) will be
> > > highlighted with any colour as I open the file and cell B3 (Details) remains
> > > empty where I can put my details. Any help please?
> > >
> > > Thanks in adnance.
> > >
> > > A B C D E F
> > > ____________________________________________________
> > > 1 JAN FEB MAR APR MAY
> > > ____________________________________________________
> > > 2 1 Highlight
> > > 3 Details
> > > _____________________________________________________
> > > 4 2
> > > 5
> > > ______________________________________________________
> > > 6 3
> > > 7
> > > ______________________________________________________
> > > 8 4
> > > 9
> > > ________________________________________________________

Opps
With one row on top ...I have changed B2 to B3 and the day row +1. Try the
below and feedback

Private Sub Workbook_Open()
Range("B3").Resize(62, 31).Interior.ColorIndex = xlNone
Cells(1+(Day(Date) * 2), Month(Date) + 1).Interior.Color = vbYellow
End Sub

--
If this post helps click Yes
---------------
Jacob Skaria


"Jacob Skaria" wrote:

> With one row on top ...I have changed B2 to C2 and the day row +1. Try the
> below and feedback
>
> Private Sub Workbook_Open()
> Range("C2").Resize(62, 31).Interior.ColorIndex = xlNone
> Cells(1+(Day(Date) * 2), Month(Date) + 1).Interior.Color = vbYellow
> End Sub
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "MAX" wrote:
>
> >
> >
> > Hi Jacob
> > If I insert a row at the top, does the code remains the same?
> >
> > Thanks in advance.
> >
> >
> > "Jacob Skaria" wrote:
> >
> > > The below code will highlight the current day cell as per your calendar
> > > layout. Place this code in workbook open event. If you have the calendar in a
> > > default sheet you can add the sheet name as well. Launch VBE using Alt+F11.
> > > From the treeview double click 'This Workbook' and paste this code.
> > >
> > > Private Sub Workbook_Open()
> > > Range("B2").Resize(62, 31).Interior.ColorIndex = xlNone
> > > Cells(Day(Date) * 2, Month(Date) + 1).Interior.Color = vbYellow
> > > End Sub
> > >
> > >
> > > If this post helps click Yes
> > > ---------------
> > > Jacob Skaria
> > >
> > >
> > > "MAX" wrote:
> > >
> > > > Here I have a calendar where every day has 2 rows. In this example let say
> > > > that today's date is 1st January. I need that cell B2 (Highlight) will be
> > > > highlighted with any colour as I open the file and cell B3 (Details) remains
> > > > empty where I can put my details. Any help please?
> > > >
> > > > Thanks in adnance.
> > > >
> > > > A B C D E F
> > > > ____________________________________________________
> > > > 1 JAN FEB MAR APR MAY
> > > > ____________________________________________________
> > > > 2 1 Highlight
> > > > 3 Details
> > > > _____________________________________________________
> > > > 4 2
> > > > 5
> > > > ______________________________________________________
> > > > 6 3
> > > > 7
> > > > ______________________________________________________
> > > > 8 4
> > > > 9
> > > > ________________________________________________________

It works both with Range("C2") and Range("B3").

Thanks a lot.

"Jacob Skaria" wrote:

> Opps
> With one row on top ...I have changed B2 to B3 and the day row +1. Try the
> below and feedback
>
> Private Sub Workbook_Open()
> Range("B3").Resize(62, 31).Interior.ColorIndex = xlNone
> Cells(1+(Day(Date) * 2), Month(Date) + 1).Interior.Color = vbYellow
> End Sub
>
> --
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Jacob Skaria" wrote:
>
> > With one row on top ...I have changed B2 to C2 and the day row +1. Try the
> > below and feedback
> >
> > Private Sub Workbook_Open()
> > Range("C2").Resize(62, 31).Interior.ColorIndex = xlNone
> > Cells(1+(Day(Date) * 2), Month(Date) + 1).Interior.Color = vbYellow
> > End Sub
> >
> > If this post helps click Yes
> > ---------------
> > Jacob Skaria
> >
> >
> > "MAX" wrote:
> >
> > >
> > >
> > > Hi Jacob
> > > If I insert a row at the top, does the code remains the same?
> > >
> > > Thanks in advance.
> > >
> > >
> > > "Jacob Skaria" wrote:
> > >
> > > > The below code will highlight the current day cell as per your calendar
> > > > layout. Place this code in workbook open event. If you have the calendar in a
> > > > default sheet you can add the sheet name as well. Launch VBE using Alt+F11.
> > > > From the treeview double click 'This Workbook' and paste this code.
> > > >
> > > > Private Sub Workbook_Open()
> > > > Range("B2").Resize(62, 31).Interior.ColorIndex = xlNone
> > > > Cells(Day(Date) * 2, Month(Date) + 1).Interior.Color = vbYellow
> > > > End Sub
> > > >
> > > >
> > > > If this post helps click Yes
> > > > ---------------
> > > > Jacob Skaria
> > > >
> > > >
> > > > "MAX" wrote:
> > > >
> > > > > Here I have a calendar where every day has 2 rows. In this example let say
> > > > > that today's date is 1st January. I need that cell B2 (Highlight) will be
> > > > > highlighted with any colour as I open the file and cell B3 (Details) remains
> > > > > empty where I can put my details. Any help please?
> > > > >
> > > > > Thanks in adnance.
> > > > >
> > > > > A B C D E F
> > > > > ____________________________________________________
> > > > > 1 JAN FEB MAR APR MAY
> > > > > ____________________________________________________
> > > > > 2 1 Highlight
> > > > > 3 Details
> > > > > _____________________________________________________
> > > > > 4 2
> > > > > 5
> > > > > ______________________________________________________
> > > > > 6 3
> > > > > 7
> > > > > ______________________________________________________
> > > > > 8 4
> > > > > 9
> > > > > ________________________________________________________