Will pay someone to write small Excel code for me

R

ratedr1

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 (e-mail address removed) 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.
 
P

Per Erik Midtrød

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 (e-mail address removed) 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
 
P

Per Erik Midtrød

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 (e-mail address removed) 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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top