• 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.

Optellen dynamisch range

  • Onderwerp starter Onderwerp starter HWV
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.213
Beste,

Ik wil het volgende bereiken.

Ik heb een dynamisch werkblad waar ik een range moet optellen.
Doormiddel van onderstaande zoek ik het laatste gevulde cel, en twee cellen eronder moet de code komen om bovenstaande cellen op te tellen.
Code:
ActiveSheet.Range("C5").End(xlDown).Offset(2, 1).Activate
Kolom C bevat de namen
Nu kan je met onderstaande de range bepalen van wat ik moet hebben.
Code:
Range("D5:D" & Cells(Rows.count, 3).End(xlUp).Offset(0).Row).select
Kolom D bevat de waarde
Hoe kan ik deze nou samen voegen zodat ik een de waarde kan optellen tussen D5 en de laatste gevulde cel in VBA

Groet HWV
 
Laatst bewerkt:
zoiets?

Code:
ActiveSheet.Range("C5").End(xlDown).Offset(2, 1).Activate
ActiveCell = Application.WorksheetFunction.Sum(Range("D5:D" & Cells(Rows.Count, 3).End(xlUp).Offset(0).Row))
groet sylvester
 
Beste Sylvester,

Perfect werkt goed.

Misschien kan je me helpen met de volgende kolom daar staat de marge in.
Wat ik dus tot nu to deed met =gemiddelde
Hoe kan ik jou formule gebruiken maar dan met =gemiddelde

Alvast weer bedankt voor je aangeboden hulp.

groet HWV
 
Laatst bewerkt:
sum = Average

Opgelost met het volgende "sum" omzetten naar "Average"

Code:
ActiveSheet.Range("C5").End(xlDown).Offset(2, 2).Activate
ActiveCell = Application.WorksheetFunction.Average(Range("E5:E" & Cells(Rows.count, 3).End(xlUp).Offset(0).Row))

Bedankt groet
HWV
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan