Avatar billede Klaus123 Mester
25. oktober 2018 - 09:06 Der er 5 kommentarer og
1 løsning

Sum af synlige kolonner

Hej

Jeg skal have lavet en funktion der tager summen af de celler hvor kolonnen foran er synlige. Dvs. hvis kolonnerne H til AB er synlige skal jeg have summen af G til AA.

Herunder har jeg en funktion jeg bruger til at finde summen af de synlige kolonner og under igen en formel jeg bruger til at indsætte funktionen i de rigtige celler og tage summen af de rigtige celler. Måske den kan modificeres.

Function SumVisible(WorkRng As Range) As Double

Dim rng As Range
Dim total As Double
For Each rng In WorkRng
    If rng.Rows.Hidden = False And rng.Columns.Hidden = False Then
        total = total + rng.Value
    End If
Next
SumVisible = total
End Function

'Indsætter formel i kolonne F mellem række FirstRow og LastRow
For i = FirstRow To LastRow
    Cells(i, 6).FormulaR1C1 = "=SumVisible(RC[2]:RC[311])"
Next i

Venlig hilsen

Klaus
Avatar billede Max_P_Larsen Seniormester
25. oktober 2018 - 09:27 #1
Prøv dette:

rng.SpecialCells(xlCellTypeVisible).Value
Avatar billede Klaus123 Mester
25. oktober 2018 - 09:55 #2
Vil det ikke kun finde summen af de synlige celler. Jeg skal finde summen af de celler hvor cellen foran er synlig.
Avatar billede Max_P_Larsen Seniormester
25. oktober 2018 - 10:17 #3
Jeg læste din beskrivelse alt for hurtigt... beklager.

Nu har jeg afprøvet din kode, og jeg får et til at virke som tiltænkt (tror jeg).

Hvad var udfordringen egentlig?
Avatar billede Max_P_Larsen Seniormester
25. oktober 2018 - 10:25 #4
I stedet for det loop, der indsætter formlen, kunne du prøve noget i denne stil:

Cells(FirstRow, 6).ReSize(LastRow - FirstRow + 1).FormulaR1C1 = "=SumVisible(RC[2]:RC[311])"
Avatar billede Butterfly Ekspert
26. oktober 2018 - 09:07 #5
Jeg ville bruge denne
=SUBTOTAL(9;C3:E3)
Avatar billede Butterfly Ekspert
26. oktober 2018 - 09:48 #6
Min formel dur ikke, den dur kun til rækker, hvor jeg skjuler rækker med filter
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester