Ga naar inhoud

Rijen opzoeken in andere tabbladen en combineren


Siebedc

Aanbevolen berichten

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

Link naar reactie
Delen op andere sites

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

 

Link naar reactie
Delen op andere sites

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.