• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Subtotalen toevoegen middels macro

Status
Niet open voor verdere reacties.
Deze geeft mij het gewenste resultaat. Gebruik de tweede macro dus om subtotals te verwijderen. Anders zal het niet goed blijven gaan.

Code: 
Sub jec()
  With Cells(1).CurrentRegion
     .Offset(, .Columns.Count).Resize(, 2).Formula = "=sumifs(" & .Columns(5).Address(1, 0) & "," & .Columns(1).Address & ",$A1," & .Columns(3).Address & ",1240)"
     .CurrentRegion.Subtotal 1, xlMax, Array(8, 9)
     .Columns(5).Offset(1).Resize(, 2).SpecialCells(4) = "=RC[3]"
     .Columns(8).Resize(, 2).Hidden = True
  End With
End Sub

Code: 
Sub deleteTotals()
 With Cells(1).CurrentRegion
   .RemoveSubtotal
   .Columns(8).Resize(, 2).ClearContents
 End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan