HWV
Terugkerende gebruiker
- Lid geworden
- 19 feb 2009
- Berichten
- 1.183
Beste,
Ik heb een bestand waar in kolom E bedragen staan van diverse klanten.
Tussen de verschillende klanten zitten altijd drie lege regels.
Nu wil ik onder aan elke klant een sub totaal per klant hebben.
Ik ben al dicht bij het resultaat, enkel de eerste telt hij goed, maar daarna telt hij de bovenliggende bedragen mee bij de volgende klanten
Let op dat elke keer het aantal regels per klant verschillend kan zijn.
Tot nu toe heb ik dit:
Graag hoor ik jullie opmerkingen c.q. suggesties
HWV
Bekijk bijlage Klantomzet.xlsm
Ik heb een bestand waar in kolom E bedragen staan van diverse klanten.
Tussen de verschillende klanten zitten altijd drie lege regels.
Nu wil ik onder aan elke klant een sub totaal per klant hebben.
Ik ben al dicht bij het resultaat, enkel de eerste telt hij goed, maar daarna telt hij de bovenliggende bedragen mee bij de volgende klanten
Let op dat elke keer het aantal regels per klant verschillend kan zijn.
Tot nu toe heb ik dit:
Code:
Sub SubToaalPerKlant()
Application.GoTo Sheets("blad1").Range("E2"), True
ActiveSheet.Range("E2").End(xlDown).Offset(2, 0).Activate
ActiveCell = Application.WorksheetFunction.Sum(Range(ActiveCell, Cells(ActiveCell.End(xlUp).Offset(0).Row)))
ActiveCell.Offset(2, 0).Activate
ActiveCell.End(xlDown).Offset(2, 0).Activate
ActiveCell = Application.WorksheetFunction.Sum(Range(ActiveCell, Cells(ActiveCell.End(xlUp).Offset(0).Row)))
ActiveCell.Offset(2, 0).Activate
ActiveCell.End(xlDown).Offset(2, 0).Activate
ActiveCell = Application.WorksheetFunction.Sum(Range(ActiveCell, Cells(ActiveCell.End(xlUp).Offset(0).Row)))
End Sub
Graag hoor ik jullie opmerkingen c.q. suggesties
HWV
Bekijk bijlage Klantomzet.xlsm