|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
파일정열해서 붙이는 방법 질문입니다. 참조하시고 가르쳐 주십시요.
==============[나오나님 글에 대한 답변입니다]==============
편무학 님께서 만드신 파일이군요...
일부 수정하였습니다...
하시는일 잘 되시기를......
Option Explicit
Private Sub CB1_Click()
Dim rngAdvance As Range
Set rngAdvance = Range("A1").CurrentRegion
Dim rngCriteria As Range
Set rngCriteria = Range("I2:L3")
Dim rngCopyToRange As Range
Set rngCopyToRange = Sheets("검색결과").Range("a65536").End(xlUp).Offset(1, 0)
Dim blnOk As Boolean
blnOk = IIf(UCase(Range("I4")) = "false", False, False)
If blnOk Then
MsgBox "데이터를 모두 보려면 데이터 메뉴에서 필터>모두표시를 클릭하세요"
rngAdvance.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=rngCriteria, _
Unique:=False
Exit Sub
Else
' rngCopyToRange.CurrentRegion.Clear ' ☜ 여기는 지웠습니다.
rngAdvance.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=rngCriteria, _
CopyToRange:=rngCopyToRange, Unique:=False
End If
rngCopyToRange.CurrentRegion.AutoFormat Format:=xlRangeAutoFormatList1, Number:=True, _
Font:=True, Alignment:=False, Border:=True, Pattern:=False, Width:=False
' 아래 IF문 추가 하였습니다..
If rngCopyToRange.Row <> 2 Then _
rngCopyToRange.Resize(1, 5).Delete xlUp
End Sub
|
|