Gegevens zoeken en weergeven in een pop-up

[Harleydude]

Hallo beste mensen,

Ik heb in een bestandje een werkblad gegevensoverzicht waarin ik een invoer pop-up scherm tevoorschijn kan halen waarmee ik gegevens weg kan schrijven naar een werkblad verzamel.

Nu wil ik via een pop-up zoeken naar gegevens die dan in het pop-up scherm zichtbaar worden gemaakt.
In het pop-up scherm kunnen 4 zoekcriteria's ingegeven worden, het is de bedoeling dat er minimaal 1 criteria ingevuld wordt en maximaal allemaal dus.

Als er gezocht is dan zou ik graag willen dat van de betreffende gevonden rijen de kolommen A,E en F zichtbaar worden gemaakt.

Ik heb al van alles geprobeerd maar kom er totaal niet uit,
Wie wil mij helpen.

Zie proefbestandje: Bekijk bijlage budget poging 3.xlsm

Met vriendelijke groet Harleydude

 

[wieter]

Voorbeeldje gemaakt hoe het zou kunnen.
Filteren op datum is nog niet ok.
De andere comboboxen werken wel.
Ik zoek nog even om de datums te filteren op maand.

ps. Ik zou wel de comboboxen afhankelijk maken van elkaar.

 

[HSV]

Om de combo's te vullen.

Private Sub userform_Initialize()
    With Sheets("Blad3")
      For j = 1 To 4
        Me("ComboBox" & j).List = .Cells(1).CurrentRegion.Columns(j).SpecialCells(2).Value
      Next j
    End With
End Sub

Om te filteren op maand.

Private Sub CommandButton1_Click()
Set c = Cells(1).CurrentRegion
For i = 1 To 4
 If Me("ComboBox" & i).ListIndex > -1 Then
    With c
      If i = 1 Then
        .AutoFilter 1, , xlFilterValues, Array(1, Format(ComboBox1.Value & "-2016", "mm-d-yyyy"))
      Else
        .AutoFilter i, Me("ComboBox" & i).Value
      End If
        .Offset(1).Copy [Blad2!A1]
    End With
         With [Blad2!A1].CurrentRegion
           ListBox1.List = .Value
           .ClearContents
         End With
   End If
 Next i
 c.AutoFilter
   For i = 1 To 4
     Me("ComboBox" & i).ListIndex = -1
   Next i
End Sub

 

[Harleydude]

Heren, Hartelijk dank voor de input.

Hier kan ik zeker iets mee en met het gegeven materiaal ga ik weer even stoeien om het in mijn oorspronkelijke programmaatje te gebruiken.

Met vriendelijke groet,

 

[wieter]

Door de bijdrage van Harry, besef ik WEER maar eens, dat ik nog in mijn kinderschoenen sta.
Bedankt Harry (weer wat wijzer).

Ik heb als tijdverdrijf het bestand van Harleydude uitgebreid met de mogelijkheid om nieuwe gegevens in te voeren.
Ik stuit echter op een probleem met de foutafvang.
Ik denk niet dat ik hiermee inbreek in de vraag van Harley, daar hij er zelf mogelijk voordeel uit haalt.

Stel, ik heb een foute menukeuze gemaakt.
Het submenu wordt gevuld met mijn foute menukeuze.
Ik herstel mijn menukeuze.
Het submenu wordt opnieuw gevuld, maar mijn foute keuze blijft ook staan.
Ik weet dat ik de ListIndex ergens terug op -1 moet zetten.
Maar ??????????????

 

[wieter]

Oplossing gevonden:" If ComboBox1.ListIndex > -1 Then ComboBox2.Clear "

 

[Harleydude]

Ondanks de prima inbreng van Wieter en HSV en het proberen om hun suggesties toe te passen krijg ik het toch niet voor elkaar.

Zie voorbeeld bestand Bekijk bijlage budget poging 3.xlsm

Als ik sorteer op maand krijg ik toch alle maanden te zien, dat is ook het enigste dat ik te zien krijg.
In het bestandje van wieter werd de hele rij zichtbaar gemaakt, dat krijg ik niet voor elkaar.

Eigenlijk wil ik ook niet dat de gehele rij zichtbaar wordt maar in de rij alleen de waarde in Kolom A, E en F

Kortom ik kom er helemaal niet meer uit en begin toch te denken dat het te hoog gegrepen is voor mij.

Is er nog iemand die mij de helpende hand toe kan reiken??

Note: dit is een oefenbestandje : als ik in dit bestandje zaken voor elkaar krijg gebruik ik dit in een zelfgemaakt prive budgetprogramma

Met vriendelijke groet,

Harleydude:

 

[HSV]

Het kan simpel als je je aan de spelregels houdt van #3.
De namen van de comboboxes hun oorspronkelijke naam geven (combobox1, combobox2 , 3, enz.).
In de eerste kolom de maandnamen voor de eerste box, de rest in de kolommen op volgorde voor de overige combo's.

Simpele invoer in tabblad is simpele uitvoer in codes.

 

[Harleydude]

Mijn Excuses,

Ik heb een verkeerd bestand ingevoegd.
Het bestand waar ik mee bezig was is:Bekijk bijlage budget poging 4.xlsm

Hierin had ik de comboboxen al terug gezet.

ComboBox 3 heb ik afhankelijk gemaakt van de inhoud van ComboBox 2 vanwege 2 redenen, de eerste is omdat ik dit ook zo in mijn oorspronkelijke budgetprogramma heb en ten tweede omdat in mijn ogen de lijst van ComboBox dan te lang wordt (ongeveer 45 keuzes) of zit hier soms het probleem in??

Met vriendelijke groet,

Harleydude:

 

[wieter]

Harleydude,
1. Je moet op het blad verzamel, de datums ook als datum ingeven.
2. Bij de eigenschappen van de listbox moet je het aantal kolommen, die je wil zien, ingeven.
3. De code van Harry moet je ook correct overnemen.(eventueel juist aanpassen)

 

[Harleydude]

Hartelijk dank voor de missing information en de foutherstelling Wieter

Nu heb ik hem bij mij ook werkend en gezien waar het fout ging, bijv: eerste keer dat ik een listbox gebruik dus wist ik het niet van de instelling "CollumnCount"

Nu kan ik hem in mijn bestaande programma inbouwen.

Vriendelijke groet aan alle meedenkende mensen.

Harleydude,

 

[wieter]

Je bent er nog niet mee klaar Harley.
Er zou nog een soort van foutafvang moeten bijkomen.
Alles gaat goed zolang de zoekwoorden in de CBoxen, ook voorkomen op het verzamelblad.
Als je bijvoorbeeld wil zoeken hoeveelmaal je gepind hebt in de maand januari, en je hebt NIET gepind in januari, dan zou je een lege listBox moeten zien (Of een MsgBox-melding). En hier loopt het nog fout.
Die foutafvang met "If IsError enz... Then GoTo enz.." Krijg ik niet klaar.