Uitsolteren uitkomsten

[Jeroen001]

Goeiendag,

Ik heb een aantal berekeningen gemaakt die de plaats van ponsgaten moet berekenen.
Zoals hieronder is weergegeven heb ik ongeveer 60 getallen achter elkaar staan.

890 2390 3890 5390 786 812 2312 3812 5312 708 2208 3708 5208


Nou wil ik elke keer als het getal kleiner wordt een enter ertussen hebben.
De ene keer is het getal in de derde cel weer kleiner, en de andere keer is het getal in bijv. de 5de cel kleiner.
890 2390 3890 5390
786 812 2312 3812 5312
708 2208 3708 5208

Heeft iemand hier een oplossing voor?

Alvast bedankt!

Mvg, Jeroen Huijs

 

[bandito bob]

Dit zal waarschijnlijk het makkelijkst gaan met VBA, maar aangezien ik daar niet zo veel van weet heb ik een oplossing bedacht met "gewone" formules.

Kolom A heb ik verborgen, dit is een hulpkolom. Ik heb hem gemaakt t/m kolom AA voor de invoer, en t/m kolom M voor de uitvoering.

Let op!! de formules in kolom A zijn matrix formules, als je deze wilt veranderen zal je moeten bevestigen met CTRL-SHIFT-ENTER ipv ENTER.

edit: Ik lees net dat het om ca. 60 getallen gaat, ik heb het bestandje aangepast met een groter bereik, invoer van kolom B t/m EA, de uitvoering gaat van rij 4 t/m 20 en kolom B t/m Z.

 

[zapatr]

Ervan uitgaande
- dat de gegevens in rij 1 staan in het eerste blad, beginnend in A1;
- dat rij 1 moet worden doorlopen tot een lege cel gevonden wordt;
kun je onderstaande macro gebruiken, die de gegevens geordend weergeeft in rij 3 en volgende rijen van hetzelfde werkblad.

Sub Macro1()
' Deze macro is geschreven door Zapatr
Dim x As Integer, y As Integer, k As Integer
With Worksheets(1)
Range("A3:M30").ClearContents
k = 1: x = 3: y = 2
Cells(3, 1).Value = Cells(1, 1).Value
Do Until IsEmpty(Cells(1, k))
k = k + 1
If Cells(1, k).Value < Cells(1, k - 1).Value Then
x = x + 1: y = 1
End If
Cells(x, y).Value = Cells(1, k).Value
y = y + 1
Loop
End With
End Sub

 

[Jeroen001]

Hallo,

Ik weet ook niets van VBA dus dat wordt erg lastig.
Hoe jij het op hebt gezet lijkt mij een zeer geschikte oplossing Paul.

Alleen krijg ik de formules niet zo aangepast dat het bij mijn file ook werkt.
In bijgevoegd bestand staan de gegevens waarmee ik werk.
Het gaat dan om de getallen in rij 23.
Er staan nou geen 60 getallen achter elkaar maar dit is wel mogelijk.

Is het misschien mogelijk dat je even naar mijn document kunt kijken?

Alvast bedankt!!

Groeten Jeroen

 

[zapatr]

Ik weet ook niets van VBA dus dat wordt erg lastig.

Klik in de bijlage op "Herschik"
Wijzig dan de gegevens in rij 1 en klik opnieuw, dan kun je zien of het resultaat voldoet.

 

[bandito bob]

hierbij, in het geel gemaakte deel staan de formule's. Hij kijkt in rij 23 vanaf kolom D t/m EA.

 

[Jeroen001]

Harstikke bedankt allemaal voor de hulp en de snelle reactie's!
Nou heb ik een mooie oplossing voor het probleem.

Mvg. Jeroen Huijs