vba advance fillter 질문드립니다
-
게시물 수정 , 삭제는 로그인 필요
큰형님 안녕하십니다! 유튜브에서 하나씩 잘 배우고 있습니다 감사합니다
advance fillter 과정을 따라하던 도중
검색결과가 K3 셀에 나타나도록 하고싶습니다
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngArea As Range, rng As Range
Set rngArea = Sheets("Data").Range("B5").CurrentRegion
Set rng = Me.Range("B3:E4")
If Not Intersect(Target, Range("B4:E4")) Is Nothing Then
Me.Range(Cells(6, 2), Cells(Rows.Count, 8)).ClearContents
rngArea.AdvancedFilter xlFilterCopy, rng, Me.Range("B6")
Target.Select
End If
End Sub
단순하게
rngArea.AdvancedFilter xlFilterCopy, rng, Me.Range("B6")
에서 me.range("K3") 으로 바꿔봤더니 전혀다른 결과가 나타났습니다..
Me.Range(Cells(6, 2), Cells(Rows.Count, 8)).ClearContents
cells(6,2) 6,2 가 무엇을 의미하는지...
rows.count,8 8은 무엇을 의미하는지 궁금합니다
좋은강의해주셔서 감사합니다
큰형님 안녕하십니다! 유튜브에서 하나씩 잘 배우고 있습니다 감사합니다
advance fillter 과정을 따라하던 도중
검색결과가 K3 셀에 나타나도록 하고싶습니다
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngArea As Range, rng As Range
Set rngArea = Sheets("Data").Range("B5").CurrentRegion
Set rng = Me.Range("B3:E4")
If Not Intersect(Target, Range("B4:E4")) Is Nothing Then
Me.Range(Cells(6, 2), Cells(Rows.Count, 8)).ClearContents
rngArea.AdvancedFilter xlFilterCopy, rng, Me.Range("B6")
Target.Select
End If
End Sub
단순하게
rngArea.AdvancedFilter xlFilterCopy, rng, Me.Range("B6")
에서 me.range("K3") 으로 바꿔봤더니 전혀다른 결과가 나타났습니다..
Me.Range(Cells(6, 2), Cells(Rows.Count, 8)).ClearContents
cells(6,2) 6,2 가 무엇을 의미하는지...
rows.count,8 8은 무엇을 의미하는지 궁금합니다
좋은강의해주셔서 감사합니다
#vba advancedfilter #vba advancedfilter xlfilterinplace #vba advanced #vba advancedfilter unique #vba advanced filter copy to another sheet #vba advance #vba advanced filter unique values and copy to another sheet #vba advanced course #vba advanced topics #vba advanced filter criteria