vba code met som op basis van criterium

[stefano]

Beste,

In bijlage een bestand met data. Hierin zou ik graag per categorie (kolom A) een totaal zien verschijnen van de waarden in kolom K.

Ik weet echter niet hoe ik dit in VBA dien te zetten.

Als de cel in kolom A begint met cijfer cijfer cijfer spatie - dan zou een totaal moeten gemaakt worden in dezelfde rij in kolom K. Dit toaal mag maar berekend worden tot het volgende criterium cijfer cijfer cijfer spatie - in kolom A. Bovendien is het aantal rijen variabel.

In bijlage een bestand met hopelijk een duidelijkere uitleg ...

dank alvast voor jullie effort.

Stefano

 

[edmoor]

Test deze eens:
Bekijk bijlage vba - totaal op basis van criterium.xlsm

 

[stefano]

Ed,

Ik val gewoon van mijn stoel, wowwwwwwwww ! Dank je wel. Het werkt super.

Enige wat ik nog wou vragen : je zoekt in de code naar "-" maar daar had ik graag gehad dat er gezocht wordt naar 'cijfer cijfer cijfer spatie -' want he kan ook gebeuren dat in één van de rijen het nummer een omschrijving komt waarin een - staat en dan gaat het fout. Jouw bestand aangepast in bijlage.

Super bedankt alvast!

 

[stefano]

Hallo Ed,

Zou jij een bericht verwijderd hebben?

In dat bericht zat een bestand. In a33 staat 'asdasd - sdasd'. Daar berekent hij een totaal voor. Als je nogmaals op de button klikt dan telt hij nogmaals die hoeveelheid, nogmaals klikken doet ie maal 3 enz.

Maar ik vind het bestand niet meer misschien ben je zelf al op zoek gegaan... ?

 

[edmoor]

Ik heb inderdaad een bericht verwijderd dat niet goed was.
Momenteel heb ik er geen tijd meer voor en zal er vanavond nog eens naar kijken.

 

[stefano]

Super, dank je wel alvast!

 

[edmoor]

Het is overigens beter om de omschrijving in een eigen kolom te zetten.

 

[VenA]

Zonder al te veel zoeken waarbij volgens mij jouw subtotaal in K95 niet overeenkomt met het gestelde.

Sub CommandButton1_Click()
  ar = UsedRange
  For j = 1 To UBound(ar) 'of UBound(ar)-1
    If ar(j, 1) <> "" Then
      x = Split(ar(j, 1), " - ")
      If UBound(x) > 0 And IsNumeric(x(0)) Then
        b = True
        y = j
        ar(j, 11) = 0 'mogelijk overbodig
       Else
        If UBound(x) > 0 And Not IsNumeric(x(0)) Then b = False
        If b Then ar(y, 11) = ar(y, 11) + ar(j, 11)
      End If
    End If
  Next j
  UsedRange = ar
End Sub