"On error....go to" staement is not working in my macro 2

[misho00]

*My macro is opening certain number of files according to user input to take some data and put them in a table.

*I include "On error .... go to" statement in my macro to bypass the loop when some files are missed

*The macro runs correctly when facing the first error it proberly bypass the missed file, but it hangs when facing the second error...

pls help, i rreally need this in my work..

 

[nasar]

I assume that you have a RESUME NEXT at the end of your exception handling routine?

 

[dsi]

You may want to post a snipit of your code for us to look at.

 

[misho00]

Pls explaine where to put resume next in the macro, what i know that "resume next" is another kind of fo error...
Anyway here is the macro itself, as I said it opens files in a range that defined by user... thx 4 helping


Sub mmm()
Application.ScreenUpdating = False
Dim date1 As Date
Dim date2 As Date

Range("D3&quot.Select
date1 = Selection.Value
Range("E3&quot.Select
date2 = Selection.Value
directory = "\\Agiba2\opr\Production\Fields\As"
g = 0
For i = date1 To date2
mon = Format(i, "mmm&quot
mo = Format(i, "mm&quot
da = Format(i, "dd&quot
yr = Format(i, "yy&quot
yea = Format(i, "yyyy&quot
directory = "\\Agiba2\opr\Production\Fields\As\" & yea & "\" & mon & "-" & yea & "\"
file = "AS" & "-" & da & "-" & mo & "-" & yr & ".xls"
On Error GoTo err
Workbooks.Open FileName:=directory & file
Windows(file).Activate
Sheets("DAILY REPORT&quot.Select
Range("G61&quot.Select
Selection.Copy
Windows("macro.xls&quot.Activate
Sheets("Sheet1&quot.Select
Range("A6&quot.Offset(g, 0).Select
Selection.Value = i
ActiveCell.Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlValues
g = g + 1
Windows(file).Activate
ActiveWorkbook.Close (False)
err:
Next i
Range("d3&quot.Select
Application.ScreenUpdating = True
End Sub

 

[smozgur]

....
Windows(file).Activate
ActiveWorkbook.Close (False)
err:
RESUME NEXT
Next i
....

And also put On Error line before Loop

Regards Oz

http://www.TheOfficeExperts.com

 

[misho00]

thanks for all of u the macro now is working properly by putting reume next after err:. Also i changed the
ActiveWorkbook.Close (False) to
workbooks (file).colse (false)

thx again