Sum (relativ reference) i makro

Brug subtotaler:

Data> subtotaler.

NB. du skal have overskrifter

du skal ikke have mellemrum imellem kunderne ved subtotaler, men dataerne skal være sorteret på kunde.

må jeg forresten se din makro. ?

Her er Loop..delen, resten er indspillet makro.
Det er vel oplagt, om sammentælling kan ske under Loop..gennemkørslen.

Sub Do_Loop_Linier()

Set Nummer = ActiveCell
Do While ActiveCell = Nummer
ActiveCell.Offset(1, 0).Select
Loop
    ActiveCell.Range("A1:K1").Select
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    ActiveCell.Offset(2, 0).Select
    If ActiveCell > 0 Then
    Do_Loop_Linier
    Else: Application.ScreenUpdating = True
    Application.Dialogs(xlDialogSaveAs).Show
   
End If
End Sub

Sub Do_Loop_Linier()

Set Nummer = ActiveCell
rk = ActiveCell.Row            ' NY
Do While ActiveCell = Nummer
ActiveCell.Offset(1, 0).Select
Loop
    ActiveCell.Range("A1:K1").Select
    nrk = ActiveCell.Row            ' NY
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown

  'Sum i A kolonnen lav den om til den kolonne hvor det skal være.

    Range("A" & ActiveCell.Row).FormulaR1C1 = "=SUM(R[-" & nrk - rk & "]C:R[-1]C)"

  ' du laver bare flere her imellem, hvis der er flere kolonner der skal regnes på

    ActiveCell.Offset(2, 0).Select
    If ActiveCell > 0 Then
    Do_Loop_Linier
    'Else: Application.ScreenUpdating = True
  ' Application.Dialogs(xlDialogSaveAs).Show
   
End If
End Sub

Det ser spændende ud, jeg prøver hurtigst muligt.
Tak

Det kalder jeg godt gjort. Det virker perfekt.
Tak for hjælpen.
Men jeg har fået et andet problem. Hvordan godskriver jeg dig svaret, og afleverer points?

jeg skal lige svare først.

har du lavet makroen færdig, så vil jeg godt se den ?

Dette er næsten hele dit forslag. Hele makroen fylder så meget, at den ikke kommer med her. Resten er indspillet tekstimport, slette ikke anvendte kollonner, PageSetup, og dataformatering.
Tak for hjælpen, jeg vil gerne have dig i tankerne, når næste problem opstår.
Hilsen


Sub Do_Loop_Linier()

Set Nummer = ActiveCell
rk = ActiveCell.Row           
Do While ActiveCell = Nummer
ActiveCell.Offset(1, 0).Select
Loop
    ActiveCell.Range("A1:K1").Select
    nrk = ActiveCell.Row           
    Selection.Insert Shift:=xlDown
    Selection.Insert Shift:=xlDown
    Range("G" & ActiveCell.Row).FormulaR1C1 = "=SUM(R[-" & nrk - rk & "]C:R[-1]C)"
    ActiveCell.Offset(2, 0).Select
    ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
    If ActiveCell > 0 Then
Do_Loop_Linier
    Else:
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.ScreenUpdating = True
    Application.Dialogs(xlDialogSaveAs).Show
    End If

End sub

tak for point. ;-))

du er velkommen tilbage en anden gang.