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

 

[tezza]

Glad to help & thanks for the feedback.

Hi Fluff

After extensive use, which has been great, due the the number of entries it now struggles with the load and runs pretty slow (rough 5-6 seconds after Enter is pressed to process). Is there an alternative method that would help it run quicker by any chance?

Kind regards

 

[Fluff]

You could try

Function tezza(Dcl As Range, DRng As Range) As String
   Dim Ary As Variant
   Dim i As Long
   
   Ary = DRng.Value2
   
   For i = 1 To UBound(Ary)
      If Dcl.Value >= Ary(i, 1) And Dcl.Value <= Ary(i, 3) Then
         tezza = tezza & "," & Ary(i, 5)
      End If
   Next Cl
   tezza = Mid(tezza, 2)
End Function

 

[tezza]

Thank you, I will test it.