automatische sommatie

[eurotax]

in het voorbeeld werden diverse artikels geselecteerd uit een artikelbestand en vervolgens in een nota geexporteerd, hierbij verdwijnen alle celformules. Aangezien deze nota verder wordt bewerkt door personen met zeer beperkte kennis van excel, zou ik alle berekeningen en aanpassingen via VBA willen laten gaan.

Het is me al gelukt om de individuele totalen dynamisch te maken.
Ook als men een extra artikel toevoegt wordt het totaal van die rij berekend.

het probleem zit 'm in het eindtotaal van rij "F". Dit zou ik foolproof willen maken zodat ongeacht hoeveel lijnen men extra toevoegd, of indien men de lijn van het totaal zelf verwijderd, er door de druk op de knop "totaal" terug een sommatie wordt uitgevoerd op de 3e lijn onder het laatste artikel.
Hierbij zou ik ook graag de term "totaal" en de twee lijnen ook op die plaats hebben.

kan iemand wat voorzetten geven?

 

[BramB2]

=som(f4:f14)

Of denk ik te simpel?

 

[Cobbe]

Zou het met deze lukken?

Private Sub notatotaal_Click()
laatsterij = Sheets("Nota").Range("A" & Rows.Count).End(xlUp).Row
    items = Application.WorksheetFunction.CountA(Range("A4:A" & laatsterij)) + 3
    
    With Range("E" & items + 3)
            .Value = "Totaal :"
            .Font.Bold = True
    End With
    With Range("F" & items + 3)
            .Value = Application.WorksheetFunction.Sum(Range("F4:F" & items))
            .Font.Bold = True
    End With
    With Range("F" & items + 3).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
    With Range("F" & items + 3).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlMedium
        .ColorIndex = xlAutomatic
    End With
End Sub

Cobbe

 

[eurotax]

@ Cobbe

aan een gelijkaardige oplossing had ik ook gedacht.
heb er als test 1 artikel bijgeschreven op de 2e vrije lijn tussen het totaal en het laatste artikel, dan krijg ik nog niet helemaal de correcte oplossing. (zie vb)

hoe kan ik de vorige som verwijderen indien die er nog zou staan en steeds 2 lijnen ertussen houden?

 

[Cobbe]

Lichtjes aangepast.

Succes, Cobbe

 

[eurotax]

bedankt cobbe,

net wat ik zocht.