VBA Sum

Dim myRange As Range
Set myRange = Worksheets("ark1").Range(Cells(4, 1), Cells(ActiveCell.Row - 1, 1))
ActiveCell = Application.WorksheetFunction.Sum(myRange)

rvm>> fin løsning, mon ikke der skal bruges ActiveCell.Column i stedet for 1 så resultatet ikke altid kommer i kolonne A

Dim myRange As Range
Set myRange = Worksheets("ark1").Range(Cells(4, ActiveCell.Column), Cells(ActiveCell.Row - 1, ActiveCell.Column))
ActiveCell = Application.WorksheetFunction.Sum(myRange)
Set myRange = Nothing

Jo - god ide - det vil gøre den mere dynamisk *S*

*S* ja det var det jeg tænkte *S*

Selv ville jeg skrive den således: (teknisk rettelse)

Dim myRange As Range
With ActiveCell
    Set myRange = Worksheets("ark1").Range(Cells(4, .Column), Cells(.Row - 1, .Column))
    .Value = Application.WorksheetFunction.Sum(myRange)
End With
Set myRange = Nothing

Hvorfor vil du bruge en With sætning ?

Det virker perfekt! Kan man ikke bruge det aktive ark i stedet for et bestemt ark, bare så den virker i alle ark??

rvm> with-sætningen for at spare ActiveCell 4 gange - gør sætningerne kortere og minsker fejlmuligheder.

e-box> Jo ActiveSheet kan godt bruges

Dim myRange As Range
With ActiveCell
    Set myRange = ActiveSheet.Range(Cells(4, .Column), Cells(.Row - 1, .Column))
    .Value = Application.WorksheetFunction.Sum(myRange)
End With
Set myRange = Nothing