Rijen opzoeken in andere tabbladen en combineren

[Siebedc]

Hi Iedereen,

 

Ik ben op zoek naar een manier waarbij er in alle tabbladen wordt gekeken of in een bepaalde kolom ('datum volgende contact') de vermelde datum gelijk is aan die van vandaag.

Wanneer dit het geval is, wens ik de volledige rij in een overzicht (overzicht-tabblad) weer te vinden. Zodoende dat het overzicht(-tabblad) een combinatie wordt van rijen uit verschillende tabbladen en dagelijks verandert.

 

Bij deze een voorbeeld:

https://drive.google.com/file/d/18TX6GY9yv8m4dth1kiBfdOhNNcdC-Re6/view?usp=sharing

 

Alvast bedankt

 

Siebe

[bakerman]

Voor de lol, Array approach.

 

Sub baker()

    Sheets("Dagoverzicht").Range("A7").CurrentRegion.Offset(1).Clear
    Dim arr: ReDim arr(5, 1)
    For ws = 2 To Sheets.Count
        For i = Sheets(ws).Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1
            If Sheets(ws).Cells(i, 4) = Date Then
                For j = 0 To 4
                    arr(j, UBound(arr, 2) - 1) = Application.Index(Sheets(ws).Rows(i), 0, j + 1)
                Next
                ReDim Preserve arr(5, UBound(arr, 2) + 1)
            End If
        Next
    Next ws
    Sheets("Dagoverzicht").Range("A8").Resize(UBound(arr, 2), 5) = Application.Transpose(arr)

End Sub