Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
on error
I'm using the following code to open up serveral files and grab information
to post to a worksheet. If the file does not exist in the directory, my on error code will work for the first file but shows me the error on any subsequent issue. thanks On Error GoTo error Range("b2").Select For Each rw In Range("block1") ChDir rw.Offset(0, 1) x = rw If rw = 0 Then GoTo endmacro Set wkb = Workbooks.Open(rw, Notify:=False) Application.Goto Reference:="interestinput" Selection.Copy Windows("US Bank Statement Interest multiple months.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows(x).Activate Range("b6").Copy Windows("US Bank Statement Interest multiple months.xls").Activate Range("e2").End(xlDown).Offset(0, 2).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.End(xlUp).Select Selection.Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range(Selection, Selection.End(xlDown)).Select Selection.FillDown Range("b2").End(xlDown).Offset(1, 0).Select Application.CutCopyMode = False wkb.Close savechanges:=False error: Next rw endmacro: Application.DisplayAlerts = True Application.ScreenUpdating = True Range("a2").Select End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Counting instances of found text (Excel error? Or user error?) | Excel Worksheet Functions | |||
Error Handling - On Error GoTo doesn't trap error successfully | Excel Programming | |||
Form Err.Raise error not trapped by entry procedure error handler | Excel Programming | |||
Automation Error, Unknown Error. Error value - 440 | Excel Programming |