Don't know if this can be done

[arnoldmiranda]

Hi,
I have a file which 4 smileys pictures ripped from the internet, based on certain information in a certain cell I require a diffrent smiley to display in a certain error, is this possible, would really appreciated any help on this, thanks

 

[Datsmart]

Are you talking about having the small pictures show on the page or in a message box?
What do you mean, "display in a certain error"?

 

[arnoldmiranda]

hI,
Opps guess I'm stressed, I meant displayed on the page and read "display in a certian error" as display in a certain area on the page, hope this explains it, thanks so much

 

[Datsmart]

This code will make visible a picture that is the same name as the text in the activecell. The top left corner of the picture will be positioned one cell up and one cell right of the activecell.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim oPic As Picture
    Me.Pictures.Visible = False
    With Target
        For Each oPic In Me.Pictures
            If oPic.Name = .Text Then
                oPic.Visible = True
                oPic.Top = .Offset(-1, 1).Top
                oPic.Left = .Offset(-1, 1).Left
                Exit For
            End If
        Next oPic
    End With
End Sub

Right click sheet tab
Click "View Code"
Paste the code into the panel that opens. ("WorkSheet" Module)
Alt-Q to quit the VBA Editor.

Edit: The code will make all pictures on that page invisible when run. So you can just paste all your desired pictures anywhere on the page. Then type a pictures name in a cell and hit Enter. All pictures will disappear and the named one will display one cell up and one cell over.

 

[Legacy 72312]

You might find the following useful. If you use the font 'Webdings' or 'Wingdings' you'll be able to find smile faces (i can't remeber which letters they are) and you will be able to use them as text in excel formulas.

 

[arnoldmiranda]

Hi,
Wow....muchos gracias