| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2007
* 아래줄에 질문을 작성하세요 >>
제가 코드를 전혀 몰라서요; 아래도 다른분이 해주신건데 잘 되지 않아서요;;
시트2의 A1셀이 바뀔때마다, 시트1에서 A1셀의 내용을 포함하는 모든 정보들을 끌어오는 건데요,
아래 코드로는 처음에 끌어온 정보들이 10행이고, 다음에 끌어온게 2행이면, 2행만 나오는게 아니라 10행 그대로 있고 위에 2행만 바뀌는데요
A1셀의 내용 바뀔때마다 완전히 지워지지 않고 불러오는 거 같은데 어떻게 해야 할지 몰르겠네요;;
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngArea As Range, rngColumn As Range
Dim strList As String
Dim r As Integer
If Target.Address <> "$A$1" Then Exit Sub
If IsEmpty(Target) Then Exit Sub
strList = Target.Value
Set rngArea = Sheet1.Range("A3").CurrentRegion
Set rngColumn = rngArea.Columns(1) '
Range("A5:E5").ClearContents
r = WorksheetFunction.CountIf(rngColumn, strList)
If r = 0 Then
MsgBox " 입력하신 " & strList & "에 해당하는 자료가 없습니다! ", 64, _
" 입력오류 // "
Exit Sub
Else
With rngColumn
.AutoFilter 1, strList, , , 0
rngArea.Copy Range("A5")
.AutoFilter
End With
Application.CutCopyMode = False
End If
End Sub
|
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
