Zoeken en meerdere rijen en kolommen kopieren/weergeven

[mvanwijk]

Hallo,

Ik heb in tabblad 1 een tabel staan met huurders. Dit kunnen meerdere huurders zijn in 1 pand en het zijn meerder panden.

Ik wil in tabbald 2 filteren op een pand(nr). Hoe kan ik alle huurders die voldoen aan het criterium 'pandnr=A' weergeven? Uiteraard wil ik ook de daaraan gekoppelde huurgegevens (start huur, einde huur en aantal m2) weergeven.

Iemand een idee hoe ik dit kan doen?

 

[gelens]

Mvanwijk

Is er een speciale reden om het in tabblad 2 te krijgen?
Anders zou je kunnen filteren in tabblad 1

Maar zonder inzicht hoe de data er uit ziet is het lastig een goed antwoord te geven.

Voorbeeld bestandje mogelijk ?

 

[mvanwijk]

Bekijk bijlage Example.xlsHallo Gelens,

Ja er is een reden, want ik wil een tabblad per pand maken waar ik de servicekostenafrekeningen mee wil maken.

Ik heb een voorbeeld gemaakt, zal proberen deze toe te voegen.

 

[Warme bakkertje]

Deze doet alles automatisch voor jou op voorwaarde dat alle benodigde werkbladen al aangemaakt zijn.

Sub Verdeel()
    
    Set colUnique = New Collection
    Application.ScreenUpdating = False
    With Sheets("Verzamelblad")
        sn = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
        On Error Resume Next
        For j = 1 To UBound(sn)
            colUnique.Add sn(j, 1), CStr(sn(j, 1))
        Next
        For i = 1 To colUnique.Count
            .Range("A1").AutoFilter 1, colUnique.Item(i)
            .AutoFilter.Range.SpecialCells(12).Copy Sheets(CStr(colUnique.Item(i))).Range("A1")
            
        Next
        .AutoFilterMode = False
    End With
    Application.ScreenUpdating = True
    
End Sub

 

[mvanwijk]

Rudi,

Ik zie een code maar weet niet wat ik er mee moet/kan? Waar moet ik dit invullen?

 

[Warme bakkertje]

In je werkblad druk ALT-F11, ALT-N, M en in het rechtervenster plak je dan de code.
Terug in je werkblad druk je ALT-F8 en selecteer de naam v/d macro en klik op Uitvoeren.
Zoals ik al eerder zei moet alle werkbladen van alle panden in de lijst al aanwezig zijn, de macro verdeelt de respectievelijke huurders dan naar de overeenkomstige werkbladen (panden).