Snasui Excel Forum

Code: Select all

Private Sub cboName_Change()
    With Sheets("Sheet1")
       Me.txtResult.Text = Application.Lookup(CDbl(cboNum.Text), .Range("b2:b5"), .Range("c2:c5"))
    End With
End Sub

Code: Select all

Private Sub cboName_Change()
    With Sheets("Sheet1")
        .Range("d1").Formula = "=Lookup(2, 1 / ((" & Chr(34) & cboName.Value & Chr(34) & "=A2:A5) * (" & CLng(cboNum.Value) & "=B2:B5)), C2:C5)"
        If IsError(.Range("d1")) Then
            Me.txtResult.Text = "#N/A"
        Else
            Me.txtResult.Text = .Range("d1").Value
        End If
        .Range("d1").Clear
    End With
End Sub

Code: Select all

Private Sub cboName_Change()
         With Sheets("Sheet1").Application
                Me.txtResult.Value = .Index(.Range("C2:C5"), .Match(1, .if(cboName.Value = Range("A2:A5"), .if(cboNum.Value = .Range("B2:B5"), 1)), 0))
        End With
End Sub

Code: Select all

Private Sub cboName_Change()
         With Sheets("Sheet1").Application
                Me.txtResult.Value = .Lookup(2, 1 / ((cboName.Value = .Range("A2:A5")) * (cboNum.Value = .Range("B2:B5"))), .Range("C2:C5"))
        End With
End Sub