Afspraken Kalender

[Warme bakkertje]

Kijk wel eens alle formules na die je gekopieerd hebt in de 6e regel.
Er staan wel overal formules maar de meeste zijn niet aangepast aan de maand vermeld in het kopje.

 

[mvdvlist]

Super bedankt...

 

[Warme bakkertje]

Vond het een leuk idee om bij het openen v/h bestand de afspraken van de huidige dag te tonen.

 

[mvdvlist]

Erg leuk en mooie code.
Alleen, als er maar 1 record op de huidige datum staat wordt eea niet getransponeerd. En dan krijg je een foutmelding als je deze aanklikt in de Listbox. Bij meerdere items gaat het goed.

 

[Warme bakkertje]

Zo dan.

Private Sub Workbook_Open()
    Blad1.ListBox1.Clear
    With Blad2.Cells(1, 1).CurrentRegion
        Data = Filter(.Parent.Evaluate("transpose(if(" & .Columns(2).Address & "=" & CDbl(Date) & ",row(1:" & .Rows.Count & ")))"), False, 0)
        If UBound(Data) > -1 Then
            If UBound(Data) = 0 Then
                Blad1.ListBox1.List = Blad2.Cells(Data(0), 1).Resize(, .Columns.Count).Value
            Else
                Blad1.ListBox1.List = Application.Index(.Value, Application.Transpose(Data), Array(1, 2, 3, 4))
            End If
        End If
    End With
    Blad1.Protect
End Sub

 

[mvdvlist]

Ontzettend mooie code. Dit programma wordt steeds leuker. Dank je wel...En ik leer weer wat bij...