Fill cells with data based on dates?

[tezza]

Hi All,

Hope you can help.

I've created a dynamic calendar but would like it to auto populate based on the dates and initials below it (see image of manually entered data for example purpose).

What is the best way to achieve this please?

Below is the link to the sheet that is in google drive which is view only to keep the original data in place but you should be able to copy it:
Dynamic Calendar

Thank you.
Terry

 

[Fluff]

Did you put the code in a standard module, rather than a sheet or ThisWorkbook module?
Also did you save the file as an xlsm file?

 

[tezza]

I'm not good with VBA so I think so........

Saved as XLSM and now showing blank without errors also removing borders

 

[Fluff]

The code is in a sheet module, it needs to go in a standard module.
In the VB Editor click on insert, Module & paste the code in there. Also remove it from it's current location.

 

[tezza]

Scrap that, I entered the wrong year lol, it's working fine now ,.

Thank you very much.

 

[Fluff]

Glad it's working & thanks for the feedback.

 

[tezza]

Glad it's working & thanks for the feedback.

I just wanted to share an update and to thank you once again

This now reads the data from below the calendar then auto populates a wall chart and each individual month separated into their own tabs that fit nicely onto an A4 sheet each for easy viewing.

 

[tezza]

Glad it's working & thanks for the feedback.

Hi again,

This has been implemented and work are really happy with the result, they've ask if the date/Notes column can be sorted/filtered but as the cells are merged it failed, so I've cleared the merges and centred across selection instead but now all the dynamic stuff has gone, can you help once again please.

Start Date is Col B
End Date is Col D
Notes is Col F

Kind regards

 

[Fluff]

Ok, how about

Function tezza(Dcl As Range, DRng As Range) As String
   Dim Cl As Range
   
   For Each Cl In DRng.Columns(1).Cells
      If Dcl.Value >= Cl.Value And Dcl.Value <= Cl.Offset(, 2).Value Then
         tezza = tezza & "," & Cl.Offset(, 4).Value
      End If
   Next Cl
   tezza = Mid(tezza, 2)
End Function

 

[tezza]

Ok, how about

Function tezza(Dcl As Range, DRng As Range) As String
   Dim Cl As Range
  
   For Each Cl In DRng.Columns(1).Cells
      If Dcl.Value >= Cl.Value And Dcl.Value <= Cl.Offset(, 2).Value Then
         tezza = tezza & "," & Cl.Offset(, 4).Value
      End If
   Next Cl
   tezza = Mid(tezza, 2)
End Function

That did it, thank you. I tried changing the values myself but couldn't work out what was happening to change the right ones.

You're a star

 

[Fluff]

Glad to help & thanks for the feedback.