엑셀 VBA #33 / 자동필터_2 [VBA]

엑셀 VBA #33 / 자동필터_2 [VBA]

앞선 강좌(엑셀 VBA #32 / 자동필터_1 [VBA])의 예제 코드를 실무 사용시 문제점
문제점1.  새로운 조건을 필터시(그 결과개수2개) 이전에 자동필터된 자료(결과개수6개)가 A20셀 아래에 그대로 남아 있어 문제 소지가 있음
문제점2.  아티스트명이 rng영역에 없는 경우, 사용자가 프로그램 오류인지 조건설정 잘못인지 신속 파악힘듬  


새로운 코드
Dim sh1 As Worksheet
Dim rng As Range

Set sh1 = Sheets("자동필터")
Set rng = Range("A1").CurrentRegion

If sh1.AutoFilterMode = False Then rng.AutoFilter
If sh1.FilterMode = True Then sh1.ShowAllData

rng.AutoFilter 2, Range("E2")
Range("A20").CurrentRegion.Clear                                  '문제점1 해결코드
If rng.SpecialCells(xlCellTypeVisible).Count = 3 Then      '문제점2 해결코드
    MsgBox "해당되는 조건의 데이타가 없음"
    Exit Sub
End If

rng.SpecialCells(xlCellTypeVisible).Copy Range("A20")

https://www.youtube.com/watch?v=E0jcmptYAdQ&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=33