Question

我已经建立了一个数据库，可以更快地找到库存。但是现在，如果第一列中的ID相同，但第二列中的ID是我需要查找的内容，那么我将无法确定如何从另一行显示库存。

Dim BlendRow As Integer
Dim srchRow As Range
Dim LPNRow As Integer
Dim nxtRow As Long

If Application.WorksheetFunction.CountIf(Sheets("Location list").Range("Dyn_Blend_ID"), Blend_id) > 0 _
    And Application.WorksheetFunction.CountIf(Sheets("Location list").Range("Dyn_LPN_ID"), LPN_id) > 0 Then
    GoTo Start
ElseIf Locate_Lot.Blend_id = "" Then
MsgBox "You did not enter a valid Lot ID", 0, "Check"
Exit Sub
ElseIf Locate_Lot.LPN_id = "" Then
MsgBox "Your LPN is not correct!", 0, "Check LPN"
Exit Sub
End If

Start:

'This is where I'm having issues. If the first column has 2 or more of the same ID, I need it sort 
'to show through them to find the correct ID in the second column and put 
'the information from the second or third, etc. in the information box that comes up.
' Column A has a REF #, The user puts information they want to look for 
'in the input boxes. In column B is the value of the first input box,
'and Column E has the value of the second input box. BUT, if there are 
'two of the same IDs in column B, I need it to sort through those to find 
'and display the information matched to the second input box from column E.

    if not iserror(Application.match(Locate_Lot.LPN_ID, sheets("Location list").range("Dyn_LPN_ID"), 0)) then
    BlendRow = (Application.match(Locate_Lot.LPN_ID, sheets("Location list").range("Dyn_LPN_ID"), 0)
    end if
    'The above is now working, but only matches on the second column, 
    'but I need it to match on both columns from both input boxes of 
    'this Locate_Lot userform.

    '    nxtRow = Sheets("Location list").Cells(Rows.Count, 1).End(xlUp).Row
    '    For Each srchRow In Sheets("Location list").Range("Dyn_Blend_ID" & nxtRow)
    '    If (srchRow = ("Locate_Lot.Blend_id")) And srchRow.Offset(0, 4).Value = '("Locate_Lot.LPN_id") Then
    '       BlendRow = Application.WorksheetFunction.Match(Locate_Lot.LPN_id, Sheets'("Location list").Range("Dyn_LPN_ID"), 0)
    '    End If
    '    Next srchRow

Sheets("Engine").Range("B5").Value = BlendRow
Sheets("Engine").Range("B6").Value = LPNRow

Unload Print_inventory

'''Begin retrieveing data from the Location List'''
Location_Clear.Blend_id = Sheets("Location List").Range("Data_Start").Offset(BlendRow, 1).Value
Location_Clear.Item_id = Sheets("Location List").Range("Data_Start").Offset(BlendRow, 2).Value
Location_Clear.BG_id = Sheets("Location List").Range("Data_Start").Offset(BlendRow, 3).Value
Location_Clear.LPN_id = Sheets("Location List").Range("Data_Start").Offset(BlendRow, 4).Value
Location_Clear.Tower_id = Sheets("Location List").Range("Data_Start").Offset(BlendRow, 5).Value
Location_Clear.Shelf_id = Sheets("Location List").Range("Data_Start").Offset(BlendRow, 6).Value

Location_Clear.Show

Pic of the columns with data entered. Need to match on columns B and E and sort on E giving back that row data.

需要匹配第一列中的条件，然后匹配第二列中的条件以显示该行信息

0 个答案: