[땡큐엑셀vba & 엑셀매크로] 해당월시트에서 이름찾기

5월, 6월 시트

 

검색시트

 

검색 결과

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=277652259
'
'각기 다른셀에 있는 내용 중 마지막셀에
'빌린날짜와 차량이 중복되는 사람이 있는지 없는지 확인하는 방법좀 알려주세요 ㅠㅠㅠㅠㅠ
'그날짜에 그 차량에 누가 빌렸는지를 알고싶어요 서류정리를 해야하는데, 미치겠어요
'고수님들 도와주세요



'해당월 시트에서 차번호를 검색하여 이름찾기
'
'source by 땡큐엑셀vba & 엑셀매크로
'
Sub 찾기()

    마지막행 = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    
    
    '마지막행까지 돌면서 처리
    For i = 2 To 마지막행
        월 = Month(Cells(i, "A")) & "월"
        차번호 = Cells(i, "B")
        날짜 = Cells(i, "A")
        
        
        '해당 월시트의 차번호에서
        Set 범위 = Sheets(월).Range("B:B")
        
              
         '1.검색
         Set Rng = 범위.Find(what:=차번호, lookat:=xlWhole)
    
        
         If Not Rng Is Nothing Then '검색결과가 있다면
            strAddr = Rng.Address  '첫 위치 주소
            
            '2.검색결과가 없을때 까지 루프
            Do
                '있으면 이름출력
                If 날짜 = Rng.Offset(0, -1) Then
                    Cells(i, "C") = Rng.Offset(0, 1)
                End If
                
                Set Rng = 범위.FindNext(Rng) 'Next
            Loop While Not Rng Is Nothing And Rng.Address <> strAddr
         End If
         
         
    Next i

    
    MsgBox "완료되었습니다.", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

날짜와번호가 같은사람찾기-find_findnext-땡큐엑셀vba.xlsm

0.05MB