Dynamisk sum i VBA
HejsaJeg trækker en statistik på månedsbasis, og hver måned kommer der to ekstra kolonner på det jeg trækker. Desværre laver den ikke en summering og en sådan ønsker jeg at få på.
Da jeg manipulerer statistikken på andre måneder via VBA tænker jeg at det ville være skønt at kunne indsætte den ligeledes via VBA.
Via linjen:
Sidstekolonnenr = ActiveCell.SpecialCells(xlLastCell).Column
Kan jeg definere hvor langt ude summen skal laves, men da dette naturligvis er dynamisk hver måned har jeg brug for en form for if sætning.
Eksempel kan findes på http://gupl.dk/696627/
Det jeg trækker har tre kolonner med diverse data (ligegyldigt hvad det er) herefter kommer Jan-April = 8 kolonner. Sum skal derfor stå i kolonne 12 og ligge kolonne 10+8+6+4 sammen.
Næste måned skal sum stå i kolonne 14 og addere 12+10+8+6+4
Jeg tænker at jeg måske kan bruge if til at definere at den skal indsætte hver anden kolonne (negativ = bagud) indtil at X(hver anden kolonne nr) minus 3 < 2.
Ender jeg med at måtte skrive formlen hver gang? Bemærk at jeg bruger relative referencer, men jeg kan naturligvis oversætte dem hvis du laver makroen med absolutte.
