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
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.
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.