|
안녕하세요 엑린이 입문 단계라 간단한것도 헤매네요 ㅠ
현재 sheet1 에 조건 설정 시 R8 셀에 값이 뜨고, 버튼 클릭 시
sheet2의 같은 값을 갖는 셀로 이동 및 메시지박스 "총 x개 자료가 발견되었습니다." 뜨게끔 만들어는 놓았습니다.
Sub 조건검색()
Dim rngFind As Range
Dim n As Long
Dim v
v = Range("R8").Value
Set rngFind = Sheet2.UsedRange.Find(v, , , 1)
If Not rngFind Is Nothing Then
Sheet2.Activate
n = WorksheetFunction.CountIf(Cells, v)
rngFind.Select
MsgBox "총 " & n & "개 자료가 발견되었습니다.", vbOKOnly + vbInformation, "결과"
Else
MsgBox "해당 자료가 없습니다.", vbOKOnly + vbInformation, "검색오류"
End If
End Sub
혹시 sheet1 R8셀값과 동일한 값이 sheet2에 여러개 있는 경우가 있는데
이 모든 셀을 클릭한것처럼 활성화 or 표시 시켜줄 수 있는 기능이 있을까요? ㅠ
| 
등록안내
