Verticaal zoeken

[Rob356]

Hallo allemaal,

Mijn probleem is het volgende:
In kolom 1 staan verschillende malposities (1 t/m 3) door elkaar.
In kolom 2 staan de uitkomsten.
Ik wil nu graag alle uitkomsten van malpositie 1 onder elkaar hebben staan
en alle uitkomsten van malpositie 2 onder elkaar in de volgende kolom enz.
Ik gebruik de formule: VERT.ZOEKEN($H$6;$C7:$D21;2;ONWAAR)

In het begin gaat het goed, totdat de malposities niet meer op volgorde staan.
Ook staat er #N/B, wat ik niet wil. Zie de bijlage.
Mijn doel is om uiteindelijk een gezamenlijke grafiek te tonen van alle malposities.

Groet,
Rob

 

[Ad Becude]

Hoi Rob,

Welkom op het forum.
Ik zie geen bijlage.
Je moet je bestandje wel ff zippen, of rarren.
En via "Overige Opties" en "Beheer Bijlage" uploaden

 

[Rob356]

Sorry, nu met bijlage!

Groet,
Rob

 

[Knalmatics]

onwaar moet je vervangen door 0

Maar je moet hier de Als funtie gebruiken zie bijlage

 

[Rob356]

Bedankt voor de tip!

Ik zit nu alleen nog met het volgende probleem dat elke
rij maar 1 keer mag voorkomen.
Voorbeeld: de uitkomst in cel D15 komt nu meerdere malen voor.

Groet,
Rob

 

[Knalmatics]

zie mijn vorig bericht bijlage

 

[Rob356]

Bedankt Knalmatics!
Ik ben nu alweer een stap verder.

Nu zie ik graag dat de nieuwe kolom uitkomsten
de nul uitkomsten verwijderd worden zodat alle
getallen ongelijk aan nul onder elkaar komen te staan.

Eigenlijk moet excel dan alle getallen gelijk aan nul negeren
en kijken naar de volgende cel. Maar ja hoe doe je dat?

Rob

 

[Knalmatics]

in bijlage een nieuw voorbeeld.
Er zit wel een stukje VBA in
deze zorgt ervoor dat alle nullen verwijdert worden.

stukje vb ziet er als volgt uit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For i = 1 To 32


If Cells(5 + i, 5) = "0" Then p = p + 1
If Cells(5 + i, 5) <> "0" Then Cells(5 + i - p, 8) = Cells(5 + i, 5)

If Cells(5 + i, 6) = "0" Then q = q + 1
If Cells(5 + i, 6) <> "0" Then Cells(5 + i - q, 9) = Cells(5 + i, 6)

If Cells(5 + i, 7) = "0" Then r = r + 1
If Cells(5 + i, 7) <> "0" Then Cells(5 + i - r, 10) = Cells(5 + i, 7)




Next i


End Sub


Groetjes
Kristof

 

[Knalmatics]

For i = 1 to 32

32 = de lengte van de tabel met getallen.


opbouw van code cel is als volgt
Cel(rij,kolom)

en de rest is wiskunde

groetjes
Kristof

 

[Rob356]

Hoi Kristof,

Dat stukje over Visual Basic gaat mij iets te snel.
Worden de getallen nul nu automatisch verwijderd in jouw bijlage ?
Of moet ik iets uitvoeren?

Groet,
Rob

 

[Knalmatics]

als er een cel verandert in de sheet wordt het stukje VBA
automatisch uitgevoerd. test maar eens uit om bepaalde waarden aantepassen

 

[Rob356]

Geweldig, het werkt!
Bedankt Kristof voor je uitleg.

Groet,
Rob

 

[Knalmatics]

graag gedaan

:thumb::thumb:

Groetjes
Kristof