VBA) autofilter 메서드 오류

VBA
작성자
지연
작성일
2021-10-05 17:38
조회
76
엑셀버전 : 엑셀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 이것이 편할때도 있지만 어떤경우에는 문제의 주범이 되더라구요. ^^


전체 4,291
번호 카테고리 제목 작성자 작성일 추천 조회
4274 기능/도구
New 엑셀 텍스트나누기 '텍스트한정자'에 대해서 질문드립니다.
월마리아 | 21:04 | 추천 0 | 조회 2
월마리아 21:04 0 2
4273 함수/공식
New 결제건수에서 중복이름 제거한 뒤 인원수표기 첨부파일
드래군 | 18:37 | 추천 0 | 조회 15
드래군 18:37 0 15
4272 VBA
New WORKBOOK_OPEN 에 두 가지 모듈 입력하는 법...
tu1541 | 17:58 | 추천 0 | 조회 13
tu1541 17:58 0 13
4271 함수/공식
New 중복 문자 제거후 정렬 방법 첨부파일 (1)
붉은머리샹크스 | 17:49 | 추천 0 | 조회 12
붉은머리샹크스 17:49 0 12
4270 함수/공식
New 몇일을 고민하다 이렇게 도움을 구합니다. (예제파일 첨부드렸습니다. 첨부파일 (1)
JS_SHIN | 17:42 | 추천 0 | 조회 21
JS_SHIN 17:42 0 21
4269 VBA
New VBA for문에 다른시트 vlookup 하기! 질문입니다! (1)
mir**** | 17:38 | 추천 0 | 조회 11
mir**** 17:38 0 11
4268 함수/공식
New 2개의 시트에 데이터 동시 입력 (2)
홍병주 | 16:25 | 추천 0 | 조회 27
홍병주 16:25 0 27
4267 함수/공식
New 가격 평균을 구하고 싶습니다. 첨부파일 (2)
워싱턴 | 15:17 | 추천 1 | 조회 28
워싱턴 15:17 1 28
4266 VBA
New 기능 추가 관련 질문입니다. (1)
노랑토끼 | 14:03 | 추천 0 | 조회 20
노랑토끼 14:03 0 20
4265 차트/그래프
New 동적차트 문제가 생겼어요 첨부파일 (2)
두찌아빠 | 12:38 | 추천 0 | 조회 19
두찌아빠 12:38 0 19
4264 함수/공식
New 원하는 범위만 지정해서 정렬하는게 가능할까요? 첨부파일 (2)
롤로랄라 | 11:48 | 추천 0 | 조회 22
롤로랄라 11:48 0 22
4263 함수/공식
New 중복제거 인원수 첨부파일 (4)
드래군 | 11:25 | 추천 1 | 조회 25
드래군 11:25 1 25
4262 함수/공식
New B시트에 있는 값을 A 시트에 불러오는 함수 알려주실 수 있나요....(예제파일 있음) 첨부파일 (5)
이주 | 08:56 | 추천 0 | 조회 34
이주 08:56 0 34
4261 함수/공식
New 도와주세요~ 두가지 질문입니다ㅠㅠ 첨부파일 (2)
엑셀왕초보 | 02:33 | 추천 0 | 조회 24
엑셀왕초보 02:33 0 24
4260 VBA
New 재고관리폼을 이용하여 LOT로 제품을 등록하고싶습니다. 첨부파일
가을전어 | 00:20 | 추천 0 | 조회 22
가을전어 00:20 0 22
4259 함수/공식
New 엑셀 배열 조건 합계 수식 관련해서 도와주세요 첨부파일 (1)
OoooPs | 2021.10.25 | 추천 0 | 조회 31
OoooPs 2021.10.25 0 31
함수/공식
New Re:엑셀 배열 조건 합계 수식 관련해서 도와주세요 (1)
Yukon | 2021.10.25 | 추천 0 | 조회 28
Yukon 2021.10.25 0 28
4258 함수/공식
New 함수값 표시방법 문의드려요~ 첨부파일 (4) 답변완료
바람투유 | 2021.10.25 | 추천 0 | 조회 25
바람투유 2021.10.25 0 25
4257 VBA
New ms 365 쓰시는분 계신가요? 사내 엑셀 동기화 + vba 관련 (4) 답변완료
백일호 | 2021.10.25 | 추천 1 | 조회 37
백일호 2021.10.25 1 37
4256 VBA
New 도와주세요 ㅠㅠ어떻게해야될까요 (1)
dud**** | 2021.10.25 | 추천 0 | 조회 36
dud**** 2021.10.25 0 36
4255 문서서식
New 사용자 지정서식 관련하여 앞에 문자 고정으로 하고, 뒤에 숫자 입력후 " -00"등을 붙이면 앞의고정 문자가 사라지지 않는 방법 (2) 답변완료
아빠의꿈 | 2021.10.25 | 추천 0 | 조회 24
아빠의꿈 2021.10.25 0 24
4254 함수/공식
New indirect 함수 관련 질문 입니다 해결방법좀 가르쳐주세요 (4)
밍장군 | 2021.10.25 | 추천 0 | 조회 28
밍장군 2021.10.25 0 28
4253 VBA
New QR바코드 한글작성 및 내용추가편집기능
H.B | 2021.10.25 | 추천 1 | 조회 18
H.B 2021.10.25 1 18
4252 VBA
New 크롤링 실행이 안되는 문제가 있습니다 (1)
미르르르르르르르릉 | 2021.10.25 | 추천 0 | 조회 20
미르르르르르르르릉 2021.10.25 0 20
4251 VBA
New 재고관리 VBA 강의 중 Insert_Record에 관해서 문의드립니다. (1)
올마이타 | 2021.10.25 | 추천 0 | 조회 27
올마이타 2021.10.25 0 27
4250 차트/그래프
New 일주일, 24시간 단위의 차트를 만드는 방법을 알고 싶습니다. 첨부파일 (2)
겨울 | 2021.10.25 | 추천 -1 | 조회 29
겨울 2021.10.25 -1 29
4249 함수/공식
New 동적범위 차트설정에 문제가 생겼어요~ (2) 답변완료
두찌아빠 | 2021.10.24 | 추천 0 | 조회 26
두찌아빠 2021.10.24 0 26
4248 VBA
New VBA로 DATA받는 셀 분할 가능할까요..? (2)
너스 | 2021.10.24 | 추천 0 | 조회 36
너스 2021.10.24 0 36
4247 함수/공식
New 엑셀 특정행만 중복제거 첨부파일 (5)
한성우 | 2021.10.24 | 추천 0 | 조회 64
한성우 2021.10.24 0 64
4246 파워쿼리/피벗
New 파워쿼리에서 원본데이터 수정 할 수 있는 방법이 있나요? (2) 답변완료
월마리아 | 2021.10.24 | 추천 0 | 조회 33
월마리아 2021.10.24 0 33
4245 VBA
품목별 주문관리 시트 첨부파일 (2)
몽쉘 | 2021.10.23 | 추천 0 | 조회 62
몽쉘 2021.10.23 0 62