View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Teresa Teresa is offline
external usenet poster
 
Posts: 169
Default Finding Last Date Report

Hi,

I save WIP Reports in a Hist Folder every few days,
So for example,my code will save today's report as
"WIP 16-12-04", it should then open the last WIP report
in the folder (e.g. WIP 13-12-04) and compare the 2 for changes,
I need code which will find and open the last report and insert the
workbook name in ******* below.

Thanks for any help


Sub desmond()
'Dim i, j
ThisWorkbook.SaveAs "c:\Hist\WIP " & Format(Date, "dd-mm-yy")
Worksheets.Add.Name = "Changes"
............................................
For i = 1 To 100
For j = 1 To 100
If Worksheets("Jobs").Cells(i, j) <Workbooks("*****").
Worksheets("Jobs").Cells(i, j) Then ....................