Sum fra alle faner

Prøv denne brugerdefinerede funktion

Function sumyear(year As Integer) As Double
    Dim sumup As Double
    Application.ScreenUpdating = False
        For Each sh In ActiveWorkbook.Sheets
            For Each c In sh.Range("u1:u100").Cells
                If c.Value = year Then
                    sumup = sumup + c.Offset(1, 0).Value
                End If
            Next c
        Next sh
    sumyear = sumup
    Application.ScreenUpdating = True
End Function

Der, hvor du vil have resultatet til at stå, skriver du =sumyear(2020)

Undskyld. Jeg havde verset en detalje. Dette er bedre

Function sumyear(year As Integer) As Double
    Dim sumup As Double
    Application.ScreenUpdating = False
        For Each sh In ActiveWorkbook.Sheets
            For Each c In sh.Range("i1:i100").Cells
                If c.Value = year Then
                    sumup = sumup + c.Offset(1, 12).Value
                End If
            Next c
        Next sh
    sumyear = sumup
    Application.ScreenUpdating = True
End Function

-> Jan K

Jeg kan godt forstå dele af din kode; men hvor og hvordan kalder du kolonne I ( ukendt række ), som brugeren beder om?

#3

Range(I1:i100) fptæller kolonnen.