-
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.
vert.zoeken 2 waarden
- Onderwerp starter alfar22
- Startdatum
- Status
Als dit via vert.zoeken niet wil hoe los ik dit dan op ?
Het moet toch zeker mogelijk zijn dat excel de grootste waarde neerzet en mocht deze nog een keer voorkomen deze ernaast te zetten.
En daar de bijbehorende namen bij te zetten.?
Het moet toch zeker mogelijk zijn dat excel de grootste waarde neerzet en mocht deze nog een keer voorkomen deze ernaast te zetten.
En daar de bijbehorende namen bij te zetten.?
En toch is het zo:
Ik heb een nieuw voorbeeld voor je gemaakt, want macro's kunnen dit wel oplossen. Om de macro te bekijken doe je Alt F11.
De code van de macro is als volgt:
Sub Zoek()
'in antwoord slaan we alle woorden op
Dim antwoord As String
'we selecteren de eerste cel uit de lijst
Range("b7").Select
'wanneer de cel niet leeg is zitten we nog in de lijst en moeten we de loop doorlopen
While ActiveCell.Value <> ""
'wanneer de d kolom 2 cellen naar rechts gelijk is aan e16 dan moeten we het antwoord opslaan
If ActiveCell.Offset(0, 2).Value = Range("E16").Value Then
'dat doen we hier
antwoord = antwoord + " " + ActiveCell.Offset(0, 1).Value
End If
'en daarna moeten we naar de cel er onder zodat we de hele lijst bekijken
ActiveCell.Offset(1, 0).Select
Wend
'tot slot schrijven we het antwoord weg in F16
Range("F16").Value = antwoord
End Sub
Ik heb een nieuw voorbeeld voor je gemaakt, want macro's kunnen dit wel oplossen. Om de macro te bekijken doe je Alt F11.
De code van de macro is als volgt:
Sub Zoek()
'in antwoord slaan we alle woorden op
Dim antwoord As String
'we selecteren de eerste cel uit de lijst
Range("b7").Select
'wanneer de cel niet leeg is zitten we nog in de lijst en moeten we de loop doorlopen
While ActiveCell.Value <> ""
'wanneer de d kolom 2 cellen naar rechts gelijk is aan e16 dan moeten we het antwoord opslaan
If ActiveCell.Offset(0, 2).Value = Range("E16").Value Then
'dat doen we hier
antwoord = antwoord + " " + ActiveCell.Offset(0, 1).Value
End If
'en daarna moeten we naar de cel er onder zodat we de hele lijst bekijken
ActiveCell.Offset(1, 0).Select
Wend
'tot slot schrijven we het antwoord weg in F16
Range("F16").Value = antwoord
End Sub
Oke Snabbi bedankt.
Maar is dat nou echt nodig voor zoiets "simpels"
Ik gebruik het lieftst zo weinig mogelijk macro's.
Mocht het echt niet anders kunnen zal ik je macro gebruiken.
Of kan het ook door bijv. 2 lijstjes te maken waarvan dan de een ondersteboven staat zodat dan ook de eerste waarde wordt gevonden,met vert.zoeken?
Met evt. een uitbreiding van de formule om geen 2 gelijke namen te krijgen mocht het getal maar 1 keer voorkomen.
Ik doe maar een gooi.
Maar is dat nou echt nodig voor zoiets "simpels"
Ik gebruik het lieftst zo weinig mogelijk macro's.
Mocht het echt niet anders kunnen zal ik je macro gebruiken.
Of kan het ook door bijv. 2 lijstjes te maken waarvan dan de een ondersteboven staat zodat dan ook de eerste waarde wordt gevonden,met vert.zoeken?
Met evt. een uitbreiding van de formule om geen 2 gelijke namen te krijgen mocht het getal maar 1 keer voorkomen.
Ik doe maar een gooi.
- Status
