URGENT - make drop down box select open file automatically

[Muzza86]

need this a.s.a.p.

I have attached an example sheet with something that should be easy for you ...

to sum up - need a drop down box - that when "flange" is selected - It opens a file automatically - no clicking etc. just when that option in the drop down box is chosen.

thanks


ps. what I tried initially was something like this..

sub openfile()

if range("d3" = "flange") then
openfile thisworkbook.path "\file.pdf"
end if

end sub

but doesn't work, plus means I have to click on something.. etc

[ragulduy]

You need something like:

Private Sub Worksheet_Change(ByVal Target as Range)
If not intersect(Range("D3"),target) is nothing and Range("D3") = "flange" then
  workbooks.open thisworkbook.path & "\file.pdf"
end if
End Sub

It needs to be put in the worksheet object module, not a standard module.

[Muzza86]

thanks ill try that.

also - the problem I have is.. I want the heading and the drop down box to be on the same cell... but when I select something from the drop down box I don't want the orginal heading to change to what I chose.

e.g. like a website would have a drop down box

i.e. drawings not drawings - which changes to flange in the cell
flange

[Muzza86]

unfortunately the code in the module doenst work

the heading of the cell just gets changed to "flange" when I select it but nothing opens and the file is the correct name and stored in same folder as the sheet

[dbestal]

check your file name "\file.pdf"

[Muzza86]

file name is fine.

[dbestal]

Code is working pdf cannot be open in excel, change it e.g file.txt it will work

[ragulduy]

Sorry, I didn't notice it was a .pdf not a workbook. Change:

workbooks.open thisworkbook.path & "\file.pdf"

to the below, changing path names as appropriate.

Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe C:\file.pdf", vbNormalFocus

(you can also use activeworkbook.followhyperlink but it is slower I think.)