VBA to show picture in picturebox by filepath in cell

Hi,

I am trying to have a picture in a imagebox(image1). The picture is , let's say, in folder C:/folder.
The full path (eg C:/folder/picture.jpg) is displayed in a cell(the imagebox(image1) is positioned over the cell). the cell is B7.

I am using vlookup and a dropdown(on another sheet in the same file) to change the filepath displayed in cell B7.

I can't seem to get the code right to get excel to show my picture from the displayed path in the imagebox(image1) and to chenge the picture when the filepath displayed in that cell changes.



Could be done just by vlookup and linked image, I know. But this would make my file larger. The file will be copied to the server at least 10x a day...


If anyone could help me code this I would be very grateful!

Thanks sooo much! This works exactly as I want it to!

Hi Bernie,

One last question if I may....

I am implementing your code(that works very well in my testfile) into the originally intended xlsm. But now I keep getting 1004 errors and I cant figure out why...
This is what I do:

Please Login or Register  to view this content.

in sheet1 with the dropdown(cell C8)
and

Please Login or Register  to view this content.

in a module.

When I run debug it marks this line, yet it all worked fine in the test file....

Please Login or Register  to view this content.

Have I changed the code in a way it isnt supposed to be changed?

works like a charm!!
thanks again!

Hello,

I am currently have a userform that have a textbox field, a search command button, and an image1. I am trying to find code to so that I can search for a file name (the picture name should be written in textbox) from a file on the computer of an image that will then cause that image to come up in the image1 once the command button is clicked and if the name not if the name not exist a message box should appear "File not exist". I am a novice at VBA/Macro. The images are all located on the C drive. Any help would be greatly appreciated.

Thanks,

Hi Bernie,

Thanks for your help.

But what I need is a Code to open various Pictures from the folder (the folder is called “images”).
When I write the name of the picture in the textbox and click the button, the picture loads directly in image1 and if the picture name is not found in the folder then the message box should appear.

Thanks again

it works wonderful,
thanks a lot

Hello,

I am trying to create a filter with combobox, for example if I select the name ”John” in the fist combobox, then all the person and information with the name John are presented in the Listbox(Name ,Age, Length) and if I select the first name the result in listbox should be filtered etc..

Your help would be greatly appreciated.

Thanks
exceltable.JPGuserform.JPG

Hi Bernie,

Thanks for your help.
I keep getting errors when I select the name for example”John” in the first combobox

Thanks again

Hi Bernie,
Thanks again for your help.
The extraction or the filtering, works only with Combobox 1,but the ComboBox 2 till ComboBox 6 do not sub filtering.

For example when I select the ComboBox 1 “John” as first name, I get in Listbox all the Person with first name “John “ but
when select the last name in Combobox 2 “Smith” the filtering is not working.
Normally the ListBox should be filtered for “John Smith”.
What I mean, I select the combobox 2 for filtering the combobox 1 or when I select Combobox 3 then the first both ComboBoxes
should be filtered etc. So the one filters the other.

Thanks,

Hi Bernie,

the Combobox filter works, but when I select the ComboBox 1 “John” and then in Combobox 2 the Last name “Smith” the Userform hangs.
I can´t figure out why...
Thanks,

Hi Bernie,

the filtering works wonderful , but when I write in Combobox a name is not exist in the excel sheet I get an error “1004” .

Thanks a lot!

Hi Bernie,

I changed it, as you told me and now it works without error.

Thank you very much

Hi Bernie,

I want ask you if it is possible to open various PDF File in UserForm from the folder .(the folder is called “PDF”).

Thanks again

Hi Bernie,

to show the file in userform.

the opening of PDF using the default reader is it complecated or not? and how does it work?

Hi Bernie,

at first I want to write the name of PDF file in the textbox1 and when I click the CommandButton1, the PDF should open .

I used the code but when I click the button I get an error .

Hi Bernie,
I change it, but when I write the name of PDF file in textbox and click the button, I still get an error “53” file not Found.

I change it,to: myfile = "C:\Users\RUDI\Desktop\PDF\" & Me.TextBox1.Text

but I still get an error “53” file not Found.

Hi Bernie,

I changed the setting but I still get an error “53” file not Found.
UNcheck.JPGcode.JPG

the message box is empty.
waht you mean with "find the file and copy the path, then modify the myPath variable's assignment to match your actual path. "

I found the location and I puted in myPath = " C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe" but it not working
Properties.JPG

I mean that the PDF is opened but he kann not find the File.
error.JPG

Hi Bernie,

it works with extension (File name.PDF), is it not another way to work without extension(.PDF)?

thanks again

Hi Bernie,

and thank you very much.

Hi Bernie,

I have the following excel userform "Data" and I want to extend the number of column in the listbox. I used this code:
Me.lsbSheet1.ColumnCount = 21
lsbSheet1.ColumnWidths = "30;40;30;30;50;70;70;70;70;70;70;;50;50;50;50"

But it did not work.

I am grateful in Advance for your help.

Hi Bernie,

I changed the code but I still have 10 column in listbox.
listbox.JPG

Thank you Bernie.

Hello Bernie,

I create a search button with textbox, for example if I write the number in the Textbox and click on button the data should appear in the other textboxes.
The search button is not working because I get error when I click on button.I am grateful if you check up the codes of searchform.xlsmsearch button and find the error.
Your help would be greatly appreciated.

Thankssearchbutton.JPG

Thank you very much Bernie.
That is what I need

Hello Bernie,
I need your help with the search form, because I get “Error” when I select the Comboboxes, that happens when I insert two additional Combo Boxes to the search form.
The error appear for example when I selected: the first name : John, last name :smith ,the age:25, the length: 180 and the weight :80
Thanks in advance.

Hello Bernie,
do you found what could be the reason of the error?
Thanks in advance.

Hello,

I have a listbox in a userform with several columns.
I’m trying to set up a code for transfer button, which allow me to copy the selected rows in a listbox and to past them in the excel sheet.
With the following code I can transfer all the rows in listbox, but I want to transfer only the selected rows. For example I highlight the first rows and click the transfer button to copy the rows in the excel sheet "results" and then the second row etc..

Any help will be grateful

Thank you in advance

Please Login or Register  to view this content.

Hi JapanDave,
I thank you for the quick reply.
I used the code but when I click the button I get an error .

thanks
searchform2.xlsm

Hi Bernie,

I thank you for the quick reply.
I used the code for the transfer button but I get an error in the following line .

Please Login or Register  to view this content.

thanks

Hi Bernie,

I changed the setting but I get the results not properly.
thanks
transfer.JPG

Hi Bernie,

Thank you for your help.
I found the solution for the Transfer button, but now I have Problem with the filtration.
I have 5 comboboxes for the filtration.
When I select the comboboxes from 1 to 4, I do not have any problem but when I select the 5 Combobox I get the result vertically. That happens only when I have one row ( one result) in Listbox.
My question is: how can I get the last result horizontally?
For example: I select the first name "John", Last name "Smith", country "United states" and for B length "R" but when I select for C weight " E or R " I get horizontally result.
Any help will be appreciated.

Thank you again.

filteration.JPG

searchform_ge.xlsmsearchform_ge.xlsm