This section of code is causing an error:
the error is: "No Cells Were Found"
On Error GoTo EndMacro Range("A2:I" & Lastrow).SpecialCells(xlCellTypeVisible).Copy
and that is ok, its what I expect to happen. So If this error happens, I want to redirect the code to the end of the macro but "GoTo EndMacro" isnt doing that for some reason. I have that Label in my script but the code just doesnt want to be redirected to it.
any1 know why? is there a simple solution?
Sub errme() LastRow= Range("A" & Rows.count).End(xlUp).Row If LastRow>=2 Then Range("A2:I" & LastRow).SpecialCells(xlCellTypeVisible).Copy End If End Sub
Two possibilities spring to mind:
1. You have already used on On Error Goto statement somewhere without then using a Resume statement.
2. You have your VBE set to break on all errors.
Everyone who confuses correlation and causation ends up dead.
@romperstomper yes I have used an "On Error GoTo" statement somewhere without using "Resume"
I basically have this sort of set up:
where would I put the resume? before the "Part2" section?Sub Macro do code do code On Error GoTo Part2 do code Part2: do code do code On Error GoTo EndPath: do code do code EndPath Do code End Sub
What you should do is rewrite and restructure your code! Impossible to be specific with no actual code to go on, but as a general guideline you should have one error handler per routine (if any).
The fact that you have all those different Goto statements suggests that you should probably be using multiple routines, or at the very least restructuring the code you have now so that it doesn't leap around so much.
For your specific visiblecells issue here, I would actually use something like:
Dim rngVisible as Range On Error Resume Next Set rngVisible = Range("A2:I" & Lastrow).SpecialCells(xlCellTypeVisible) On Error Goto 0 if rngVisible is Nothing then Exit Sub rngVisible.Copy ' rest of code
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks