optel vraagje

[Sander11]

Hallo beste lezer,

Ik probeer een optelling te maken. Dat gaat goed met de formule die er staat (zie voorbeeld). Ik wil graag in de optelling ook dat "bij" bedragen in mindering worden gebracht met de "Af" bedragen.

Los kan ik deze berekening laten doen met de formule subtotaal. Alleen als ik dan autofilter gebruik, dan telt hij niet de zichtbare resultaten op maar alle regels. Dat is nu net niet de bedoeling.

Ik hoop dat ik een beetje duidelijk ben.

Wie kan mij helpen met het laatste stukje?

Groetjes,

Sander

 

[Thankyou]

Kan je hier wat mee?

=SOM.ALS(B3:B12;"bij";C3:C12)-SOM.ALS(B3:B12;"af";C3:C12)

Succes,

 

[Sander11]

Hallo Thankyou

Dank voor je snelle reactie. Het is een andere manier dan met subtotaal werken. Echter, als ik de filterfunctie gebruik, dan blijft hij alle regels tellen en geeft hij niet het totaal van de dan geselecteerde cellen.

Groetjes,

Sander

 

[danny147]

Beste Sander11

Gebruik in je formule ipv;

=SUBTOTAAL(9;C3:C12)

Deze eens:

=SUBTOTAAL(109;C3:C12)

Dan telt hij alleen de rijen die zichtbaar zijn.

Klik op de formule en klik dan op de functie invoegen toets en dan op "helpinformatie over deze functie".
Daar zie je alle mogelijkheden van subtotaal.

Groetjes Danny. :thumb:

 

[Thankyou]

en met een hulpkolom?

=ALS(B3="af";-C3;C3)

Succes,

En Danny heeft de beste oplooing, ik zal mij toch eens moeten verdiepen in de formule "Subtotaal"

 

[Sander11]

Hallo Danny en Thankyou,

De formule met "109" erin doet het prima. Alleen wil ik nog graag dat hij dan ook het saldo geeft van alle "bij" posten en alle "af" posten. enig idee hoe? Ik dacht zelf aan de formule "som.produkt".

Groetjes,

Sander

 

[Thankyou]

=SOMPRODUCT((B3:B12="Bij")*(C3:C12))

en vervang "Bij" door "af"

Succes,

 

[krolik]

Wat een gedoe met formules! Gewoon voor de "bij"-bedragen een - zetten.

 

[Sander11]

Hallo Martin,

Deze formule had ik ook. Alleen als ik nu het autofilter gebruik, dan telt hij niet de zichtbare gegevens op maar alle gegevens. Ik zoek dus een combinatie van deze formule met die Subtotaal formule.


Groetjes,

Sander

 

[danny147]

Beste Sander11

Heb je al eens geprobeerd met de knop Subtotalen.

Kijk bij GEGEVENS dan OVERZICHT en dan op SUBTOTAAL.
Zie ook afbeelding.

Misschien kan je hiermee vooruit.

Groetjes Danny. :thumb:

 

[Sander11]

Goedemorgen Krolik,

Ik importeer vanuit ing en dat zijn nogal wat bedragen. Het zijn allemaal extra handelingen om daar weer en "-" voor te zetten. Ik hoop op een oplossing waarbij dat niet hoeft.

Groetjes,
Sander

 

[robdgr]

Ik importeer vanuit ing en dat zijn nogal wat bedragen.

Sander,

Uit de tijd dat het nog Postbank was onderstaande code die nog steeds werkt:

Sub Pb_in_kolommen_scheiden()
'
' Pb_in_kolommen_scheiden Macro
'

'
Application.ScreenUpdating = False
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 4), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1)), TrailingMinusNumbers:=True
    Cells.Select
    With Selection.Font
        .Name = "Verdana"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Selection.ColumnWidth = 16.75
    Range("A1").Select
    Columns("A:A").ColumnWidth = 8.38
    Columns("A:A").ColumnWidth = 10.25
    Columns("B:B").ColumnWidth = 27.38
    Columns("C:C").Select
    Selection.EntireColumn.Hidden = True
    Columns("G:G").Select
    Selection.NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"
    Columns("H:H").Select
    Selection.Insert Shift:=xlToRight
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""bij"",RC[-1],-RC[-1])"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISBLANK(RC[-1]),"""",IF(RC[-2]=""bij"",RC[-1],-RC[-1]))"
    Range("H2").Select
    Selection.AutoFill Destination:=Range("H2:H102"), Type:=xlFillDefault
    Range("H2:H102").Select
    Columns("F:G").Select
    Selection.EntireColumn.Hidden = True
    Columns("E:E").Select
    Selection.EntireColumn.Hidden = True
    Columns("I:I").Select
    Selection.Insert Shift:=xlToRight
    Range("A2:K50").Select
    Selection.Copy
Application.ScreenUpdating = True
End Sub

 

[Sander11]

Helaas nog niet de oplossing gevonden voor mijn vraag. Iemand nog iedeeen?
Met vriendelijke groet,

Sander

 

[robdgr]

Helaas nog niet de oplossing gevonden voor mijn vraag. Iemand nog iedeeen?

Sander,

Misschien een reactie op de aangedragen oplossingen en melden wat er nog schort?

 

[Sander11]

Hallo Rob,

De aangedragen oplossingen hebben nog niet geleid tot hetgeen dat ik bedoel. Je laatste oplossing heb ik nog niet probereerd. De eerlijkheid gebied mij te zeggen dat ik niet precies weet wat ik er mee aan moet.

De bedoeling is nog steeds.

autofilter op kolom A (kostenplaatsen)
selecteren op kolom B (kolom Af en Bij)
optellen van kolom C (bedragen)

Groetjes,

Sander

 

[HSV]

Ik heb een paar keer deze hele topic gelezen, en volgens mij is het met de =SUBTOTAAL
toch een goede oplossing.
Zowiezo als ik je laatste post lees.
Doe er eens een voorbeeld bestandje bij hoe je het voor ogen hebt, en wat het resultaat moet zijn na het filteren evt. op Blad2.

Overigens:
=SUBTOTAAL(9;C2:C21) = bij filteren gelijk aan =SUBTOTAAL(109;C2:C21)
De 109 in de formule werkt alleen als de rijen echt verborgen zijn, maar bij een filter zijn de rijen schijnbaar niet verborgen.