Lijst maken in invoeren met VBA

Status
Niet open voor verdere reacties.
M

MEradus

Gebruiker
Lid geworden
25 nov 2012
Berichten
287
Hallo Kenners,

Een tijdje geleden heb ik met jullie hulp een bestand kunnen maken voor het rooster wat ik moet maken.
Deze heb ik onderhand zelf met een beetje hulp van jullie kunnen uitbreiden.

Maar nu zou ik hem graag nog wat verder willen uitbreiden, maar dit is iets waar ik (nog) geen verstand van heb.

Ik zou graag d.m.v. een lijst of 'als' functie, graag een nummer (voertuig) willen in kunnen voegen.

En dit zou dan ingevoerd moeten d.m.v. onderstaande code. ( de laatste regen heb ik nu zelf even toegevoegd, zodat het duidelijk is wat ik bedoel

Code: 
Sheets("Voorbeeld Layout").Range("D4:E15").ClearContents
With Sheets("Voorbeeld Rooster")
    Rij = .Columns(1).Find(Sheets("Voorbeeld Layout").Range("J2").Value).Row
    j = 4
        For Each cl In .Cells(Rij, 3).Resize(, 10)
            If cl.Value = "V" Then
                Sheets("Voorbeeld Layout").Cells(j, 4) = .Cells(3, cl.Column)
                Sheets("Voorbeeld Layout").Cells(j, 5) = "V"
                [COLOR="#FF8C00"]Sheets("Voorbeeld Layout").Cells(j, 6) = "Als die chauffeur, dan..."[/COLOR]
                j = j + 1
            End If
        Next

In het bestand heb ik een tabblad staan die "lijst" heet.
Hier moet de informatie komen te staan die ingevoerd moet worden.

Hopelijk is mijn vraag duidelijk en dat er iemand is die mij kan helpen.
 

Bijlagen

  • HelpMij_rooster_1.xlsm
    22,6 KB · Weergaven: 32
Die kan je er toch eenvoudig met VLOOKUP() bij zoeken?

Code: 
=IFERROR(VLOOKUP(D4;Lijst!$A$2:$B$5;2;0);"")

Nb1. Waarom beginnen jouw gegevens niet gewoon in A1 en waarom staan er lege rijen en kolommen in? Het geeft alleen maar onnodig veel regels code om dat te ondervangen.
Nb2. Waarom reageer je nooit op eerdere vragen?
 
Laatst bewerkt:
VenA, je hebt gelijk, soms denk ik te moeilijk waardoor ik dus niet op een 'simpele' oplossing (kan) komen.
Dank je voor de tip.

En wat betreft jouw 2e vraag. Wat bedoel je daar precies mee? Ik probeer als het even kan altijd te reageren als mij een vraag wordt gesteld. Mocht ik dit een keer hebben verzaakt, dan spijt het mij.
 
Wat betreft de 2e vraag. Als de oplossing geboden is dan bedank je de helpers niet en vergeet je de vraag op opgelost te zetten. Niet heel erg, maar ook niet heel erg netjes. Elke helper hier is een vrijwilliger en dan mag je, ook als er geen vragen van jouw kant zijn, wat waardering uitspreken. En de vraag op opgelost zetten.
 
Hoi VenA, ik ben/was me er niet van bewust dat ik niet bedankte.
Ik ben juist erg blij met de vrijwillige hulp van iedereen hier.

Dus voor de vragen waar ik niet voor bedankt heb, als nog.
Het is namelijk zeker niet de bedoeling om dit ‘voor lief’ te nemen!

Deze vraag is opgelost en nogmaals dank voor het meedenken!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan