goedenamiddag allen,

Voor mijn volgende TA-UF "UF_TAverwerk" heb ik een vraagje mbt een (multiselect) listbox...

De bedoeling is dat ik hierin een lijst krijg (die aan bepaalde voorwaarden voldoet) van alle nog openstaande TA's tot aan het volgende hoofdinkomen (bron-werkblad = "TA-todo").
Van elke gevonden TA moet dan de datum, de tegenpartij en de mededeling vermeld worden in de listbox waarna ik er dan 1 of meerdere kan selecteren die ik wens te verwerken.

Nadat ik dan op de commandbutton "verwerken" klik moet voor elk geselecteerd item terug gegaan worden naar de juiste rij in het bron-werkblad en dienen de nodige gegevens in
een bepaalde opmaak weggeschreven te worden naar het doel-werkblad "TA-done".

Op het UF zelf staat enkel een frame met daarin 2 optionbuttons (inkomend en uitgaand), de listbox en dan de commandbutton.
De eerste voorwaarde is dat de cel in kolom "I" leeg moet zijn (dus nog niet verwerkt).
De tweede voorwaarde is afhankelijk van de gekozen optionbutton op het UF zelf (enkel inkomende of enkel uitgaande).
De derde voorwaarde is dat als de option "uitgaand" is gekozen de datum kleiner moet zijn dan het eerstvolgende hoofdinkomen en dat als de option "inkomend" is gekozen dat
de datum kleiner of gelijk aan "vandaag()" moet zijn.

Nu heb ik dus 2 vragen :
Enerzijds welke eigenschappen ik exact moet geven aan mijn listbox.
Anderzijds hoe ik de correcte weergave in mijn listbox krijg en vervolgens verder verwerk.

In bijlage mijn versie (1.1b) met het tweede UF "UF_TAverwerk".


Alvast dank op voorhand.

groetjes,
Bieke

***tweede update***

Het is me gelukt om de listbox te vullen met zowel enerzijds de inkomende TA's als anderzijds de uitgaande TA's waarbij aan alle voorwaarden is voldaan..

Dit is de code voor beide lijstjes achter de optionbuttons :
Private Sub OptionButton1_Click()
  Dim begin As Long, eind As Long, zoek As Variant, i As Long, TAlijst As Variant, TA As Variant, zkeind As Long, datum As Variant
  TAlijst = ""
  With Sheets("TA-todo")
    begin = .Cells(Rows.Count, 9).End(xlUp).Row + 1
    zkeind = .Cells(Rows.Count, 1).End(xlUp).Row
    datum = Date + 1
Nogeens:
    Set zoek = .Range("C" & begin & ":C" & zkeind).Find(datum)
    If zoek Is Nothing Then
        datum = datum + 1
        GoTo Nogeens
    End If
    eind = zoek.Row - 1
    For i = begin To eind
      If .Cells(i, 1) = "IN" Then
        TA = .Cells(i, 3) & "_" & .Cells(i, 4) & "_" & Replace(.Cells(i, 8), " ", "_")
        TAlijst = TAlijst & TA & " "
      End If
    Next i
    TAlijst = Split(RTrim(TAlijst), " ")
    ListBox1.List = TAlijst
  End With
 
End Sub

Private Sub OptionButton2_Click()
  Dim begin As Long, eind As Long, zoek As Range, i As Long, TAlijst As Variant, TA As Variant, zkeind As Long
  TAlijst = ""
  With Sheets("TA-todo")
    begin = .Cells(Rows.Count, 9).End(xlUp).Row + 1
    zkeind = .Cells(Rows.Count, 1).End(xlUp).Row
    Set zoek = .Range("D" & begin & ":D" & zkeind).Find("afz1")
    eind = zoek.Row - 1
    For i = begin To eind
      If .Cells(i, 1) = "UIT" Then
        TA = .Cells(i, 3) & "_" & .Cells(i, 4) & "_" & Replace(.Cells(i, 8), " ", "_")
        TAlijst = TAlijst & TA & " "
      End If
    Next i
    TAlijst = Split(RTrim(TAlijst), " ")
    ListBox1.List = TAlijst
  End With
End Sub

Nu ga ik de verwerking ervan (proberen te) coderen...
Als ik tegen een probleem zou aanlopen dan laat ik het hier wel weten...

Nieuwe versie van het bestand pas nadat huidige onderdeel succesvol is afgerond of ingeval van een hindernis.


groetjes,
Bieke

Hey Bieke,
Geen pc bij de hand, maar als die onderste ook de laatste is die je invult zal het met die code werken.
Een change-event is wat je daarvoor zoekt.
Groetjes,
Molly

ik ben hier nog eens met een soortgelijke vraag doch met compleet andere handelingen.

Bij de voorgaande vraag betrof het een werkblad dat geactiveerd wordt via een knop "TA-verwerkt raadplegen" op de UF_start.
Zodra deze opent krijg ik dan een msgbox met de vraag of ik in die 6e kolom gegevens wil aanvullen/wijzigen.
Klik ik ja dan wordt de eerste lege cel in de 6e kolom geselecteerd, klik ik nee dan gaat hij automatisch terug naar
mijn werkblad "START". Die laatste actie (teruggaan naar werkblad "START") wordt nu dus ook getriggerd zodra die
6e kolom volledig is aangevuld.

Een ander werkblad wordt geactiveerd via een knop "TA-planning raadplegen" op de UF_start.
Zodra deze opent krijg ik ook hier een msgbox met de vraag of ik gegevens wil wijzigen/verwijderen.
Klik ik ja dan wordt het autofilter ingeschakeld zodat ik kan filteren wat ik nodig heb en kan ik de nodige aanpassingen doen.
Klik ik op nee dan gaat hij automatisch terug naar mijn werkblad "START".

Nu ben ik op zoek naar een manier om, als ik klaar ben met mijn wijzigingen en het autofilter handmatig terug heb uitgeschakeld,
om ook van hieruit automatisch terug naar mijn werkblad "START" te gaan.

Ik had gehoopt dat ik dit kon laten triggeren zodra ik handmatig het autofilter uitschakel maar ik heb totaal geen idee hoe en waar
ik dat kan coderen.

Het handmatig uitschakelen van het autofilter is de enige handeling die ik zo meteen kan bedenken om aan te geven dat ik "klaar" ben
met het werkblad.

Iemand suggesties hoe ik dit kleine hindernisje kan weg werken?

Alvast bedankt.
groetjes,
Bieke

Dát heb ik nog nooit meegemaakt. Ik waag nog eens een gokje: misschien in een kortstondig moment van onoplettendheid de dubbele quotes niet gebruikt?

welnee, ik had het ook nog nooit meegemaakt... , vandaar mijn " "-smiley...
en ik heb de code ingegeven zoals ik het in mijn bericht #199 had vermeld, letterlijk met selecteren en copy/paste 

Je zou het natuurlijk ook opportunistisch kunnen bekijken en stellen dat autofilter handmatig uitschakelen minstens even veel werk is als op een knop klikken, een knop die je dan beide acties laat uitvoeren. Of denk ik weer te simpel?

nee hoor, je denkt niet te simpel  . Via een knop is de snelste en simpelste wijze...
Maar ik was in mijn leergierigheids-modus gewoon benieuwd of dit haalbaar was 
want dat uitschakelen van het filter zou ik aanvankelijk sowieso met vba gedaan hebben maar in mijn zoektocht naar een "trigger", om nadat ik "klaar" ben, automatisch terug te kunnen keren naar mijn werkblad "START" was het handmatig uitschakelen van het autofilter de enige handeling die ik kon bedenken.
Maar eigenlijk wou ik echt proberen om het schakelen tussen werkbladen en UF's in mijn volledig bestand compleet automatisch te kunnen zonder enige tussenkomst van de gebruiker.
Maar dat doel zal dan mbt dat ene werkblad gewoon te hoog gegrepen zijn  .

groetjes,
Bieke

Die versie zou ik héél graag eens zien, lijkt me fascinerend genoeg om te onderzoeken...

Ik heb dezelfde actie nog eens toegepast en heb nu gezien wat er fout is... al blijft het mij een raadsel waarom
de paste-actie zich zo gedraagt...
Om één of andere reden wijzigt hij de "rechte quotes" vanuit de copy-actie naar "schuine quotes" bij de paste-actie 

zie bijlage

groetjes,
Bieke

Hey Bieke,

In afwachting van een 

Het knopje blijft dus toch voor wrevel zorgen...
Dat je iets moet doen, daarover waren wij het al unaniem eens.
Een enigszins onnozele (o.a. door zijn eenvoud) maar werkende oplossing vind je in bijlage. Klik in of scroll naar het grote witte vak
Dit is zoals bijna altijd maar een aanzet. Als het je bevalt zie ik je dus wel nog wat aanpassingen doen

Groetjes,
Molly