Will pay someone to write small Excel code for me
 

What I would need someone to do...is to write a statement in Excel
(like an IF Statement), that would display a specific picture if a
certain #/word/etc is typed in a cell? For example in A1 if I typed in
ball, it would automatically bring up a pic...for example
I have saved of a ball in B1, whereas if I typed dog, it would put a
dog in B1, etc..? If you know how to do this can you PLEASE email me
at as its hard for me to check the Ngs at work...
Thanks in advance
Scott
Please when you respond let me know what youd charge for your help...I
have an important show coming up in 8 days and just have WAY too many
things to do to start learning new code writing. I will send you the
sheet as I have it, and the pictures in an email.

On 25 Feb 2005 16:41:11 -0800, wrote:

What I would need someone to do...is to write a statement in Excel
(like an IF Statement), that would display a specific picture if a
certain #/word/etc is typed in a cell? For example in A1 if I typed in
ball, it would automatically bring up a pic...for example
I have saved of a ball in B1, whereas if I typed dog, it would put a
dog in B1, etc..? If you know how to do this can you PLEASE email me
at as its hard for me to check the Ngs at work...
Thanks in advance
Scott
Perhaps you could use something like this:
Sub Pictures()
Dim r As Integer
For r = 2 To Range("A65536").End(xlUp).Row
Range("b" & r).Select
ActiveSheet.Pictures.Insert("c:\" & Range("a" & r) &".jpg").Select
' Change C:\ to suite your needs
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = Range("b" & r).Height
Selection.ShapeRange.Width = Range("b" & r).Width
Next
Range("A1").Select
End Sub



Please when you respond let me know what youd charge for your help...

I guess a beer next time you are in Oslo is sufficient.

Per Erik

On 25 Feb 2005 16:41:11 -0800, wrote:

What I would need someone to do...is to write a statement in Excel
(like an IF Statement), that would display a specific picture if a
certain #/word/etc is typed in a cell? For example in A1 if I typed in
ball, it would automatically bring up a pic...for example
I have saved of a ball in B1, whereas if I typed dog, it would put a
dog in B1, etc..? If you know how to do this can you PLEASE email me
at as its hard for me to check the Ngs at work...
Thanks in advance
Scott
Perhaps you could use something like this:
Sub Pictures()
Dim r As Integer
For r = 2 To Range("A65536").End(xlUp).Row
Range("b" & r).Select
ActiveSheet.Pictures.Insert("c:\" & Range("a" & r) &".jpg").Select
' Change C:\ to suite your needs
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = Range("b" & r).Height
Selection.ShapeRange.Width = Range("b" & r).Width
Next
Range("A1").Select
End Sub



Please when you respond let me know what youd charge for your help...

I guess a beer next time you are in Oslo is sufficient.

Per Erik