hoe een figuur op een cel plakken? VBA

[ErikVI]

Ik ben bezig met een aanwezigheidslijst voor het opvolgen van vergaderingen.
wie aanwezig is krijgt een 1, wie afwezig is krijgt een 0
als ik deze 1 of 0 invoer kreeg ik ook meteen graag een smily te zien in de cel (in plaats van de 1 of de 0)
bvb een lachende smily voor aanwezig, een triestige smily voor afwezig.
Momenteel plak ik gewoon de smilys over de cel.

kan dat ook automatisch nadat ik bvb een sneltoets heb ingedrukt?

kan het bvb dat als ik (y) indruk, dat ik in de cel een 1 krijg en meteen ook een lachende smily?

wie kan hierbij helpen?

thnx
ErikVI

 

[femda-punt-com]

Lettertype Windings

Stel je plaatst in cel C5 die 0 of 1. Plaats dan in cel D5 de volgende formule:
=ALS(C5=1;"J";"L")

Je krijgt dan voor de 1 een lachende smiley, voor de 0 een droevige smiley. Tenminste, als je voor cel D5 het lettertype Windings gebruikt.

Wat in de letterbak van het Westerse font de letter J is, is in het font Windings een lachende smiley.

Simpel he? Je hebt er niet eens een sneltoets voor nodig.

 

[ErikVI]

toch nog een probleempje

toch nog een probleempje,

ik kan geen twee kolomen gebruiken.
de smily (of een bitmapje) moet over de eerste cel staan

erikVI

 

[MayNiak666]

Voeg onderstaande code in:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)


For Each c In Range("b4:b10")
If c.Value = "1" Then
c.Font.Name = "Wingdings"
c.Value = "J"
ElseIf c.Value = "0" Then
c.Font.Name = "Wingdings"
c.Value = "L"
End If
Next c

End Sub


Hierbij heb ik de cellen B4 t/m B10 als voorbeeld genomen waar je de 1 of de 0 invult. Misschien vind je het wat...