Filter met 2 tabbladen

[Roma]

Goedemiddag,

Ik heb op tablad1 12 maanden staan
Op tabblad2 staan wel 500 maanden(vele dezelfde maand)
Nu wil ik graag een vba filter maken die de eerste 12 maanden filtert gekoppeld aan tabblad 2
ik kan het op het forum helaas niet vinden
alvast bedankt

 

[HSV]

Upload eens een voorbeeld-bestand.

 

[Roma]

Beste Harry,
Sorry ik moest even weg.


Hier is een klein voorbeeldje

 

[HSV]

Is prima toch?

Kun je misschien een beter uitleg geven wat je zoal doet en wat de uitkomst moet zijn?
Helaas word ik niet veel wijs uit het bestandje.

 

[Roma]

De bedoeling is dat ik een overzicht krijg per maand van verkochte artikelen (kolomD1 t/m KolomY1) = een subtotaal.
De uitkomsten komen dan terecht in de tekstboxen.
Het is zo onoverzichtelijk als ik in Combobox vele dezelfde maanden te zien krijg.

 

[HSV]

Vervang je gehele code eens door onderstaande codes.
De zoekknop heb ik overbodig gemaakt.

Private Sub ComboBox1_Change()
With Sheets("cont").Cells(3, 3).CurrentRegion
 If .Parent.AutoFilterMode Then .Parent.AutoFilterMode = False
  .AutoFilter 1, ComboBox1.Value
  For j = 1 To 12
    Me("textbox" & j) = .Parent.Cells(1, j + 3)
  Next
End With
End Sub


Private Sub UserForm_Initialize()
 ComboBox1.List = Sheets("instel").Range("f6:f17").Value
End Sub

 

[Roma]

Harry,
Dit is het helemaal bedankt je bent weer super
rob

 

[HSV]

Graag gedaan Rob,

Denk nog wel even om de spelling van sommige maanden (de tweede maand in het jaar).

 

[Roma]

Harry,
In mijn grote bestand zet hij de filter op rij 1 ik heb

With Sheets("controle").Cells(3, 3).CurrentRegion

veranderd in

With Sheets("controle").Cells(4, 3).CurrentRegion

maar dat werkt niet.
weet jij nog een oplossing?

 

[HSV]

Dan staat er iets op rij 2 wat in het voorbeeldbestand niet stond.

With Sheets("controle").Cells(3, 3).CurrentRegion.offset(2)

 

[Roma]

Sorry dat klopt

 

[Roma]

Beste Harry,
Het werkt perfect in mijn grote bestand.
Nogmaals bedankt voor alles.
Fijne feestdagen en een gezond 2016
Rob

 

[HSV]

Graag gedaan en insgelijks Rob.