Hi Kunal,
R u using excel 2007. den it wont work
On Sun, May 10, 2009 at 8:17 PM, kunal <kunal.r...@gmail.com> wrote:
>
> HI Harmeet,
>
> The code is giving a Run time error '445'
>
> the object doesn't support this action.
>
> the error is in the fllowing line:
> With Application.FileSearch
>
>
> Regards,
>
> Kunal
>
>
> On May 9, 9:11 pm, Harmeet Singh <harmeet.hew...@gmail.com> wrote:
> > below is the code
> >
> > Dim ownf, raws, cc, cno As String
> > Sub findd()
> > Application.DisplayAlerts = False
> > Application.ScreenUpdating = False
> > Dim i As Integer
> > ownf = ActiveWorkbook.Name
> > 'cno = Range("b2").Value
> > 'cc = Range("b3").Value
> > With Application.FileSearch
> > .LookIn = Range("b1").Value
> > '* represents wildcard characters
> > .Filename = "*.xls" 'change it as per file type
> > If .Execute > 0 Then 'Workbook exists
> > For i = 1 To .FoundFiles.Count
> >
> > Application.StatusBar = "Number of File Opened - " & i
> > Workbooks.Open (.FoundFiles(i))
> >
> > Call tt
> >
> > Next i
> >
> > End If
> > End With
> > Sheets("details").Select
> > MsgBox ("Files combined..."), vbInformation, "Done"
> > Application.StatusBar = False
> >
> > End Sub
> > Sub tt()
> > raws = ActiveWorkbook.Name
> > Sheets(1).Select
> > Range("a2", Range("a65000").End(xlUp)).EntireRow.Select
> > 'ActiveCell.EntireRow.Select
> > Selection.Copy
> > Workbooks(ownf).Activate
> > Sheets("master").Select
> > Range("a65000").End(xlUp).Offset(1, 0).PasteSpecial
> > xlPasteValues
> > 'Range("a65000").End(xlUp).Offset(0, 8).Value =
> > Workbooks(raws).FullName
> > Workbooks(raws).Activate
> >
> > Application.CutCopyMode = False
> > 'ActiveCell.Offset(1, 0).Select
> > 'Next i
> > Workbooks(raws).Close False
> >
> > End Sub
> >
> >
> >
> > On Fri, May 8, 2009 at 8:36 AM, manish aswal <meetas...@yahoo.com>
> wrote:
> >
> > > > Hi All
> >
> > > > UR help required.
> > > > I m vry new to use macro (using VBA). I am handling a team
> > > > of around 60 Members and at the day end i have to
> > > > consolidate their daily productivity files (having same
> > > > format for all).
> >
> > > > Now i want a macro to consolidate all these files (for a
> > > > current date). Sample files (it would be around 40 - 45)
> > > > attached herewith to which i have to consolidate (datewise).
> >
> > > > Expecting your quick and kind response...
> >
> > > > Thanks
> > > > Manish Aswal
> >
> > --
> > Thanks & Regards,
> >
> > Harmeet Singh
>
> >
>
--
Thanks & Regards,
Harmeet Singh
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
