VBA) autofilter 메서드 오류
안녕하세요.
검색기능 관련해서 지식인에 있는 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
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (6)
![]() ![]() |
![]() ![]() |
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 엑셀 다른시트에서 날짜에 맞춰서 값 불러오기 수식을 어떻게 짜야할지 모르겠어요.
![]() ![]() |
![]() |
15:37 | - | 28 |
41173 | 함수/공식 |
New 오빠두에서 제공하는 견적서에 외화를 추가하고 싶습니다.
(1)
![]() |
![]() |
15:36 | - | 17 |
41170 | 문서서식 |
New (초보질문)채우기 색만 복사 붙여넣기 하는 방법 좀 알려주세요~
![]() ![]() ![]() |
![]() |
12:57 | - | 29 |
41167 | 기능/도구 |
New 고급필터 결과값 셀에 형식을 주려면 어떻게 해야 할까요?
(1)
![]() |
![]() |
06:38 | - | 24 |
41162 | VBA |
New 달력 유저폼에서 유저폼 X 하면 현재 날짜 변경 없으면 합니다.
![]() ![]() ![]() |
![]() |
2022.08.13 | - | 36 |
41159 | 함수/공식 |
New 해당 조건 개수찾기 Max 함수 예제
![]() ![]() |
![]() |
2022.08.13 | - | 26 |
41148 | VBA |
New 셀에서 특정 위치에 있는 문자의 색상을 변경하는 방법
![]() ![]() |
![]() |
2022.08.13 | - | 47 |
41147 | 문서서식 |
New 엑셀에서 픽셀에 의미에 대해서 질문드립니다.
![]() ![]() |
![]() |
2022.08.13 | - | 48 |
41145 | 함수/공식 |
New 이런 경우는 어떻게 해야할까요?
![]() ![]() |
![]() |
2022.08.13 | 1 | 47 |
41141 | 함수/공식 |
New 어떤 함수를 써야할까요?
![]() ![]() |
![]() |
2022.08.13 | - | 46 |
41140 | VBA |
New 매크로 파일 저장방법이 따로 있나요?파일목록이 추가될때마다 저장확인창이 하나씩 늘어나요ㅠㅠ
![]() ![]() |
![]() |
2022.08.13 | - | 22 |
41132 | 함수/공식 |
New 함수를 간단히 할 수 있을까요?
![]() ![]() |
![]() |
2022.08.12 | - | 46 |
41129 | 기능/도구 |
New 빠른 실행 도구 모음에서 명령 레이블 표시 또는 숨기기
![]() ![]() |
![]() |
2022.08.12 | - | 45 |
41126 | VBA |
New VBA 자동화 용어 및 규칙 등의 작동원리 해석 문의
![]() ![]() |
![]() |
2022.08.12 | - | 49 |
41123 | 함수/공식 |
New 어떤 함수가 입력된건지 알고싶어요.(함수가 가려져 있는건지 여부도 알고싶네요)
![]() ![]() |
![]() |
2022.08.12 | - | 44 |
41117 | 피벗테이블 |
New 데이터 모델 관련 오류인데 어떤 오류인지 도저히 모르겠습니다ㅠ
![]() ![]() |
![]() |
2022.08.12 | - | 39 |
41116 | 피벗테이블 |
New 피벗테이블 슬라이서 문의
![]() ![]() |
![]() |
2022.08.12 | - | 31 |
41114 | 함수/공식 |
New Lookup 함수사용시 출력되는 날짜의 형식오류
![]() ![]() |
![]() |
2022.08.12 | - | 31 |
41112 | 피벗테이블 |
New 엑셀 피벗테이블 필터부분을 가리는 방법을 알고 싶습니다!
![]() ![]() |
![]() |
2022.08.12 | - | 29 |
41107 | 함수/공식 |
New 중첩 이프 함수 해결 방법 / 중첩 if 해결 방법 / 다중조건
![]() ![]() |
![]() |
2022.08.12 | - | 40 |
41106 | 함수/공식 |
New 2X2 엑셀 값 비교하는 함수가 가능할까요?
![]() ![]() |
![]() |
2022.08.12 | - | 38 |
41099 | 파워쿼리/피벗 |
New 여러개의 데이터 파일(같은 양식)을 데이터연결하여 하나의 파일로 관리(주기 관리)하는 방법
![]() ![]() |
![]() |
2022.08.12 | -1 | 67 |
41096 | 피벗테이블 |
New 피벗테이블 날짜 슬라이서 제작시 오류
![]() ![]() |
![]() |
2022.08.12 | - | 37 |
41095 | VBA |
New 매크로 관련 질문이예요. 도움 부탁드립니다.
(3)
![]() |
![]() |
2022.08.12 | - | 47 |
41094 | 함수/공식 |
New 수식의 이름관리자가 열리지 않습니다
(6)
![]() |
![]() |
2022.08.12 | - | 41 |
41090 | VBA |
New 길이 계산 관련 문의 드립니다.
![]() ![]() |
![]() |
2022.08.11 | -1 | 49 |
41087 | 문서서식 |
New 셀 초록색 표시 오류 해결 유튜브를 봤습니다.
(1)
![]() |
![]() |
2022.08.11 | - | 34 |
41086 | 함수/공식 |
New 어떤 수식 사용해야되는지 알려주세요ㅜ
![]() ![]() |
![]() |
2022.08.11 | - | 58 |
41083 | VBA |
New VBA LISTBOX 활용에 대한 궁금증
![]() ![]() |
![]() |
2022.08.11 | - | 41 |
41080 | 함수/공식 |
New index, match 함수 사용해서 일치하는 날짜 찾기
![]() ![]() |
![]() |
2022.08.11 | - | 34 |
@지연 님 지연님 안녕하세요 ^^
첨부해주신 파일에서 데이터범위가 아닌 다른 범위가 연속되어 있어 CurrentRegion으로 범위가 잘못잡혀서 그런 것으로 보입니다.
파일을 아래 처럼 수정해보세요.
만약 범위 지정으로 인한 다른 오류라면, CurrentRegion 의 범위를 적절히 확인해서 수정해주셔야 합니다.
아래 고급필터 자동화 강의를 한번 참고하면 많은 도움이 되실겁니다.^^
엑셀 고급필터 매크로, 필터 자동화 완벽 정리
제시해드린 답변이 문제 해결에 도움이 되셨길 바랍니다. 감사합니다.
첨부파일 : 장부-test.xlsm
@오빠두엑셀 님 와.. 진짜 대단하세요 ㅠㅠ 감사합니다.!!
강의보고 더 열심히 공부하겠습니다.~!
@지연 님 CurrentRegion 이것이 편할때도 있지만 어떤경우에는 문제의 주범이 되더라구요. ^^