excel vba‎ > ‎

VBA - Vlookup

posted May 17, 2011, 2:24 PM by Roberto Felicini
        ' vlookup account
        Set range_account = Sheets("account").Range("A:C")
        ResultsA = Application.Vlookup(Sheets("salesreport").Cells(a, 1).Value, range_account, 2, False)
        If Not IsError(ResultsA) Then
            Sheets("result").Cells(a, 4).Value = ResultsA
        Else
           t = t + 1
           MsgBox "Please check the Sales Report on the row " & " " & a & " " & Chr(13) & _
           "Missing Account" & " " & Sheets("salesreport").Cells(a, 1).Value _
           & " " & "on the sheets Account ", 0 + 64, "result"
        Sheets("result").Range(Cells(2, 1), Cells(65536, 15)).Clear
        Sheets("output").Select
        Sheets("output").Range(Cells(1, 1), Cells(65536, 15)).Clear
        Sheets("salesreport").Select
        Sheets("salesreport").Cells(a, 1).Select
      
        Exit Sub
        End If
Comments