All of our invoices are seperate excel files. How can I
easily summarize them (grab certain cells) from every
file in a specific folder?

Thanks

Try
http://www.rondebruin.nl/copy3.htm


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Ed R" wrote in message ...
All of our invoices are seperate excel files. How can I
easily summarize them (grab certain cells) from every
file in a specific folder?

Thanks

Hi Ron, that works well for sequential retrievals, but do
you have any examples of code that will allow you to
search a column looking for matches to a value such as a
state abbreviation?

-----Original Message-----
Try
http://www.rondebruin.nl/copy3.htm


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Ed R" wrote in
message ...
All of our invoices are seperate excel files. How can I
easily summarize them (grab certain cells) from every
file in a specific folder?

Thanks


.

Hi Peer

If you find what you are looking for in the column what do you want to do
Copy the row or ???

Tell exactly what you want to do and I will try to help you today or Tomorrow.


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Peter" wrote in message ...
Hi Ron, that works well for sequential retrievals, but do
you have any examples of code that will allow you to
search a column looking for matches to a value such as a
state abbreviation?

-----Original Message-----
Try
http://www.rondebruin.nl/copy3.htm


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Ed R" wrote in
message ...
All of our invoices are seperate excel files. How can I
easily summarize them (grab certain cells) from every
file in a specific folder?

Thanks


.

If I find what I'm looking for I need to copy certain
cells of that row not the entire row.

Thanks
-----Original Message-----
Hi Peer

If you find what you are looking for in the column what
do you want to do
Copy the row or ???

Tell exactly what you want to do and I will try to help
you today or Tomorrow.


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Peter" wrote in
message ...
Hi Ron, that works well for sequential retrievals, but
do
you have any examples of code that will allow you to
search a column looking for matches to a value such as a
state abbreviation?

-----Original Message-----
Try
http://www.rondebruin.nl/copy3.htm


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Ed R" wrote in
message ...
All of our invoices are seperate excel files. How
can I
easily summarize them (grab certain cells) from every
file in a specific folder?

Thanks


.



.

Try this
I did a fast test and it seems to work corect

It will look for "ron" in the Acolumn in the first worksheet in every workbook in the folder
If it is found it will copy the cell in a,c,e,g of that row to the basebook

Sub TestFile1()
Dim basebook As Workbook
Dim mybook As Workbook
Dim sourceRange As Range
Dim destrange As Range
Dim rnum As Long
Dim a As Long
Dim FNames As String
Dim MyPath As String
Dim SaveDriveDir As String

SaveDriveDir = CurDir
MyPath = "C:\Data"
ChDrive MyPath
ChDir MyPath
FNames = Dir("*.xls")
If Len(FNames) = 0 Then
MsgBox "No files in the Directory"
ChDrive SaveDriveDir
ChDir SaveDriveDir
Exit Sub
End If

Application.ScreenUpdating = False
Set basebook = ThisWorkbook
rnum = 0
Do While FNames < ""
Set mybook = Workbooks.Open(FNames)

With mybook.Worksheets(1)
For r = .UsedRange.Rows.Count To 1 Step -1
If Trim(.Cells(r, "A").Value) = "ron" Then
rnum = rnum + 1
.Cells(r, 1).Range("A1,C1,E1,G1").Copy _
Destination:=basebook.Worksheets(1).Cells(rnum, 1)
End If
Next
End With

mybook.Close False
FNames = Dir()
Loop
ChDrive SaveDriveDir
ChDir SaveDriveDir
Application.ScreenUpdating = True
End Sub




--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Peter" wrote in message ...
If I find what I'm looking for I need to copy certain
cells of that row not the entire row.

Thanks
-----Original Message-----
Hi Peer

If you find what you are looking for in the column what
do you want to do
Copy the row or ???

Tell exactly what you want to do and I will try to help
you today or Tomorrow.


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Peter" wrote in
message ...
Hi Ron, that works well for sequential retrievals, but
do
you have any examples of code that will allow you to
search a column looking for matches to a value such as a
state abbreviation?

-----Original Message-----
Try
http://www.rondebruin.nl/copy3.htm


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Ed R" wrote in
message ...
All of our invoices are seperate excel files. How
can I
easily summarize them (grab certain cells) from every
file in a specific folder?

Thanks


.



.