Huisje, Boompje, Beestje

[Dummietoo]

Hallo, ben er weer met een vraagje

Ik wil graag een soort queu maken.
Het aantal items in de queu is onveranderlijk, maar enkel de meest recente komen
er in voor. Telkens er een nieuw bijkomt, verdwijnt het oudste dus.

Hier een voorbeeldje :

De situatie nu : (vier velden onder mekaar)
Beestje
Boompje
Huisje
Vrouwtje

Nu komt er een nieuw item (Kindje) bij, dit wordt ingevoerd in een daartoe bestemd veld.
Het oudste (onderste) item verdwijnt, en het nieuwe wordt bovenaan het lijstje toegevoegd.
Nieuwe situatie :
Kindje
Beestje
Boompje
Huisje

In dit voorbeeld hebben we dus vijf velden.
Vier die het resultaat weergeven en een voor de invoer.
Hoe doe ik dit ? Ik zoek me echt helemaal suf...

 

[Demeter]

Ben bang dat dit alleen met VBA gaat:

Sub test()

If Range("C1") <> "" Then
    Range("A4") = Range("A3")
    Range("A3") = Range("A2")
    Range("A2") = Range("A1")
    Range("A1") = Range("C1")
End If
    
End Sub

Hier heb je dan wel weer een knop voor nodig, om het omz te zetten.

Groet,
Ferenc

Mijn kennis van formules is nu ook niet zo groot maar misschien kan het daar dus wel mee.

 

[Wigi]

Mijn kennis van formules is nu ook niet zo groot maar misschien kan het daar dus wel mee.

Met formules gaat het niet volgens mij.

Wel met VBA code. Best een Worksheet_Change evnt.

 

[Dummietoo]

Oei, jullie weten vast nog wel wat een beginner ik ben he...
Dus, wat is een "Worksheet_Change evnt" ?

En die "knop" in het bovenste antwoord ?

 

[Demeter]

Dummietoo,

Zie voorbeeld file, hierin staat ok extra uitleg.
Bij vragen kan je deze altijd hierstellen.

Groet,
Ferenc

 

[Dummietoo]

Waaaw *:love:

Kant en klaar...
O, wat ben ik toch jaloers op jullie... *

Heel erg bedankt !

 

[Demeter]

Dummietoo,

We zijn allemaal zo begonnen als jij. De een is er wat beter in geworden dan de ander door de tijd heen. De een doet het voor de hobby de ander voor zijn werk.

In ieder geval als je vragen hebt kan je ze altijd hier op he forum kwijt. De mensen hier helpen je graag maakt niet uit wat voor vraag, hoe simpel dan ook.

Ik ben blij dat we konden helpen en tot de volgende vraag / antwoord.

Groet,
Ferenc

 

[Dummietoo]

Ben er al weer...

Ik moet nu telkens er in C1 (uit de oplossing van Demeter) een nieuwe
waarde werd ingegeven eerst "pijl omlaag" of "enter" doen, en dan met
de muis op de knop drukken. Het zou handig zijn als dit in één beweging
met een "enter" zou kunnen.

En is het dan ook mogelijk om C1 na het éénmaal drukken op "enter"
als actieve cel te behouden ? Zo kan dan meteen een volgende waarde
ingegeven worden...

*

 

[Demeter]

mmmmmmmmmmmm,
probeer deze eens:
kopieer onderstaande code
plak deze op je werkblad (in de vba-editor dubbel klik op Blad1(Blad1))
ga terug naar Excel en test.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Als Cel C1 niet leeg is voer dan de code uit
    If Range("C1") <> "" Then
        'Cel A4 is de waarde uit cel A3
        Range("A4") = Range("A3")
        'Cel A3 is de waarde uit cel A2
        Range("A3") = Range("A2")
        'Cel A2 is de waarde uit cel A1
        Range("A2") = Range("A1")
        'Cel A1 is de waarde uit cel C1
        Range("A1") = Range("C1")
        'Maak cel C1 leeg
        Range("C1") = ""
    End If

'Selecteer cel C1
Range("C1").Select

'Beeindiging van je macro
End Sub

Succes.
Ferenc

 

[Dummietoo]

Yesss...

Ik vlieg er meteen in *:thumb:

Thx !!

 

[Demeter]

Dummietoo,

Merk wel op dat je nu niets anders kan selecteren. Als dit niets uitmaakt. Perfect. Anders moet je de geschreven code posten in een nieuw topic zodat anderen er ook nog naar kunnen kijken. Ben zelf ook nog niet zo begaan met worksheet_changes en dergelijke.

Groet,
Ferenc

 

[Dummietoo]

Hmm, hoe bedoel je "niets anders kan selecteren" ?
Ik kan in de rest van het blad precies toch nog alles doen...

Met de extra regel Range("C1").Select wordt cel C1 inderdaad meteen weer
actief en kan een volgende waarde ingevoerd worden. Het drukken op "enter"
en daarna met de muis via de knop de macro activeren blijft echter nodig.

Er is nu al wel één handeling minder noodzakelijk om meerdere waarden
achtereen in te geven. Maar zou het "knop-drukken" niet weg kunnen, het
vervangen door een "enter" die ook meteen de cel weer actief maakt ? Zo
werkt het nu :

- Waarde ingeven
- Enter
- Knop drukken (de cel wordt nu meteen terug actief, dat is ok)
- Volgende waarde ingeven

Bedankt voor je moeite die je alweer deed...

 

[Demeter]

Bedoelde eigenlijk deze versie.
Zonder knop en alleen dat cel C1 is geselecteerd.


Groet en prettige avond,
Ferenc

 

[Dummietoo]

Prachtig Demeter !

Voorlopig is het niet erg dat er niets anders geselecteerd kan worden.
Het belangrijkste is dat de waarden vlot kunnen ingevoerd worden en
dat heb je prima voor mekaar.

Als er je een ideetje mocht binnenschieten waardoor ook de andere
cellen selecteerbaar worden is dat natuurlijk heel welkom.

Bedankt, je hebt me erg goed geholpen *:thumb: