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

Vba optellen varialbel bereik

Status
Niet open voor verdere reacties.
A

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
1.990
Met onderstaande code is het de bedoeling dat ik een variabel bereik in kolom C optel
Ergens gaat het fout en krijg het maar niet goed. Wie kan me een zetje in de goede richting geven.
Werken met een tabel is jammer genoeg geen optie.
Code: 
Private Sub CommandButton1_Click()
Range("A2000").End(xlUp).Offset(1, 0).Select 'vanaf cel A2000 naar boven zoeken naar lege cel kolom datum

Dim i As Integer
    i = ActiveCell.Row
        selrij = Selection.Row
        
        Cells(selrij, 2).Value = "TOTAAL"
        Cells(selrij, 3).Formula = "=SUM(C & i:C3)"
 
End Sub
 
Laatst bewerkt:
het zal wel i-1 zijn, anders heb je een kringverwijzing
Code: 
        Cells(selrij, 3).Formula = "=SUM(C" & i & ":C3)"
 
ennnnn duwwww...

Code: 
Private Sub CommandButton1_Click()
lrow = Range("A2000").End(xlUp).Row 'vanaf cel A2000 naar boven zoeken naar lege cel kolom datum
        
        Cells(lrow + 1, 2).Value = "TOTAAL"                              '+1 zorgt dat het totaal onder de laatst gevulde rij wordt gezet.
        Cells(lrow + 1, 3).Formula = "=SUM(C3:C" & lrow & ")" 
 
End Sub
 
code van Roel werkt perfect, waarvoor mijn dank
code van Cow18 nog niet getest, zal dat ook nog eens uitproberen.

Bedankt voor de snelle reacties
 
toch nog even een vraag:
Hoe krijg ik de selectie nou afgedrukt, had gedacht met onderstaande code maar :evil:
Code: 
Range("A1:E & 1row").PrintPreview
ergens ga ik alweer de mist in
 
dit is 'm,
Code: 
Range("A1:E" & Range("E2000").Offset.End(xlUp).Row).PrintPreview
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan