안녕하세요? [유아름]님...
find 메서드를 이용하시는게 좋아 보입니다.
자세한 내용은 아래 코드와 첨부파일을 참고로...
Option Explicit
Sub test()
Dim Str As String
Dim Rng As Range
Dim rng_Find As Range
Str = Application.InputBox("이동하고자 하는 이름을 입력하세요.", Type:=2)
Set Rng = Worksheets("기타").Columns("K:L")
Set rng_Find = Rng.Find(Str, , xlValues)
If Not rng_Find Is Nothing Then
Worksheets("기타").Cells(rng_Find.Row, rng_Find.Column).Select
End If
End Sub
그럼 잘 해결되시길... ^^*
====================================================================================
첨부파일
150105_find_메서드.xlsm
====================================================================================
첨부파일첨부된 파일이 1개 있습니다.
다음검색