application.filesearch not working in Excel 2010

[stanleds]

Hi,

Can somebody please help. I have searched the internet for this issue and there are loads of posts about it but I am unable to find a resolution to my particular problem. part of the problem is my inability to adapt code that others have posted to suit my problem. I am unable to post my code at this time because I am at home now without my other laptop. Basically, this is what I am trying to do;

1. Open all Excel files (.xls, one at a time) in a network drive path that is specified in a cell. Lets say the cell is H3 on a worksheet called "Sheet 1".

2. When each file is open, I need to be able to apply the autofilter, filter two columns, lets say columns 3 and 5 an then select all records in columns a to t for all records that exist and then copy them.

3. I then need to be able to select the workbook that contains the code (this file) and then paste the data to the next available row on worksheet that is specified in a cell. Lets say the cell is H4 on a worksheet called "Sheet 2".

4. After each file has been opened and the data pasted to this file, each file can be closed without saving the changes.

I would be very grateful if anybody could offer any help.

many thanks. :(

[snb]

I will wait until you have found your other laptop....

[stanleds]

Hi,

Can somebody please help. I have searched the internet for this issue and there are loads of posts about it but I am unable to find a resolution to my particular problem. part of the problem is my inability to adapt code that others have posted to suit my problem. I am unable to post my code at this time because I am at home now without my other laptop. Basically, this is what I am trying to do;

1. Open all Excel files (.xls, one at a time) in a network drive path that is specified in a cell. Lets say the cell is H3 on a worksheet called "Sheet 1".

2. When each file is open, I need to be able to apply the autofilter, filter two columns, lets say columns 3 and 5 an then select all records in columns a to t for all records that exist and then copy them.

3. I then need to be able to select the workbook that contains the code (this file) and then paste the data to the next available row on worksheet that is specified in a cell. Lets say the cell is H4 on a worksheet called "Sheet 2".

4. After each file has been opened and the data pasted to this file, each file can be closed without saving the changes.

I would be very grateful if anybody could offer any help.

many thanks. :(

Here is the code. Hope you can help me.


Sub Update_NR_Month()
Call Create_Blank2
Application.StatusBar = "Refreshing Meter List, please be patient!......."
Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook

Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.DisplayAlerts = False
Application.EnableEvents = False
On Error Resume Next
Set wbCodeBook = ThisWorkbook
With Application.FileSearch
.NewSearch
.LookIn = Sheets("Named Ranges").Range("H2").Value
.FileType = msoFileTypeExcelWorkbooks
If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count 'Loop through all
'Open Workbook x and Set a Workbook variable to it
Set wbResults = Workbooks.Open(FileName:=.FoundFiles(lCount), UpdateLinks:=0)

'DO YOUR CODE HERE
Cells.Select
Selection.EntireColumn.Hidden = False
Call Autofilter

Selection.Autofilter Field:=3, Criteria1:="0"
Range("A2").Offset(1, 0).Select
Range(ActiveCell, Range("M" & Rows.Count).End(xlUp)).Select
Selection.SpecialCells(xlCellTypeVisible).Copy

Workbooks("No Reads Grabber.xls").Activate
Sheets("Named Ranges").Range("E15").Value.Activate
Range("A65535").End(xlUp).Offset(1, 0).Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
wbResults.Close savechanges:=False
Next lCount
End If
End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.EnableEvents = True
Call Unmerge_All
Call Format_Date
Application.StatusBar = False
'Call Copy_C
'Call Copy_KL
Call Copy_NOPQRSTU
Call Insert_Row
Call Format_Meter_Ref
MsgBox ("No Read Month - Update Complete")

End Sub


thanks