Help!

Problemen met uw pc? De vrijwilligers van Oplossing.be zoeken gratis met u mee! 8)

Meer weten over Oplossing.be?

Hoe stel ik een vraag?

Hulp bij posten

Recent

Auteur Topic: Zoeken en vergelijken of andere formule ?  (gelezen 2597 keer)

0 leden en 1 gast bekijken dit topic.

Offline Georgyboy

  • Volledig lid
  • **
  • Berichten: 132
  • Geslacht: Man
  • Oplossing.be
Zoeken en vergelijken of andere formule ?
« Gepost op: 10 augustus 2019, 20:13:30 »
Goede avond

Heb een tabel waar ik 1 waarde zoek uit een kolom met meermaals dezelfde waarde.
Vert.zoeken lukt uiteraard niet
index en vergelijken lukt me ook niet, waarschijnlijk doe ik wat verkeerd of moet de formule worden aangepast

Alvast bedankt,

Groeten,
Georgyboy
« Laatst bewerkt op: 11 augustus 2019, 07:10:02 door Georgyboy »

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 17.583
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Zoeken en vergelijken of andere formule ?
« Reactie #1 Gepost op: 10 augustus 2019, 20:21:59 »
Georgyboy,

ik ben zelf maar een beginneling in Excel, maar dit is volgens mij toch duidelijk:

Als je een waarde zoekt aan de hand van 1 voorwaarde en die waarde meermaals voorkomt in het zoekbereik, dan zal je een extra voorwaarde moeten toevoegen, of alle gevonden waarden tonen die aan de ene voorwaarde  voldoet.

Je zal (volgens mij) je vraag moeten overdenken en juist stellen wat je wil bereiken (en waarom).

:) SoftAid :)             
« Laatst bewerkt op: 10 augustus 2019, 23:08:15 door SoftAid »
Wegens veelvuldig melden van dubbelposten, het posten op verschillende help-fora van dezelfde vraag, zijn de gedragsregels op dit forum aangepast. Dubbelposten dient in de toekomst op voorhand gemeld te worden, met een melding en een link naar het topic op de andere site. De helpers wensen een weinig respect voor de inspanningen die ze doen om mensen te helpen. Je doet jezelf ook een plezier. Door je dubbelposten te melden wordt je vraag mogelijk op meerdere fora beantwoord.

Offline Georgyboy

  • Volledig lid
  • **
  • Berichten: 132
  • Geslacht: Man
  • Oplossing.be
Re: Zoeken en vergelijken of andere formule ?
« Reactie #2 Gepost op: 10 augustus 2019, 20:48:26 »
Hey Softaid,

Heb het bestandje niet om dat ik nu antwoord vanaf een tabbled

Bij een filter op de kolom ch num kan ik het art nummer vinden.
Denk dat dit ook met een zoekfunctie kan

Groetjes
Georgyboy
« Laatst bewerkt op: 11 augustus 2019, 07:11:08 door Georgyboy »

Offline emields

  • Volledig lid
  • **
  • Berichten: 124
  • Geslacht: Man
  • Oplossing.be
Re: Zoeken en vergelijken of andere formule ?
« Reactie #3 Gepost op: 10 augustus 2019, 22:30:47 »
zo?  En plaats in het vervolg een voorbeeld zonder externe verbindingen.

Offline Georgyboy

  • Volledig lid
  • **
  • Berichten: 132
  • Geslacht: Man
  • Oplossing.be
Re: Zoeken en vergelijken of andere formule ?
« Reactie #4 Gepost op: 11 augustus 2019, 07:28:19 »
Hey Emields, Bedankt !

Knap zeg  :thumbsup:

vraagjes,

1) kunnen we dit ook met 1 formule ?
2) kan de uitkomst met 1 getal ipv de meerdere mogelijkheden ?

Ben moeilijk h

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 913
  • Geslacht: Man
Re: Zoeken en vergelijken of andere formule ?
« Reactie #5 Gepost op: 11 augustus 2019, 09:13:15 »
Hallo,

Citaat
kunnen we dit ook met 1 formule ?
Eerst en vooral: in de oplossing van emields staan nul formules.
Je zou dat met een gans pakket lastige formules kunnen aanpakken maar hier is vba echt de beste oplossing.
Er staat ook nog een module in dat bestand. Die mag weg. Enkel de code op blad1 volstaat.
Zet daar ook eens als eerste regel
"Application.ScreenUpdating = False"
Citaat
kan de uitkomst met 1 getal ipv de meerdere mogelijkheden ?
Voeg voor de voorlaatste regel (dus vr Application.EnableEvents = True) nog toe:
Columns("H").RemoveDuplicates Columns:=1, Header:=xlYes
Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Volledig lid
  • **
  • Berichten: 132
  • Geslacht: Man
  • Oplossing.be
