Hozzászólás: [Resolved] Kimutatások automatikus elkészítése

Egy ilyen „egyszerűbb” esetben abból szoktam kiindulni, hogy ha hiba adódik, akkor az csak az lehet, hogy nincs ott pivot tábla. Ezért egyszerűen a
if Err.Number<>0
irányt választom.

A K alatti táblázatok méretének megállapításához:
Ha mindegyik táblázattá (listobject) van alakítva (amit javaslok), akkor van a legegyszerűbb dolgunk, mert akkor az előbbiekhez hasonlóan a
Activecell.Offset(1,0).ListObject.Name
megmondja a nevét, ami a legyártandó pivot adatforrása lehet.

Ha nincs táblázattá alakítva, akkor a K alatti cellától indulva kell bűvészkedi. A bonyolultság attól függ, hogy minden sora és oszlopa ki van-e töltve (legyen!!!)
Ebben az esetben a kezdőcella a K alatti cella, a vége pedig a lefelé majd jobbra irányított End-ekkel megállapítható:
Activecell.Offset(1,0).End(xlDown).End(xlToRight)

Imre