Macro met variabele SOM

[Arnoldrouw]

Bekijk bijlage Grootboek Vraag.xlsBekijk bijlage Grootboek Vraag.xlsIk ben op zoek naar het juiste commando om de Balans en V&W in de bijlage van een SOM formule te voorzien.
Bereik moet variabel zijn omdat bij een volgende export er Grootboeknummers zijn bijgekomen.

In de bijlage zit al een stukje macro en worden er 2 regels ingevoegd om de splitsing Balans en V&W aan te geven.

Wie kan mij helpen de juiste instructie te vinden om hier een SOM formule in te krijgen voor de BAlans en de V&W

Alvast bedankt

 

[spaarie]

Heb je hier wat aan? Met dank aan Cobbe en de zoekfunctie

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
lrij = Range("C2").End(xlDown).Row
bereik = Range("C2:C" & lrij)
Range(Cells(lrij + 1, 3), Cells(1000, 3)) = ""
Range(Cells(lrij + 1, 3), Cells(1000, 3)).Interior.ColorIndex = xlNone
Cells(lrij + 3, 3) = Application.WorksheetFunction.Sum(bereik)
Cells(lrij + 3, 3).Interior.ColorIndex = 6
End Sub

 

[Arnoldrouw]

Beste Spaarie,

Zoals je kunt zien ben ik nog maar junior member.
Ik krijg het stuk VBA van jou in ieder geval niet werkend.

Kun je mij wat verder op weg helpen.
(Als het goed is moet het vervolg aansluiten op het eerste reeds geprogrammeerde stuk.)

Alvast bedankt.

Arnold

 

[spaarie]

Beste Arnold,
Je Junior Member status staat los van je kennis met Excel. Dit heeft te maken met het aantal berichten die je plaatst...

Ik denk dat jij de code in module1 plaatst. Echter zou je deze achter blad1 (sheet1) moeten plaatsten.
Dus in je VBA editor (ALT+F11) dubbelklikken op blad1 (sheet1) en de code hierboven kopieren en plakken.:thumb:

In de modules plaatst je 'subs' en achter de werkbladen of thisworkbook 'private subs'

 

[Arnoldrouw]

Beste Spaarie,

Het probleem is opgelost. Ben met de oplossingvan bsalv (van worksheet.nl) vertrokken en hier kon ik mee uit de voeten.
Mijn excelsheet werkt nu naar behoren.
Nogmaals dank voor de geinvesteerde tijd en moeite !!

m vr gr
Arnold

 

[spaarie]

Beste Arnold,

Ik zag het langs komen. Toppie toch...

De oplossing door bsalv:

Sub subtotalen()
  Dim lrij     As Long
  lrij = WorksheetFunction.Match("4000", Columns("A"), 0)
  Range("A" & lrij).Resize(3).EntireRow.Insert xlDown
  With Range("A" & lrij)
    .Offset(1, 1).Value = "Subtotaal"
    .Offset(1, 2).FormulaR1C1 = "=SUBTOTAL(9,R2C:R[-2]C)"
    .Offset(1).Resize(, 3).Interior.ColorIndex = 3
  End With

  With Range("A" & Rows.Count).End(xlUp).Offset(2)
    .Offset(, 1).Value = "Subtotaal"
    .Offset(, 2).FormulaR1C1 = "=SUBTOTAL(9,R" & lrij + 3 & "C:R[-2]C)"
    .Resize(, 3).Interior.ColorIndex = 3

    .Offset(3, 1).Value = "Eindtotaal"
    .Offset(3, 2).FormulaR1C1 = "=R" & lrij + 1 & "C+R[-3]C"
    .Resize(, 3).Interior.ColorIndex = 3
  End With

End Sub

 

[Arnoldrouw]

Beste Spaarie,

Werkt idd heel goed op deze platforms.
Maar cross-posten doen we niet meer :d

Groeten,
Arnold

 

[spaarie]

Goed he! Ben er niet meer van af te meppen :shocked:. Deze forums zijn de place 2 be om het te leren...

Op dit forum is het toegestaan, net als 'bumpen'... is hier toegestaan, daar niet.
Misschien ff de regels van het andere forum doornemen KLIK HIER

Wens je nog veel plezier op deze forums en Excel'se