automatisch vullen combo boxen

[mtb]

hai,


mijn vraag is tweeledig:

1) een serie comboboxen moeten gevuld worden worden naar aanleiding van de uitkomsten van de vorige reeks comboxen

2) er moet een invulcontole op de comboboxen uitgevoerd worden en indien deze ingevuld zijn moet een bereik van kleur veranderen

bij vraag 2 heb ik geprobeerd de code van LucB zo aan te passen dat die ook op combo boxen werkt maar mijn kennis liet me hierbij in de steek

code Luc:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Intersect(Target, Range("C5:E11")) Is Nothing Then End
On Error GoTo end1
Application.EnableEvents = False
Dim c As Range
For Each c In Range("C5:E11")
If c = "" Then
Range("G5") = "Nog niet ingevuld"
Range("G5").Interior.ColorIndex = xlNone
Exit For
Else
Range("G5") = "OK"
Range("G5").Interior.ColorIndex = 4
End If
Next c
end1:
Application.EnableEvents = True
End Sub

.

hoop dat iemand mij op weg kan helpen, alvast bedankt

zie bijlage

 

[jpvs]

Ga naar ontwerpmodus
dubbel klik op C4 zie bij Eigenschappen - Combo33
en ga naar LinkedCell daar zie je B1 staan.
Volgende Combo41 LinkedCell is C1.
Door de formule =b1& " "&C1 in cel D1 te plaatsen
kun je nu de LinkedCell van Combo49 D1 geven.

Pierre

 

[mtb]

Pierre,

dank voor je reactie,

probleem 1 heb ik opgelost m.b.v. jouw advies, ik heb alle namen die in de 16 combo boxen geselecteerd worden onder elkaar gezet d.m.v. de optie 'linked cell' en al die namen als bereik gedefinieerd door het een naam te geven en die naam weer bij 'listfill range' in te vullen zo worden dus de volgende boxen automatisch gevuld met de waarde uit de vorige boxen.

heb je misschien ook nog een suggestie/oplossing voor vraag 2

thanks so far

 

[LucB]

Hallo Michel,

Komt dit in de buurt?

 

[jpvs]

Een suggestie,

Eerst moet je wel het gebied van elke box veranderen
(er moet een lege cel bij komen nl cel D21).

ListFillRange D2053 ---> D2153


Probeer eens met in cel C4 dit te zetten =ALS(B1>"";WAAR;ONWAAR)
en in cel A4 Voorwaardelijke opmaak =$C$4 =WAAR en geef Opmaak --> Rood.

Pierre

 

[mtb]

Luc, Pierre

beide bedankt voor jullie oplossing, hier kan ik mee verder, perfectomundo

:thumb: :thumb: :thumb:

hope to see you next time when i have a problem

 

[Wigi]

Probeer eens met in cel C4 dit te zetten =ALS(B1>"";WAAR;ONWAAR)
en in cel A4 Voorwaardelijke opmaak =$C$4 =WAAR en geef Opmaak --> Rood.

Pierre

WAAR en ONWAAR worden automatisch gegenereerd.

Dus dit kan ook:

=(B1>"")


Zelfde voor de voorwaardelijke opmaak:

=$C$4

is al voldoende.

Zo, dat weten we ook weeral...

Wigi