Re: Zoeken en vergelijken of andere formule ?
« Reactie #6 Gepost op: 11 augustus 2019, 09:19:34 »
Ok Bedankt Pitufo,

stukje bij stukje leren we weer iets bij :)

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 913
  • Geslacht: Man
Re: Zoeken en vergelijken of andere formule ?
« Reactie #7 Gepost op: 11 augustus 2019, 09:42:20 »
Oeps, kleine correctie nog (verandert niets aan resultaat, wel aan snelheid):
de instructie met "RemoveDuplicates" kan beter nog een regel hoger staan, dus voor "End If"
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 913
  • Geslacht: Man
Re: Zoeken en vergelijken of andere formule ?
« Reactie #8 Gepost op: 11 augustus 2019, 11:05:57 »
En, omdat het nu eenmaal plezant is, hierbij nog een methode die merkelijk sneller zou moeten werken
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect([G2], Target) Is Nothing Then
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    laatste = WorksheetFunction.Max(Cells(Rows.Count, 8).End(xlUp).Row, 2)
    Range("H2:H" & laatste).Clear
   
    Dim tabel As Variant
    Set tabel = Range("A1").CurrentRegion
   
    ReDim lijst(0, 0)
    code = [G2]
    aantal = 0
    For rij = 2 To tabel.Rows.Count
        If tabel(rij, 4) = code Then
            ReDim Preserve lijst(0, aantal)
            lijst(0, aantal) = tabel(rij, 1)
            aantal = aantal + 1
        End If
    Next rij
    If aantal > 0 Then
        [H2].Resize(aantal) = WorksheetFunction.Transpose(lijst)
        Range("H2:H" & aantal + 1).RemoveDuplicates Columns:=1, Header:=xlNo
    End If
    Application.EnableEvents = True
End If

End Sub
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline Georgyboy

  • Volledig lid
  • **
  • Berichten: 132
  • Geslacht: Man
  • Oplossing.be
Re: Zoeken en vergelijken of andere formule ?
« Reactie #9 Gepost op: 11 augustus 2019, 17:20:08 »
Werkt inderdaad snel  :)

Kan zo iets ? nu 1 waarde
Stel meerdere waardes van de tabel

CH NUM Art
13492 1210109
14310 ?
14301 ?
14309 ?
14305 ?
Etc
Etc
Etc
Etc
Etc
Etc
Etc
Etc

Alvast bedankt

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.859
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Zoeken en vergelijken of andere formule ?
« Reactie #10 Gepost op: 11 augustus 2019, 20:58:15 »
Ik snap het gebruik van VBA niet zo... Dit is toch werk waar een Pivot Table (draai tabel) voor is uitgevonden? Zet zowel het veld CH NUM als Art in de Row Labels. Dan heb je exact n ontdubbeld wat je wil zien.
OF heb ik het weer 'ns helemaal mis met deze aanname?
______________________________

Groet, Leo

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 1.859
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Zoeken en vergelijken of andere formule ?
« Reactie #11 Gepost op: 11 augustus 2019, 21:00:17 »
Ook nog maar ff in een bestandje gezet...  ;)
______________________________

Groet, Leo

Offline emields

  • Volledig lid
  • **
  • Berichten: 124
  • Geslacht: Man
  • Oplossing.be
Re: Zoeken en vergelijken of andere formule ?
« Reactie #12 Gepost op: 12 augustus 2019, 00:31:02 »
zie blad 2 zaal effen mee zoet zijn.

Offline Georgyboy

  • Volledig lid
  • **
  • Berichten: 132
  • Geslacht: Man
  • Oplossing.be
Re: Zoeken en vergelijken of andere formule ?
« Reactie #13 Gepost op: 12 augustus 2019, 06:56:56 »
Bedankt Readhead,
Bedankt Emields,

Nu heb ik mr dan genoeg antwoorden waar ik mee verder kan. _/-\o_  :thumbsup:

Ben er inderdaad nu 3 jaar zoet mee  ;D

Offline pitufo

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 913
  • Geslacht: Man
Re: Zoeken en vergelijken of andere formule ?
« Reactie #14 Gepost op: 12 augustus 2019, 12:49:24 »
@RedHead,

Helemaal akkoord, hoor. De kwestie is: het was begonnen met een vraag over vert.zoeken en vervolgens hl langzaam gegroeid tot en met reactie 8.
Vanaf bijkomende vraag in reactie 9 wou ik ook je richting uit, maar je was me weer voor (met dank trouwens!)
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

 


www.combell.com