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

verzamelen openstaande posten over meerdere regels naar 1 cel

Status
Niet open voor verdere reacties.
Friend

Friend

Verenigingslid
Lid geworden
31 jan 2009
Berichten
1.128
Beste forummers,

Graag zou ik willen bereiken dat in het voorbeeld bestand (met fictieve namen) in kolom I, van de actieve periode, pp, de periode en het bedrag vermeldt wordt van de nog niet betaalde periodes.

Kan iemand mij hiermee op weg helpen?

Hartelijk dank

Friend
 

Bijlagen

  • test18.xlsx
    9,7 KB · Weergaven: 35
Ik zou een draaitabel gebruiken.
 

Bijlagen

  • test18.xlsx
    17,7 KB · Weergaven: 23
VenA,

Hartelijk dank voor je reactie:thumb:

De draaitabel geeft een prima overzicht maar dit heb ik helaas niet zo nodig.

Ik wil komen tot één cel met daarin vermeldt : april 18 € 10,00 / mei 18 € 10,00

Weet niet of jij of anderen nog een oplossing hiervoor hebben.

Hoor weer graag

Thanks

Friend
 
En waarom wil je het in 1 cel hebben? Veel 'rommel' in 1 cel heeft weinig voordelen.
 
Laatst bewerkt:
Als het over het gehele jaar kan gaan wordt het een zeer lange matrixformule wel of niet met gedefinieerde naam.
Ik heb zoiets ooit eens gemaakt, maar is je niet aan te raden.

Het simpelst is gewoon de draaitabel.
 
of met vba: zie grijze cellen
 

Bijlagen

  • samenvoegen schuld svp.xlsm
    16,6 KB · Weergaven: 28
Een combinatie met formules en een UDF kan ook. De UDf kan je denk ik zelf wel aanpassen na alle hulp die je hier al gekregen hebt.
 

Bijlagen

  • test18 (1).xlsb
    16,8 KB · Weergaven: 23
foutje in de format nu de juiste format:
 

Bijlagen

  • samenvoegen schuld svp met juiste format.xlsm
    16,7 KB · Weergaven: 32
Code: 
Sub hsv()
Dim sv, i As Long, b(1), a
sv = Cells(1).CurrentRegion
With CreateObject("scripting.dictionary")
    For i = 2 To UBound(sv)
     If sv(i, 6) = "" Then
        a = .Item(sv(i, 3))
         If IsEmpty(a) Then a = b
           a(0) = a(0) & IIf(IsEmpty(a(0)), sv(i, 3), "") & " / " & Format(sv(i, 4), "mmm yy") & "  " & Format(sv(i, 5), "currency")
           a(1) = a(1) + sv(i, 5)
         .Item(sv(i, 3)) = a
     End If
    Next i
 Cells(1, 11).Resize(.Count, 2) = Application.Index(.items, 0, 0)
End With
End Sub
 
Nog eentje met vba
 

Bijlagen

  • Kopie van test18.xlsm
    24,9 KB · Weergaven: 27
Beste VenA, Harry, Sylvester & Jean- Paul,

Hartelijk dank voor jullie oplossingen!

Ik ga er mee aan de slag :)

Ga ze één voor één toepassen en kijken welke voor mij het meest handig is.

In eerste instantie lijkt de code van Sylvester gelijk te doen wat ik wil.

En ja waar heb ik het nu eigenlijk voor nodig?

Ik zou dit normaal in acces doen, maar ik heb een heel klein leden bestandje waar elke kwartaal de nieuwe contributie als regels in een excel werkblad wordt gezet.
Afgelopen kwartalen staan daar ook in, met bij betaald ja of niets. In word maak ik een doc (verzendlijsten) aan dat ik e-mail gefilterd op het nieuwe kwartaal. Ik voeg dan de cel openstaande posten als slot regel toe zodat ze herinnerd worden aan een eventuele achterstand.

Ik had heel lang zitten stoeien in word met adreslijsten in om te voorkomen dat ik voor iedere openstaande post/kwartaal een nieuwe e-mail creëerde.
Toen ben ik het maar van de excel kant naar benaderen.


Nogmaals dank voor jullie deskundige input/oplossing!

Friend
 
Sylvester,

Nog één vraagje over jouw oplossing. Als ik in de regel van de openstaande posten alleen de bedragen wil opnemen waarvan in kolom B (maandact) de waarde "n" is hoe moet ik het VBA dan aanvullen (sorry ik heb weinig verstand van VBA)

Friend
 
dan krijg je zo iets:

ps misschien kun je een autofilter gebruiken.
 

Bijlagen

  • samenvoegen schuld svp 2.xlsm
    17 KB · Weergaven: 26
Sylvester,

Hartelijk dank :thumb: Dat doet het helemaal.

Auto filter is een goede tip:)

Friend
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan