VBA) autofilter 메서드 오류

VBA
작성자
지연
작성일
2021-10-05 17:38
조회
557
엑셀버전 : 엑셀2010 이전

운영체제 : 윈도우10

안녕하세요.

 

검색기능 관련해서 지식인에 있는 VBA를 갖고와서 사용중인데,

똑같이 입력했는데

"현장등록" 시트에서는 정상 작동되는데,

"data" 시트에서는 오류 나는 이유가 뭘까요? ㅠㅠ

data 내용을 그대로 복사해서 새로운 시트 만들면 또 정상작동하더라고요..

 

data 시트를 참조하는 시트가 많아서 data 시트가 되도록 수정하고 싶은데

뭐가 문제인지 확인 좀 부탁드려요 ㅠㅠ!!

 

 

Private Sub Worksheet_Change(ByVal Target As Range)
Const s$ = "B2,C2,A2"
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range(s)) Is Nothing Then

With Range("a1", Range("a3").CurrentRegion)
With .Offset(2).Resize(.Rows.Count - 2)
.Autofilter
Dim c As Range
For Each c In Range(s)
If c <> "" Then
.Autofilter Field:=c.Column, Criteria1:="*" & c.Value & "*"
End If
Next
End With
End With
End If
End Sub

Public Sub 초기화()
Range("B2,C2,A2").ClearContents
With Range("a1", Range("a3").CurrentRegion)
With .Offset(2).Resize(.Rows.Count - 2)
If Me.AutoFilterMode Then
.Autofilter
End If
.Autofilter
End With
End With
End Sub

 

전체 3

  • 2021-10-06 01:52
    채택된 답변

    @지연 님 지연님 안녕하세요 ^^

    첨부해주신 파일에서 데이터범위가 아닌 다른 범위가 연속되어 있어 CurrentRegion으로 범위가 잘못잡혀서 그런 것으로 보입니다.

    파일을 아래 처럼 수정해보세요.

    만약 범위 지정으로 인한 다른 오류라면, CurrentRegion 의 범위를 적절히 확인해서 수정해주셔야 합니다.

    아래 고급필터 자동화 강의를 한번 참고하면 많은 도움이 되실겁니다.^^

    엑셀 고급필터 매크로, 필터 자동화 완벽 정리

    제시해드린 답변이 문제 해결에 도움이 되셨길 바랍니다. 감사합니다.

    첨부파일 : 장부-test.xlsm


    • 2021-10-06 11:51

      @오빠두엑셀 님 와.. 진짜 대단하세요 ㅠㅠ 감사합니다.!!

      강의보고 더 열심히 공부하겠습니다.~!


  • 2021-10-06 13:10

    @지연 님 CurrentRegion 이것이 편할때도 있지만 어떤경우에는 문제의 주범이 되더라구요. ^^


전체 7,355
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (6)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1246
오빠두엑셀 2022.07.31 8 1246
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 108
오빠두엑셀 2022.08.04 4 108
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 117 | 조회 6201
오빠두엑셀 2021.10.28 117 6201
41174 함수/공식
New 엑셀 다른시트에서 날짜에 맞춰서 값 불러오기 수식을 어떻게 짜야할지 모르겠어요. 첨부파일 (6)
민호 | 15:37 | 추천 0 | 조회 28
민호 15:37 - 28
41173 함수/공식
New 오빠두에서 제공하는 견적서에 외화를 추가하고 싶습니다. (1)
농푸 | 15:36 | 추천 0 | 조회 17
농푸 15:36 - 17
41170 문서서식
New (초보질문)채우기 색만 복사 붙여넣기 하는 방법 좀 알려주세요~ 엑셀파일첨부파일 (4) 답변완료
추바카 | 12:57 | 추천 0 | 조회 29
추바카 12:57 - 29
41167 기능/도구
New 고급필터 결과값 셀에 형식을 주려면 어떻게 해야 할까요? (1)
| 06:38 | 추천 0 | 조회 24
06:38 - 24
41162 VBA
New 달력 유저폼에서 유저폼 X 하면 현재 날짜 변경 없으면 합니다. 엑셀파일첨부파일 (2) 답변완료
033cola | 2022.08.13 | 추천 0 | 조회 36
033cola 2022.08.13 - 36
41159 함수/공식
New 해당 조건 개수찾기 Max 함수 예제 엑셀파일 (1)
Kim Si Yoon | 2022.08.13 | 추천 0 | 조회 26
Kim Si Yoon 2022.08.13 - 26
41148 VBA
New 셀에서 특정 위치에 있는 문자의 색상을 변경하는 방법 첨부파일 (2) 답변완료
:+:하늘비:+: | 2022.08.13 | 추천 0 | 조회 47
:+:하늘비:+: 2022.08.13 - 47
41147 문서서식
New 엑셀에서 픽셀에 의미에 대해서 질문드립니다. 첨부파일 (5) 답변완료
월마리아 | 2022.08.13 | 추천 0 | 조회 48
월마리아 2022.08.13 - 48
41145 함수/공식
New 이런 경우는 어떻게 해야할까요? 첨부파일 (3) 답변완료
Utaeks | 2022.08.13 | 추천 1 | 조회 47
Utaeks 2022.08.13 1 47
41141 함수/공식
New 어떤 함수를 써야할까요? 첨부파일 (4)
머지않아VBA고수 | 2022.08.13 | 추천 0 | 조회 46
머지않아VBA고수 2022.08.13 - 46
41140 VBA
New 매크로 파일 저장방법이 따로 있나요?파일목록이 추가될때마다 저장확인창이 하나씩 늘어나요ㅠㅠ 첨부파일 (1)
pjc**** | 2022.08.13 | 추천 0 | 조회 22
pjc**** 2022.08.13 - 22
41132 함수/공식
New 함수를 간단히 할 수 있을까요? 엑셀파일 (3)
안동근 | 2022.08.12 | 추천 0 | 조회 46
안동근 2022.08.12 - 46
41129 기능/도구
New 빠른 실행 도구 모음에서 명령 레이블 표시 또는 숨기기 첨부파일 (9) 답변완료
fabikim | 2022.08.12 | 추천 0 | 조회 45
fabikim 2022.08.12 - 45
41126 VBA
New VBA 자동화 용어 및 규칙 등의 작동원리 해석 문의 엑셀파일 (2) 답변완료
pjc**** | 2022.08.12 | 추천 0 | 조회 49
pjc**** 2022.08.12 - 49
41123 함수/공식
New 어떤 함수가 입력된건지 알고싶어요.(함수가 가려져 있는건지 여부도 알고싶네요) 첨부파일 (2) 답변완료
일개회사원 | 2022.08.12 | 추천 0 | 조회 44
일개회사원 2022.08.12 - 44
41117 피벗테이블
New 데이터 모델 관련 오류인데 어떤 오류인지 도저히 모르겠습니다ㅠ 첨부파일 (2) 답변완료
ㅎㅎ | 2022.08.12 | 추천 0 | 조회 39
ㅎㅎ 2022.08.12 - 39
41116 피벗테이블
New 피벗테이블 슬라이서 문의 첨부파일 (1)
조동호 | 2022.08.12 | 추천 0 | 조회 31
조동호 2022.08.12 - 31
41114 함수/공식
New Lookup 함수사용시 출력되는 날짜의 형식오류 첨부파일 (3)
조민양 | 2022.08.12 | 추천 0 | 조회 31
조민양 2022.08.12 - 31
41112 피벗테이블
New 엑셀 피벗테이블 필터부분을 가리는 방법을 알고 싶습니다! 첨부파일 (3)
이재호 | 2022.08.12 | 추천 0 | 조회 29
이재호 2022.08.12 - 29
41107 함수/공식
New 중첩 이프 함수 해결 방법 / 중첩 if 해결 방법 / 다중조건 첨부파일 (2) 답변완료
떡상가즈아 | 2022.08.12 | 추천 0 | 조회 40
떡상가즈아 2022.08.12 - 40
41106 함수/공식
New 2X2 엑셀 값 비교하는 함수가 가능할까요? 첨부파일 (1)
클루 | 2022.08.12 | 추천 0 | 조회 38
클루 2022.08.12 - 38
41099 파워쿼리/피벗
New 여러개의 데이터 파일(같은 양식)을 데이터연결하여 하나의 파일로 관리(주기 관리)하는 방법 엑셀파일 (4) 답변완료
pjc**** | 2022.08.12 | 추천 -1 | 조회 67
pjc**** 2022.08.12 -1 67
41096 피벗테이블
New 피벗테이블 날짜 슬라이서 제작시 오류 첨부파일 (4)
naver_616841992e55a | 2022.08.12 | 추천 0 | 조회 37
naver_616841992e55a 2022.08.12 - 37
41095 VBA
New 매크로 관련 질문이예요. 도움 부탁드립니다. (3)
AANNNDDDYY | 2022.08.12 | 추천 0 | 조회 47
AANNNDDDYY 2022.08.12 - 47
41094 함수/공식
New 수식의 이름관리자가 열리지 않습니다 (6)
abbado | 2022.08.12 | 추천 0 | 조회 41
abbado 2022.08.12 - 41
41090 VBA
New 길이 계산 관련 문의 드립니다. 첨부파일 (2)
심우민 | 2022.08.11 | 추천 -1 | 조회 49
심우민 2022.08.11 -1 49
41087 문서서식
New 셀 초록색 표시 오류 해결 유튜브를 봤습니다. (1)
이성일 | 2022.08.11 | 추천 0 | 조회 34
이성일 2022.08.11 - 34
41086 함수/공식
New 어떤 수식 사용해야되는지 알려주세요ㅜ 첨부파일 (4)
🍒 | 2022.08.11 | 추천 0 | 조회 58
🍒 2022.08.11 - 58
41083 VBA
New VBA LISTBOX 활용에 대한 궁금증 엑셀파일 (3) 답변완료
박성원 | 2022.08.11 | 추천 0 | 조회 41
박성원 2022.08.11 - 41
41080 함수/공식
New index, match 함수 사용해서 일치하는 날짜 찾기 첨부파일 (2)
033cola | 2022.08.11 | 추천 0 | 조회 34
033cola 2022.08.11 - 34