Vis smily-gif sur, glad og festlig afhængig af resultat i celle!

Sæt denne ind i dit arkmodul

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Len(Target) = 3 Then
A = Target.Offset(Target.Row, 1).Top - (Target.Offset(Target.Row, 1).Height * Target.Row)
B = Target.Offset(Target.Row, 1).Left
ActiveSheet.Shapes.AddPicture _
    "C:\Stien til smileys\Smiley" & Left(Target.Value, 1) & ".gif", _
    True, True, B, A, 12, 12
' ret stien til dine smileys
End If
End If
End Sub


Den sætter dem ind i B kolonnen

Den slætter dem ikke, så hvis du vil ændre værdi i en celle, skal du slætte smileyen manuelt først, ellers vil der være flere oven på hinanden.

smileyerne skal hedde "Smiley1.gif","Smiley2.gif", o.s.v.

makroen tjekker det første tal, når der er 3 cifre.

Da tallet i resultatcellen skifter hver uge vil det være smart om billedet fra sidste uge ikke først skal slettes.

Jeg overvejede et kort øjeblik at anvende en tekstboks men fandt ud af at man ikke kan indsætte billeder i tekstbokse. Hvis det var muligt havde jeg en ide om at man måske lettere kunne få Excel til at vise og skjule en tekstboks?

Filen skal anvendes til hvis en sælger opnår et givent salg, fremkommer en smily afhængig af hvor godt sælgerens resultat er.

I html kan det let laves med det er jo ikke altid det er lige så lige til i Excel.

Kan man ikke anvende en speciel font, der har Smileys? (så bliver det ikke gif-løsningen), men det ville være nemt at håndtere

Det kan man godt men og helt uden problemer ved en simpel HVIS og evt. betinget formatering. Men det kunne også være billeder af andet end smileys.

Jeg tror jeg opgiver, jeg har ikke kunne finde noget om det andre steder.

Tak for jeres forslag

Lukker