see if it help Rajan
On Fri, Apr 15, 2011 at 9:32 PM, ashish koul <koul.ash...@gmail.com> wrote:
>
>
> ---------- Forwarded message ----------
> From: David Stevans <davidstev...@gmail.com>
> Date: Fri, Apr 15, 2011 at 6:37 PM
> Subject: Macro Help again
> To: ashish koul <koul.ash...@gmail.com>
>
>
> Hi,
>
> How are you I need some more help with the macr you gave me a couple of
> weeks ago.
>
> This macro works great I need to modify it some. I want the macro to
> be able to search the directory based on answers prompted from the
> user. If the user does not provide the answer than I want it to run
> the search based on the value entered upto the last question the user
> answered. So if the user only entered the year as 2010 I want the
> macro to search all sub-directories and display the PDF files below
> the year 2010 folder. If they enter the year and the month then I want
> the macro to search the sub directory for the month and year combo.
> Ann so on
> The directory structure on the drive is as follows:
> Year
> Month
> Day
>
> I want the macro to prompt the user for:
> Please Select Year (4 digit year like 2010, 2011...)
> Please Select Month ( 3 character like Jan , Feb, Mar,Jun.....)
> Please Select Day ( Numeric 1 to 30)
> *The macro is:*
> **
> **
> Public f As Object, d As Object, i As Long
> Sub Mcfile_10()
> Dim Fso As Object
> Set Fso = CreateObject("Scripting.FileSystemObject")
> 'RootFolder is the main folder
> Set RootFolder = Fso.getfolder("\\fileserver\Scans\")
> FolderRead RootFolder
> End Sub
> Sub FolderRead(ByRef myFolder)
> For Each f In myFolder.Files
> Var = f.Path
> If Right(f.Name, 4) = ".pdf" Then
> i = i + 1
> ActiveSheet.Hyperlinks.Add Anchor:=Range("A" & i), _
> Address:=f.Path, TextToDisplay:=f.Name
> End If
> Next f
> For Each d In myFolder.SubFolders
> FolderRead d
> Next d
> End Sub
>
>
>
> --
> *Regards*
> * *
> *Ashish Koul*
> *akoul*.*blogspot*.com <http://akoul.blogspot.com/>
> *akoul*.wordpress.com <http://akoul.wordpress.com/>
> My Linkedin Profile <http://in.linkedin.com/pub/ashish-koul/10/400/830>
>
>
> P Before printing, think about the environment.
>
>
>
--
Regards
Rajan verma
+91 9158998701
--
----------------------------------------------------------------------------------
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
Search.xlsm
Description: Binary data
