Grootboekmutaties ophalen obv boekstuknummers

[Robert971]

Hallo,

Graag zou ik adhv een aantal boekstuknummers in een excel sheet de mutaties en grootboekrekeningnummers bij deze boekstuknummers ophalen:

Het gaat om de boekstuknummmers in blad2: Gefilterde mutaties kolom D, zie bijgevoegd bestand).
Een zoekopdracht die deze boekstuknummers 1 voor 1 (beginnend bij eerste boekstuknummer in kolom D= zoekwaarde 1, daarna zoekwaarde 2 etc.) opzoekt in Blad1 grootboekmutaties, en alle matches voor betreffend boekstuknummers netjes in een overzicht zet onder elkaar (zie 'Gewenst Resultaat" blad2: gefilterde mutaties')

Het kan dus dat van boekstuknummer (zoekwaarde 1) meerdere mutaties zijn (in blad1: gbr. mutaties) nu ook het geval. De hele dataset in blad1: grootboekmutaties moet dus nagelopen worden voor elk boekstuknummer. Het aantal matches kunnen er 1 of meer zijn moeten dus in blad 2 worden neergezet...met bijbehorende mutaties en GBR rekening.

Ik hoop dat hier een werkbladfunctie of anders Macro voor te ontwikkelen is....Heb het nu handmatig gedaan, maar veel te veel werk.

Kan iemand mij helpen?

bvd
Robert

 

[VenA]

Is een draaitabel niet voldoende?

Nb. Waarom beginnen jouw gegevens in A12?

 

[Robert971]

Bedank voor reactie. A12 geen specifieke reden. Had ook A1 kunnen zijn. Moet echt o.b.v. werkbladfunctie of macro, zou het mooiste zijn. Draaitabel lukt me ook...maar wens is via formule of macro...

 

[VenA]

Moet echt o.b.v. werkbladfunctie of macro, zou het mooiste zijn. Draaitabel lukt me ook...maar wens is via formule of macro...

Als je deze zin gaat ontleden wat staat er dan?

Maak een voorbeeld met wat waar staat en hoe je de filters wil hebben.

 

[HSV]

Sub hsv()
Dim sn, cl As Range, c As Range, firstaddress As String, n As Long
With Sheets("Grootboekmutaties")
 sn = .Range("A12").CurrentRegion
ReDim arr(UBound(sn), 3)
For Each cl In Sheets("Gefilterde muties").Range("d13:d15")
 Set c = .Columns(2).Find(cl)
   If Not c Is Nothing Then
    firstaddress = c.Address
        Do
           arr(n, 0) = c.Offset(, -1)
           arr(n, 1) = c
           arr(n, 2) = c.Offset(, 1)
           arr(n, 3) = c.Offset(, 2)
           n = n + 1
         Set c = .Columns(2).FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress
    End If
 Next cl
Sheets("Gefilterde muties").Range("h13").Resize(n, 4) = arr
End With
End Sub

 

[Robert971]

Grootboekmutaties ophalen ref

Bekijk bijlage Grootboekmutaties oph. ref.xlsx

Zie voorbeeld.@VenA (enige filter die je vooraf weet is boekstuknummer, voor betreffend(e) boekstuknummer(s) moeten alle mutaties worden getoond)
Zie net ook een andere post (code), van HSV, ga die ook alvast even proberen.

 

[HSV]

Hier nog een ander methode.

Sub hsvtwee()
Dim sh As Worksheet
With Sheets("Grootboekmutaties").Range("A12").CurrentRegion
Set sh = Sheets("gefilterde muties")
    .AutoFilter 2, Array(sh.Range("d13").Text, sh.Range("d14").Text, sh.Range("d15").Text), 7
    .Copy sh.Range("h12")
    .AutoFilter
 End With
End Sub

 

[Robert971]

Enorm bedankt HSV, ook voor de snelle respons. Dit is precies wat ik zocht. Vraag opgelost!