Combining two filters in VBA

[Romano_odK]

Good afternoon,

The below code gives me all the lines with the value "Z-WEG" which work ok, but I actually need something more. What I need is for the "Magazijn" to be 1 and if there is indeed a line with Z-WEG, I also need the other lines if with the same "Artikelcode". So when in column "Locatie" the value is "Z-WEG' then also display the lines that has the same "Artikelcode" as the one where the value in "Locatie" is Z-WEG.


Thank you for your time and efforts.

Romano

Zweg.Caption = "z-weg" & Chr(10) & Application.CountIf(Range("Locatie[Locatie]"), "=z-weg")

Locatie controle 3.34 beta.xlsm
	A	B	C	D	E	F	G	H	I
6	Artikelcode	Omschrijving	Ontvgstdatum	Aantal	Kostprijs	Vrrdrek	Std_locatie	Magazijn	Locatie
7	108002	Kohler celband 9x3 mm grijs - 100 m	04/10/2023	150	6,20	3901	Q14A	1	Z-WEG
8	108003	Kohler celband 9x3 mm grijs - 250 m	02/10/2023	78	10,76	3901	Q13A	1	Q13B
9	108003	Kohler celband 9x3 mm grijs - 250 m	02/10/2023	78	10,76	3901	Q13A	1	Z-WEG
10	108003	Kohler celband 9x3 mm grijs - 250 m	02/10/2023	78	10,76	3901	Q13A	1	AAP
11	108003	Kohler celband 9x3 mm grijs - 250 m	02/10/2023	78	10,76	3901	Q13A	1	Q13A
12	108004	Kohler celband 9x3 mm wit - 100 m	13/11/2023	200	5,28	3901	Q14A	1	AAP
13	108004	Kohler celband 9x3 mm wit - 100 m	13/11/2023	200	5,28	3901	Q14A	1	Q14A
14	108004	Kohler celband 9x3 mm wit - 100 m	13/11/2023	200	5,28	3901	Q14A	1	Q14B
15	108004	Kohler celband 9x3 mm wit - 100 m	13/11/2023	200	5,28	3901	Q14A	1	A00
16	108004	Kohler celband 9x3 mm wit - 100 m	13/11/2023	200	5,28	3901	Q14A	1	Z-WEG
17	108005	Kohler celband 9x3 mm wit - 250 m	01/11/2023	36	10,71	3901	Q12A	1	A00
18	108005	Kohler celband 9x3 mm wit - 250 m	01/11/2023	36	10,71	3901	Q12A	1	AAP
19	108005	Kohler celband 9x3 mm wit - 250 m	01/11/2023	36	10,71	3901	Q12A	1	Z-WEG
20	108005	Kohler celband 9x3 mm wit - 250 m	01/11/2023	36	10,71	3901	Q12A	1	Q12B
Boekingen