ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   fill several sheets with data from other workbooks matching criter (https://www.excelbanter.com/excel-programming/441008-fill-several-sheets-data-other-workbooks-matching-criter.html)

leveleyed

fill several sheets with data from other workbooks matching criter
 
So far, I was able to make a macro to filter data from a project log sheet in
a workbook, and copy/paste the rest of the data in each row based on criteria
in column A to the corresponding worksheets with a name matching the data in
column A on the project log. But now what I need to do is make a macro that
will do basically the same thing, but will instead run on sheet(1) of any
other workbooks with a filename that contains "RetailProjectLog" in a certain
folder location on a network share. Is this possible? If so, how can I do it?

I wish I could attach my sample workbook so you could see an example of what
I'm talking about. If there is some way to attach an example workbook please
let me know and I will do so. Here is the macro I am using now though.

Sub Test()
Dim Cell As Range, x As Integer, LastRow As Long
Application.ScreenUpdating = False

For x = 2 To Worksheets.Count
Sheets(x).Range("A12").Value = Sheets(x).Range("A12")
For Each Cell In Sheets(1).Range("A3:A250")

' Find Last Row num for each sheet
With Sheets(x).Range("A:A")
LastRow = .Cells(.Count, 1).End(xlUp).Row + 1
End With

If Cell.Value = Sheets(x).Name Then
Cell.Offset(0, 1).Resize(, 16).Copy
Sheets(x).Range("A" & LastRow).PasteSpecial (xlPasteValues)
Cell.Offset(0, 17).Copy
Sheets(x).Range("A" & LastRow).Offset(0, 24).PasteSpecial
(xlPasteValues)
End If
Next Cell
Next x
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub


Thank you for any help you can offer!
Mike


All times are GMT +1. The time now is 05:53 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com