Highlight today date on excel calendar

[charliew]

I have a holiday allocation calendar and i want it to highlight todays date with a thick border. I cant get conditional formatting or anything to work and im wondering if i could add an extra something into the formula...

=IF(AND((COLUMN()-1)>31*($A$3-1),MONTH(DATE($A$2+INT(($A$3+$A$1)/12),IF((INT((COLUMN()-1)/31.001)+$A$1)>12,(INT((COLUMN()-1)/31.001)+$A$1-12),INT((COLUMN()-1)/31.001)+$A$1),ROUNDUP(MOD(COLUMN()-1,31.001),0)))=ROUNDUP(MOD($A$1+$A$3-1,12.01),0)),ROUNDUP(MOD(COLUMN()-1,31.001),0),"")

this formula is to calculate the date on the day depending on the month and year

 

[Kamolga]

I don't get it, how does the calendar look like? If all days are written, you can simply highlight the cells if cell=today(), if you have a start and finish date, highlight =if(and(A1<=today(),A2>=today())

 

[charliew]

I can't figure out how to attach my workbook.

its a basic looking calendar but has 2 scroll arrows to scroll between months and i think this is where the issue lies.

 

[Kamolga]

If you have a onedrive account (Microsoft account), click file tab then share. It will propose to save in cloud (so onedrive) if not yet. Then click "share with people" and below the new window on the right, there is "Get a sharing link" that you can paste here.

 

[charliew]

https://augean-my.sharepoint.com/:x...dOgT0JfseBIfUBSWteO__cQwld1pMudnV1iA?e=yKkcOU

try that?

 

[Kamolga]

Can't access sharepoint with my 365 account, I would need a company account.
If too complicated, maybe "snipping tool" (included in windows) with rows and column numbers could help in understanding the situation and required formula.

You can use https://postimages.org/ to share the photo here

 

[Mike_CS]

is it a vba (or monthview) calendar like this?

i use this to centre it and show todays date.

Private Sub UserForm_Initialize()


'Opens on todays date
MonthView1.Value = Date


'Align userform on workbook opening
Me.StartUpPosition = 0
Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)

End Sub

 

[Kamolga]

You shared a link to your C Drive, which we can not access of course. If you upload the image to https://postimages.org/ (no account needed), you will have an url link you can share.

 

[Mike_CS]

is it a vba (or monthview) calendar like this? This is from a random website.

i use this to centre it and show todays date.

In the developer tab i create a month view form and use the below code.

Private Sub UserForm_Initialize()

'Opens on todays date
MonthView1.Value = Date


'Align userform on workbook opening
Me.StartUpPosition = 0
Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)

End Sub

Sorry

This is what i was talking about. the windows month view calendar.