|
2 Part Question
Hello from Steved
1st Question Is it possible to to a selected folder and have a macro to open and close every workbook in that folder. 2nd question The 1st question needs to be yes. Can the macro have a formula in it that will allow "find" as an example "the value would be 4444" |
2 Part Question
Steved,
Try something like Dim FName As String Dim FoundCell as Range Dim WB As Workbook ChDrive "C:" '<<< CHANGE ChDir "C:\Test" '<<< CHANGE FName = Dir("*.xls") Do Until FName = "" Set WB = Workbooks.Open(FName) Set FoundCell = WB.Worksheets(1).Find(what:="the value is 444") If Not FoundCell Is Nothing Then ' do something with FoundCell Else ' not found End If WB.Close SaveChanges:=True ' or False FName = Dir() Loop -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Steved" wrote in message ... Hello from Steved 1st Question Is it possible to to a selected folder and have a macro to open and close every workbook in that folder. 2nd question The 1st question needs to be yes. Can the macro have a formula in it that will allow "find" as an example "the value would be 4444" |
2 Part Question
Firstly Thankyou
I am receiving this error Object doesn't support this property or this method It will open the first file then the above error Am I not understanding something here. Sub Tests() Dim FName As String Dim FoundCell As Range Dim WB As Workbook ChDrive "C:" '<<< CHANGE ChDir "C:\Wtt" '<<< CHANGE FName = Dir("*.xls") Do Until FName = "" Set WB = Workbooks.Open(FName) Set FoundCell = WB.Worksheets(1).Find(what:="the value is 2402") If Not FoundCell Is Nothing Then ' do something with FoundCell Else ' not found End If WB.Close SaveChanges:=True ' or False FName = Dir() Loop End Sub Dim FName As String Dim FoundCell as Range Dim WB As Workbook ChDrive "C:" '<<< CHANGE ChDir "C:\Test" '<<< CHANGE FName = Dir("*.xls") Do Until FName = "" Set WB = Workbooks.Open(FName) Set FoundCell = WB.Worksheets(1).Find(what:="the value is 444") If Not FoundCell Is Nothing Then ' do something with FoundCell Else ' not found End If WB.Close SaveChanges:=True ' or False FName = Dir() Loop -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Steved" wrote in message ... Hello from Steved 1st Question Is it possible to to a selected folder and have a macro to open and close every workbook in that folder. 2nd question The 1st question needs to be yes. Can the macro have a formula in it that will allow "find" as an example "the value would be 4444" . |
2 Part Question
Steved,
Set FoundCell = WB.Worksheets(1).Find(what:="the should be Set FoundCell = WB.Worksheets(1).Cells.Find(what:="the -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Steved" wrote in message ... Firstly Thankyou I am receiving this error Object doesn't support this property or this method It will open the first file then the above error Am I not understanding something here. Sub Tests() Dim FName As String Dim FoundCell As Range Dim WB As Workbook ChDrive "C:" '<<< CHANGE ChDir "C:\Wtt" '<<< CHANGE FName = Dir("*.xls") Do Until FName = "" Set WB = Workbooks.Open(FName) Set FoundCell = WB.Worksheets(1).Find(what:="the value is 2402") If Not FoundCell Is Nothing Then ' do something with FoundCell Else ' not found End If WB.Close SaveChanges:=True ' or False FName = Dir() Loop End Sub Dim FName As String Dim FoundCell as Range Dim WB As Workbook ChDrive "C:" '<<< CHANGE ChDir "C:\Test" '<<< CHANGE FName = Dir("*.xls") Do Until FName = "" Set WB = Workbooks.Open(FName) Set FoundCell = WB.Worksheets(1).Find(what:="the value is 444") If Not FoundCell Is Nothing Then ' do something with FoundCell Else ' not found End If WB.Close SaveChanges:=True ' or False FName = Dir() Loop -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Steved" wrote in message ... Hello from Steved 1st Question Is it possible to to a selected folder and have a macro to open and close every workbook in that folder. 2nd question The 1st question needs to be yes. Can the macro have a formula in it that will allow "find" as an example "the value would be 4444" . |
| All times are GMT +1. The time now is 07:19 PM. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com