Solution already posted D. Could you confirm this was not visible in the
forum? If so, then I'd like the moderators to please check why other members
are not able to see solutions or answers that are already posted, and waste
their development time.
Also D, please test the code before posting.
Seba,
Sub OpenFile()
Dim File As String
File = InputBox("Vnesi nalog")
If Len(Dir("C:\Users\user\Desktop\2011_" & File & ".xlsx")) <> 0
Then
Workbooks.Open Filename:="C:\Users\user\Desktop\2011_" & File
& ".xlsx"
Else
MsgBox "File does not exists!"
End If
End Sub
On Sun, Sep 11, 2011 at 11:51 PM, dguillett1 <dguille...@gmail.com> wrote:
> try
>
> Sub OpenFile()
> Workbooks.Open Filename:= _
> "C:\Users\user\Desktop\2011_" InputBox("Vnesi nalog")&".xlsx"
> End Sub
>
> -----Original Message----- From: Seba
> Sent: Sunday, September 11, 2011 3:31 PM
> To: MS EXCEL AND VBA MACROS
> Subject: $$Excel-Macros$$ Open file using criteria from input box
>
>
> Hi all,
>
> I need help tweaking one of my simple macros. I would like to open a
> file after I enter a value into a input box. I have files stored in a
> specific folder and each one is named like "year_sequence_number", ie:
> 2011_001. I need a macro which would open a file based on a value I
> enter. For example: I enter the value 123 and I get the file 2011_123
> opened.
>
> First I wrote this using my basic knowledge:
>
> ------------------------------**------------------------------**
> ------------------------------**------
> Sub OpenFile()
> Dim File As Integer
>
> File = InputBox("Vnesi nalog")
>
> If File = 001 Then
>
> Workbooks.Open Filename:="C:\Users\user\**Desktop\2011_001.xlsx"
>
> Else
>
> Exit Sub
>
> End If
>
>
> End Sub
> ------------------------------**------------------------------**
> ------------------------------**------
>
> Now is it possible and how to modify this so I wouldn't have to copy
> and paste this a thousand times:)
> And if possible, I would only like to enter the last three digits as a
> value: just 001 and not the full name 2011_001.
>
> Thank you and best regards,
> seba
>
> --
> ------------------------------**------------------------------**
> ----------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/**
> exceldailytip <http://twitter.com/exceldailytip>
> 2. Join our LinkedIN group @
> http://www.linkedin.com/**groups?gid=1871310<http://www.linkedin.com/groups?gid=1871310>
> 3. Excel tutorials at
> http://www.excel-macros.**blogspot.com<http://www.excel-macros.blogspot.com/>
> 4. Learn VBA Macros at
> http://www.quickvba.blogspot.**com<http://www.quickvba.blogspot.com/>
> 5. Excel Tips and Tricks at
> http://exceldailytip.blogspot.**com<http://exceldailytip.blogspot.com/>
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><>**<><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/**discussexcel<http://www.facebook.com/discussexcel>
> --
> ------------------------------**------------------------------**
> ----------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links : http://twitter.com/**
> exceldailytip <http://twitter.com/exceldailytip>
> 2. Join our LinkedIN group @
> http://www.linkedin.com/**groups?gid=1871310<http://www.linkedin.com/groups?gid=1871310>
> 3. Excel tutorials at
> http://www.excel-macros.**blogspot.com<http://www.excel-macros.blogspot.com/>
> 4. Learn VBA Macros at
> http://www.quickvba.blogspot.**com<http://www.quickvba.blogspot.com/>
> 5. Excel Tips and Tricks at
> http://exceldailytip.blogspot.**com<http://exceldailytip.blogspot.com/>
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><>**<><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/**discussexcel<http://www.facebook.com/discussexcel>
>
--
Sam Mathai Chacko
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
