celwaarde in som formule opnemen

[PietGup]

A
1 1
2 1
3 1
4
5

Ik wil een som formule bouwen waarbij de celwaarde van A1 als teller voor rowwaarde wordt gebruikt.

=SOM(B1:B"celwaarde A1")

en uiteindelijk wil ik dat meenemen in een macro.

Wie kan mij helpen

 

[HSV]

=SOM(INDIRECT("B1:B"&A1))

Succes.

 

[E v R]

of:

=SOM(VERSCHUIVING($B$1;;;A1;))

 

[PietGup]

Celwaarde in formule

Mijn hartelijke dank. Na enig geprobeer werk de formule nu ook vlekkeloos in VBA.

Nu nog een vraag. De telling die ik wil maken van een laatste reeks heeft een beginrij die afhankelijk is van een aantal zaken.

De commandoregel ziet er ongeveer zo uit:

ActiveCell.FormulaR1C1 = "=SUM(OFFSET(R[- [waarde van cel] ] ],,,R1C2,))"

Hoe krijg ik zover dat [waarde van een cel] hierin komt?

 

[HSV]

Lukt het hiermee?

ActiveCell.Formula = "=SUM(OFFSET(INDIRECT(ADDRESS($J$1,1)),,,$B$1))"

En dan moet je het Address even aanpassen.

 

[HSV]

Met zo’n voorbeeldje kunnen we hier weinig Piet.
Plaats een bestandje in .xls extensie, en zet daar de omschrijving of voorbeeld hoe het moet worden.

 

[PietGup]

Het bestand

Zie de inhoud.

Wat van belang is, is dat het aantal rijen van het laatste jaar zeer variabel zijn.

Mijn hartelijke dank voor de hulp

 

[HSV]

Zoiets?

Sub tst()
 Dim rij As Integer
   rij = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(Rows.Count, 3).End(xlUp).Offset(1).Formula = _
 "=Sum(" & Cells(rij, 3).Address & ":" & Cells(Rows.Count, 3).End(xlUp).Address & ")"
End Sub

 

[PietGup]

Telling opschuiven 1 kolom

Harry,

Mijn hartelijke dank. Dit werkt. Alleen als ik 2 kolommen opschuif en opnieuw de macro laat lopen komt de telling op de verkeerde regel en verkeerde kolom.
Hoe schuif ik dat nu twee kolommen op?

 

[HSV]

Het ligt eraan waar je twee kolommen hebt ingevoegd.

Als het tussen kolom A en C is, dan maak van de 3 in de code, een 5 Piet.
Als je twee kolommen voor kolom A hebt gezet, dan hetzelfde maar dan de 1 ook veranderen in een 3.
Succes.