Alleen cellen weergeven welke aan bepaalde voorwaarden voldoen

[Biereco]

Zou graag een overzicht willen maken van alle verlopen facturen.
Heb per debiteur een los tabblad waar een onderscheid wordt gemaakt tussen openstaande en verlopen facturen.
In weer een ander tabblad wil ik alleen de debiteur (debiteuren) zien welke een of meerdere verlopen facturen open heeft staan.

Heb een voorbeeld erbij gedaan om te zien wat het resultaat ongeveer zou moeten zijn.Bekijk bijlage Overzicht facturen.xlsx

 

[sylvester-ponte]

is vba een probleem voor jou ?

het kan ook wel zonder maar dat maakt de formules zo ingewikkeld.

 

[sylvester-ponte]

hier een testje met vba:

 

[Biereco]

Hoi Sylvester,

VBA is niet mijn ding.

Maar het door jou gemaakte voorbeeld werkt voor zover ik nu kan overzien goed.
Ga er de komende dagen eens mee aan de slag, indien ik vragen laat ik het je wel weten.

Alvast bedankt voor de moeite.

Groet,

Frank

 

[Biereco]

Hoi Sylvester,

Werkt super dat VBA, zal ik mij toch eens in moeten verdiepen.

Ondertussen wel gelijk een volgende vraag.
Zou je ook een stukje VBA willen maken voor het tabblad "openstaande facturen"

Nu maak ik daar zelf een nieuwe regel aan als er een debiteur bij komt.
Zou graag per debiteur één regel willen met alleen het totaalbedrag wat open staat.

Zie bijlage.Bekijk bijlage Overzicht facturen (met vba) 2.xlsm

 

[VenA]

Als het openstaande bedrag altijd in C10 staat kan je deze gebruiken om het van alle debiteuren te zien

Sub VenA()
ReDim ar(Sheets.Count - 2, 3)
    For Each Sh In Sheets
        If UCase(Left(Sh.Name, 8)) = "DEBITEUR" Then
            ar(n, 0) = Sh.Name
            ar(n, 2) = Sh.Cells(10, 3).Value
            n = n + 1
        End If
    Next Sh
    With Sheets("Openstaande bedragen")
        .UsedRange.Offset(3).ClearContents
        .Cells(4, 1).Resize(UBound(ar), 3) = ar
    End With
End Sub

Of alleen de debiteuren die nog een bedrag open hebben staan

Sub VenA1()
ReDim ar(Sheets.Count - 2, 3)
    For Each Sh In Sheets
        If UCase(Left(Sh.Name, 8)) = "DEBITEUR" Then
            If Sh.Cells(10, 3).Value > 0 Then
                ar(n, 0) = Sh.Name
                ar(n, 2) = Sh.Cells(10, 3).Value
                n = n + 1
             End If
        End If
    Next Sh
    With Sheets("Openstaande bedragen")
        .UsedRange.Offset(3).ClearContents
        .Cells(4, 1).Resize(UBound(ar), 3) = ar
    End With
End Sub

 

[Biereco]

2e optie lijkt mij het handigst, alleen cel C10 is niet vast, deze verschuift per factuur naar beneden.
Wellicht een optie om de VBA code toe te voegen aan het voorbeeld document, aangezien VBA nog niet mijn ding is.

Alvast bedankt.

 

[VenA]

Probeer deze eens

Sub VenA()
ReDim ar(Sheets.Count - 2, 3)
    For Each Sh In Sheets
        With Sh
            If UCase(Left(.Name, 8)) = "DEBITEUR" Then
                If .Cells(Sh.Range("C" & Rows.Count).End(xlUp).Row, 3).Value > 0 Then
                    ar(n, 0) = .Name
                    ar(n, 2) = .Cells(.Range("C" & Rows.Count).End(xlUp).Row, 3).Value
                    n = n + 1
                End If
            End If
        End With
    Next Sh
    With Sheets("Openstaande bedragen")
        .UsedRange.Offset(3).ClearContents
        .Cells(4, 1).Resize(UBound(ar), 3) = ar
    End With
End Sub

 

[sylvester-ponte]

hier een testje:

 

[Biereco]

@ Sylvester,

VBA code werkt zoals ik het zou willen.

Super bedankt voor de snelle oplossing, en dat nog wel op Koningsdag.

Groet,

Frank

 

[VenA]

O moest het in een voorbeeld documentje:d