samenvoegen met macro

[patje8]

Ik heb een excel bestand met een lijst van de inkomende goederen en het verbruik van goederen. Deze lijsten moeten samengevoegd worden. Het samenvoegen moet echter alleen van de geselecteerde grondstof. In het blad "selectie grondstof" moet een keuze vak komen waar de betreffende artikelnummer moet kunnen worden ingevuld, daarna moet automatisch alle data van de betreffende grondstof op volgorde van datum komen te staan.

Omdat het type grondstof alleen bovenaan 1 keer vermeld wordt is het erg lastig om voor excel een herkenningspunt te maken wat er nu precies geselecteerd moet worden en tot waar deze selectie loopt.

Mocht iemand mij op gang kunnen helpen welke formule de 2 bladen (alleen de geselecteerde grondstof) kan samenvoegen in het 3e blad, dan zou ik dit graag horen. Het gaat in het originele bestand om meer dan 300 grondstoffen waardoor een macro noodzakelijk is.

 

[patje8]

Ik gebruik momenteel deze code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim r As Range
  If Target.Address = "$B$3" Then
      Cells(19, 1).CurrentRegion.Offset(1).Clear
      For Each sh In Sheets(Array("Goederen Ontvangst", "Goederen Verbruik"))
        Set r = sh.Columns(3).Find(Target)
          If Not r Is Nothing Then
            ar = r.Offset(1).Resize(r.End(xlDown).Row - r.Row, 7)
            Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(ar), 7) = ar
          End If
      Next sh
      Cells(19, 1).CurrentRegion.Sort Cells(19, 1), , , , , , , xlYes
  End If
End Sub

 

[jkpieterse]

De verbruikstabel bevat geen artikelnummer, hoe dienen de gegevens uit die tabel te worden gehaald, op artnr gekoppeld aan de kolom ARTIKEL in de Ontvangst tabel?

 

[jkpieterse]

Wat is er mis met je code dan?

 

[patje8]

Artnrs in verbruikstabel heb ik aangepast maar nog steeds krijg ik geen overzicht van wat in en verbruik is in selectie grondstof.

 

[sylvester-ponte]

je kijkt in beide sheets in kolom 3 , dan verwacht ik dat in kolom 3 in beide sheets ok de artikelnummers staan.
verder: deze regel klopt niet.

ar = r.Offset(1).Resize(r.End(xlDown).Row - r.Row, 7)

het is voor de helpers handig als je zelf met de hand de verwachte oplossing invult. en geef de logica aan.

 

[VenA]

Ik vind het een puinhoop van een bestand. Beide tabjes lijken nagenoeg niet op elkaar en waarom je dan toch bepaalde waarden in het overzicht wel wil hebben zal wel een doel hebben. Met een dubbele lus kan ik na wat aanpassingen in de celeigenschappen wel een resultaat krijgen maar of dit de de bedoeling is weet ik niet. Met 2 x het geavanceerde filter kan het waarschijnlijk eenvoudiger maar heb ik niet verder bekeken.