Copying cells from one sheet to another if document has been saved.

[a94andwi]

Hello.

I have this problem.

I have two workbooks. One that collects info from many other
workbooks.
The problem is that I want the first workbook to get information from
the other workbooks only if the workbooks has been saved during the
current date.

I have one cell in each of the several workbooks that contains the last
date the workbook has been saved. (L1)

I want something like this to happen:

"If L1 in workbook 18 is todays date, copy cell A1-G1:A15-G15 to
workbook number 2, else do nothing."

Is this possible to do?

/Anders

 

[Mike Fogleman]

This line will compare a cell's value to today's date:

If Range("L1").Value = Date Then

We need to see your code that loops through the workbooks to help further
and include any Dimmed variables.

Mike F

 

[a94andwi]

I' m sorry but I do not know how to loop through the worksheet and would
really like an example that I can manipulate.

 

[a94andwi]

Hello again.

Now I have finally found out some way to loop through my files bu
there are still some major functions I can't understand how to solve.

Here's the loop:

Do While FNames <> ""

'SourceRcount = SourceRange.Rows.Count

Set myBook = Workbooks.Open(FNames)

Set SourceRange = myBook.Worksheets(1).Range("A4:L20")

SourceRcount = SourceRange.Rows.Count

'Set destrange = basebook.Worksheets(1).Cells(counter, "O")
Set destrange = basebook.Worksheets(1).Range("A4")

'Skriv in arbetsbokens namn i kolumn H
basebook.Worksheets(1).Cells(counter, "M").Value = myBook.Name
If myBook.Worksheets(1).Range("L1") = Date Then

'SourceRange.Copy destrange
' Instead of this line you can use the code below to copy only th
values

With SourceRange
'Set destrange = basebook.Worksheets(1).Cells(counter, "O"). _
Resize(.Rows.Count, .Columns.Count)
Set destrange = basebook.Worksheets(1).Range("A4"). _
Resize(.Rows.Count, .Columns.Count) End With
destrange.Value = SourceRange.Value
End If

myBook.Close False

counter = counter + SourceRcount
FNames = Dir()

Loop

The lines written in red above are where I have difficulties.

On every new worksheet I want only the rows which has some value
copied onto the destination worksheet.
On the destination worksheet I want the first copied values to b
copied to Cell A4 and the next values on the cells A5, A6 and so on.
When the loop continues to the next file and copies the values I wan
it to continue to copy the values the next empty cell in th
destination worksheet.

Anyone who can help me?

/ander