Excel VBA Summera utifrån tabell

[Tommy H]

Hej!

Jag har ett antal värden som jag vill summera i en cell under tabellen. Problematiken är att antalet värden som ska summeras är olika.

Det innebär att i ena fallet så har jag värden i t.ex G10:G15 och summaformeln ska då in på G17.

Nästa gång så är det kanske G10:G25 och då ska det summeras i G27.

Det är alltid ifyllda värden med start på G10 och summeringen ska alltid ske med en "tom" cell under sista värdet!

Vi pratar VBA....

[Ove Söderlund]

Denna kod bör fungera som du vill ha det;

 

Sub Test()

    Dim intLastRow As Integer
    Dim rngFormulaCell As Range
    
    ' Cell G10 -> row=10, column=7

    ' Bestämmer sista raden i tabellen
    intLastRow = Cells(10, 7).End(xlDown).Row
    
    'Definerar cellen som ska innehålla summa-formeln
    Set rngFormulaCell = Cells(intLastRow + 2, 7)
    
    'Skriver in summaformeln med hänsyn till tabellens storlek
    rngFormulaCell.FormulaR1C1 = "=SUM(R[-" & intLastRow - 8 & "]C:R[-2]C)"

End Sub

 

[Tommy H]

Tack!

Ska testa i kväll, men i mina ögon ser det ju ut så som jag önskar!