none
Excel VBA 관련 질문입니다. RRS feed

  • 질문

  • Private Function MoveData(rng As Range)
        Dim C As Range
        Dim FindArea As Range
        Dim strAddr As String
        
        Set FindArea = Sheets("바코드 검색").Range([D2], Cells(Rows.Count, 4))
        
        Set C = FindArea.Find(rng.Text, lookat:=xlWhole)

        If Not C Is Notihing Then                             ' <- 이부분에서 424 런타임 오류가 발생하는데 원인을 모르겠습니다.
            If Not C.Offset(, 3) = "" Then
                C.Offset(, 3) = C.Offset(, 3) + 1
            End If
        Else
            strAddr = rng.Address
            Sheets("바코드 검색").Cells(Rows.Count, 4).End(3)(2) = Sheets("전체 자료").Range(strAddr).Text
            If Sheets("바코드 검색").Cells(Rows.Count, 4).End(3)(2).Offset(, 1) = "" Then
                Sheets("바코드 검색").Cells(Rows.Count, 5).End(3)(2) = Sheets("바코드 검색").Cells(Rows.Count, 5).End(3)
            End If
            Sheets("바코드 검색").Cells(Rows.Count, 6).End(3)(2) = Sheets("전체 자료").Range(strAddr).Offset(, 2).Text
            Sheets("바코드 검색").Cells(Rows.Count, 7).End(3)(2) = 1
        End If
    End Function
    2019년 3월 18일 월요일 오전 6:27

모든 응답