werkblad kopieren met vba en tonen van selectie a.h.v. keuzemenu

[piet1234]

Hallo allemaal,

heb het helpmij.nl forum en andere fora al doorgespit maar tot nu toe geen oplossing gevonden.
Ik wil het volgende maken in excel:
Kopieer alle data vanuit tabblad "invoer" automatisch naar het tabblad "garantie" bij aanklikken van het tabblad "garantie" (dus als er iets gewijzigd is moet ik ten allen tijde de nieuwste versie hebben)
Dan wil ik graag een dropdown menu (bovenaan tabblad "garantie" waaruit ik alle leveranciers kan selecteren en afhankelijk van welke leverancier dan de
bijbehorende producten getoond worden. (eigenlijk een soort filter)

Ik heb een voorbeeldbestandje toegevoegd.

Iedereen alvast bedankt voor het meedenken.

Bekijk bijlage voorbeeld1.xlsx

 

[JeanPaul28]

Kijk eens of deze filter kan dienen

 

[WHER]

En nog eentje:

 

[piet1234]

Beste JeanPaul28 en WHER bedankt voor jullie oplossingen.
Bij de oplossing van WHER krijg ik bij het openen van het "garantie" werkblad een foutmelding.

"ActiveX-onderdeel kan geen object maken" -> With CreateObject("System.Collections.ArrayList") is dan geel in het VBA scherm.

Enig idee hoe ik dit kan oplossen?

Alvast bedankt!

 

[WHER]

Pas het begin van de Worksheet_Activate code als volgt aan:

Private Sub Worksheet_Activate()
Dim AL1 As Object
Range("A2: G" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
arr = Worksheets("Invoer").Range("E2:E" & Worksheets("Invoer").Cells(Rows.Count, 5).End(xlUp).Row)
Set AL1 = CreateObject("System.Collections.ArrayList")
        With AL1
            For j = 1 To UBound(arr)

 

[piet1234]

Dit is hetgeen ik zocht, iedereen bedankt voor het meedenken en de hulp.