Addig jutottam, hogy a hiba ebben a sorban keresendő:

 

kezd = Application.WorksheetFunction.Match(keres$, Columns(4), 0),

 

Feltettem a doksit.

 

Az első mint oldalt csak azért tettem oda, hogy jobban lásson mi lenne majd a vége a dolognak, de azt csak a régiből kimásoltam, így nem működik, csak a látszat miatt.

Az árlista oldalon van a lényeg.

A tipusnevek oldalon vannak a legördülő listához a csoportok.

 

A méretek nem jól működik, mert nem sikerül meghatározni az oszlopban a kezdő sor, és a végső sor helyét...

 

Eddig jutottam...

 

"www.nyirbutor.hu/images/temp/arlistapublic.xlsm"