status symbool in drop down box

[sis123]

In een x file krijgen alle rijen een visuele status (taartje met kwart, half, 3kwart en vol vlak).

Deze vier symbolen dienen gekozen te worden uit een dropdown keuzelijst.

Ik gebruik font SAPDings.

Nu mijn vraagjes :

- ik vind geen teken voor kwart en 3kwart
- als ik de dropdownlijst open toont deze mij niet de bollekes

bijlagen

 

[Wigi]

Ik weet niet of dit gaat lukken, maar we kunnen het tenminste proberen:

- kopieer deze code naar de code achter het blad waar je de dropdowns zet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Not Intersect(Target, Range("F2:F16")) Is Nothing Then
            Select Case Target
                Case 1 / 2
                    Target = "("
                Case 3 / 4
                    Target = "*"
                Case 1
                    Target = ")"
            End Select
            Target.Font = "SAPDings"
        End If
    End If
End Sub

- maak van de keuzes in de bol range:

1/2
3/4
1

(vul aan indien gewenst, dit is enkel een voorbeeld)

Maak deze range op als breuken.

Bij wijzigingen in de dropdowns wordt de code uitgevoerd.

Hopelijk lukt het, ik ben benieuwd.

Wigi

 

[sis123]

Bedankt voor de reactie.

Spijtig, maar '"t lukt niet.

Hij geeft een foutmelding bij Target.Font = "SAPDings"

Bij klik in de drop down lijst krijg ik wel 1/4 - 2/4 - 3/4 - 1 (da's goed)

 

[Demeter]

Misschien heb je wat aan de tip van Jan van Asseldonk reply #3 in deze post:
http://www.helpmij.nl/forum/showthread.php?t=267581

Groet,
Ferenc.

Volgens mij circuleerd er hier op Helpmij ook een post over dat er een plaatje wordt laten zien als een cel aan een bepaalde voorwaarde voldoet (groene duim omhoog en een rode duim omlaag). Dan moet je wel vier plaatjes maken welke worden weergegeven bij een bepaalde voorwaarde.

 

[Wigi]

Bedankt voor de reactie.

Spijtig, maar '"t lukt niet.

Hij geeft een foutmelding bij Target.Font = "SAPDings"

Bij klik in de drop down lijst krijg ik wel 1/4 - 2/4 - 3/4 - 1 (da's goed)

Neem eens met de macrorecorder de code op van het toepassen van SAPDings op een willekeurige cel. Neem die code dan over in jouw probleem.

 

[Wigi]

Probleem is ook dat ik het niet kan testen aangezien ik het font SAPDings niet heb.