로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2012.07.25 14:44
일단 저렇게 하셔도 되지만..
중간에 다른 코드에서 에러가 나도 데이터가 없어서 종료되는 것처럼 되는 문제가 있을 수 있겠네요..
에러가 없는 상태로 되돌리는 On Error GoTo 0 문을 활용해보세요..
On error goto Handler
DataRng.SpecialCells(xlCellTypeVisible).Copy TRng
On Error GoTo 0
On error goto Handler2
' .....
Handler:
Msgbox "조건에 맞는 데이터가 없습니다. 종료합니다"
Exit Function
Handler2:
Msgbox "뭔가 다른 이유.."
새 창으로
선택한 기호
일단 저렇게 하셔도 되지만..
중간에 다른 코드에서 에러가 나도 데이터가 없어서 종료되는 것처럼 되는 문제가 있을 수 있겠네요..
에러가 없는 상태로 되돌리는 On Error GoTo 0 문을 활용해보세요..
On error goto Handler
DataRng.SpecialCells(xlCellTypeVisible).Copy TRng
On Error GoTo 0
On error goto Handler2
' .....
Handler:
Msgbox "조건에 맞는 데이터가 없습니다. 종료합니다"
Exit Function
Handler2:
Msgbox "뭔가 다른 이유.."
Exit Function