Udvidelse af SUM() i macro til brug i EXCEL

Hej coder_carl

Kan du bruge følgende ....


Procedure som opsummerer kolonne A fra række 14

Public Sub OpsummerKolonneA()
Dim s As String
Dim r As Integer
   
    'sæt r = sidste rækkenummer i kolonne A, indeholdende en værdi
    r = Range("A65536").End(xlUp).Row
       
    'sæt s = formel tekststrengen
    s = "=sum(A14:A" & r & ")"
   
    'tildel celle A1 på Sheet1 formlen
    Sheet1.Range("A1").Formula = s
   
End Sub



I det aktuelle arks Change hændelse kaldes ovenstående procedure, hver gang der sker en ændring i arket.


Private Sub Worksheet_Change(ByVal Target As Range)

  'kald OpsummerKolonneA proceduren
  OpsummerKolonneA

End Sub


Med venlig hilsen, Nicolai

Hej Nicolai,

Delvis, ligesom man starter i celle 14, kan man så lave et stop, i fx celle 18? Den skal nemlig ikke summe hele kolonnen, der kommer noget andet længere nede i arket.

Hej Coder_carl

Indsætter du kun 1 ny række ??, så området der skal summeres er fra række 14 til 18 ?

Med venlig hilsen, Nicolai

Ja, og nej. For der indsættes en linie af gangen. Så kunne godt tænke mig at at det blev lidt dynamisk. Så det ikke er bundet op på det altid starter fra en bestemt celle. Men noget i retning af SUM(Nuværende-start-celle:nuværende-slut-celle+1). Kan godt være det er et mere komplekst problem end som sådan.

Jeg sidder selv og prøver mig lidt frem, det skal lige siges jeg er ret ny i at code VBA. Har fået lavet en kode der starter ved cellen "start" og slutter ved cellen "slut" altså: Der står Fx "start" i B1 og slut i B13. skal så ende ud i der i B1 skal stå SUM(B2:B13)

Her er koden jeg forsøger mig med, måske det kan hjælpe til at se hvad jeg vil. Har skrevet ' gættet linie ' over de linier jeg mangler en korrekt kode til.

Håber det kan hjælpe lidt

---------------------------------------------
Sub sum()

  For Each cell In ActiveSheet.Range("B:B") '


            If cell.Text = "start" Then

                ' gættet linie '
                Start = cell + 1
                                   
            End If
           
            If cell.Text = "slut" Then

            ' gættet linie '
            Slut = cell - 1

            GoTo Slut
            End If

    Next
   
Slut:

Range("B1").Select
' gættet linie '
ActiveCell.FormulaR1C1 = "SUM(Start:Slut)"
   
End Sub

Hej coder_carl

Hvad med følgende procedure ...

Sub SumDynamiskOmråde()

    'tildel celle A1 den summerede værdi fra celle A14
    'og ned til førstkommende tomme celle under celle A14
    Range("A1").Value = WorksheetFunction.sum(Range(Range("A14"), Range("A14").End(xlDown)))
       
End Sub


Med venlig hilsen, Nicolai

Hej Nicolai,

Det er noget i den stil ja!. Kan man gøre så den i A1 laver en formel, frem for et tal? Værdierne den summer op, bliver nemlig ændret løbende.

Hej coder_carl

Så prøv lige om ikke denne her fungerer efter hensigten ... ?


Sub SumFormelDynamiskOmråde()
Dim r As Integer
Dim s As String
 
    'set r = den sidste række med data efter række 14 i kolonne A
    r = Range("A14").End(xlDown).Row
       
       
    'sæt s = formel tekststrengen
    s = "=sum(A14:A" & r & ")"
       
       
    'tildel celle A1 på Sheet1 formlen
    Sheet1.Range("A1").Formula = s

       
End Sub



Jeg kalder proceduren i mit arks Change hændelse:

Private Sub Worksheet_Change(ByVal Target As Range)

  SumFormelDynamiskOmråde

End Sub


Med venlig hilsen, Nicolai

Hej Nikolai,

Det virker lige efter hensigten! Må din tilgang var noget smartere end min egen.

Du skal have et stort tak for hjælpen.

Smid et svar

Hej coder_carl

Godt at høre :o)
Hermed mit svar.

Med venlig hilsen, Nicolai