Using application.match to find more than one criteria

[learningthings]

I have a Userform that inputs data to a spreadsheet labelled ("Sales")
Now, sometimes, a sale can be paid for by two methods of payment (i.e. Cash and Credit)
The way I have the system set up is that if there are two methods of payment, the transaction is recorded under the "Sales" tab twice with the same ID number with different methods of payment, once with cash, once with credit

Now, I want to be able to pull up the data from the sheet ("Sales") based on two criteria: the ID and the payment method.
This is what I would usually use - This is able to fill textboxes on the userform based on the sales ID :

Dim iRow As Long
With Me
On Error Resume Next
iRow = Application.Match(.txtID.Text, Worksheets("Sales").Columns(1), 0)

On Error GoTo 0
If iRow > 0 Then
frmSales.txtitem.Text = Worksheets("Sales").Cells(iRow, "B").Value
.frmSales.txtquantity.Text = Worksheets("Sales").Cells(iRow, "D").Value
frmSales.txttotal.Text = Worksheets("Sales").Cells(iRow, "C").Value
End If

This gives me the first result matching the sales ID. But I want to be able to use application.match for both .txtID and "Credit" under column 5

 

[Jeffrey Mahoney]

How about this?

Dim iRow1 As Long
  Dim iRow2 As Long
  Dim Sht As Worksheet
  
  Set Sht = Worksheets("Sales")
  With Me
    On Error Resume Next
    With Sht
      iRow1 = Application.Match(.txtID.Text, .Columns(1), 0)
      iRow2 = Application.Match(.txtID.Text, .Range(.Cells(iRow1 + 1, 1), .Cells(.Rows.Count, 1)), 0) + iRow1
      
    End With
  
    On Error GoTo 0
    
    If iRow1 > 0 Then
      If Sht.Cells(iRow1, 5).Value = "Cash" Then
        frmSales.txtitem.Text = Sht.Cells(iRow1, "B").Value
        .frmSales.txtquantity.Text = Sht.Cells(iRow1, "D").Value
        frmSales.txttotal.Text = Sht.Cells(iRow1, "C").Value
        
        frmSales.txtitem2.Text = Sht.Cells(iRow2, "B").Value
        .frmSales.txtquantity2.Text = Sht.Cells(iRow2, "D").Value
        frmSales.txttotal2.Text = Sht.Cells(iRow2, "C").Value
        
      ElseIf Sht.Cells(iRow2, 5).Value = "Cash" Then
        frmSales.txtitem.Text = Sht.Cells(iRow2, "B").Value
        .frmSales.txtquantity.Text = Sht.Cells(iRow2, "D").Value
        frmSales.txttotal.Text = Sht.Cells(iRow2, "C").Value
        
        frmSales.txtitem2.Text = Sht.Cells(iRow1, "B").Value
        .frmSales.txtquantity2.Text = Sht.Cells(iRow1, "D").Value
        frmSales.txttotal2.Text = Sht.Cells(iRow1, "C").Value
      End If
    End If
  End With

 

[learningthings]

How about this?

Dim iRow1 As Long
  Dim iRow2 As Long
  Dim Sht As Worksheet
 
  Set Sht = Worksheets("Sales")
  With Me
    On Error Resume Next
    With Sht
      iRow1 = Application.Match(.txtID.Text, .Columns(1), 0)
      iRow2 = Application.Match(.txtID.Text, .Range(.Cells(iRow1 + 1, 1), .Cells(.Rows.Count, 1)), 0) + iRow1
     
    End With
 
    On Error GoTo 0
   
    If iRow1 > 0 Then
      If Sht.Cells(iRow1, 5).Value = "Cash" Then
        frmSales.txtitem.Text = Sht.Cells(iRow1, "B").Value
        .frmSales.txtquantity.Text = Sht.Cells(iRow1, "D").Value
        frmSales.txttotal.Text = Sht.Cells(iRow1, "C").Value
       
        frmSales.txtitem2.Text = Sht.Cells(iRow2, "B").Value
        .frmSales.txtquantity2.Text = Sht.Cells(iRow2, "D").Value
        frmSales.txttotal2.Text = Sht.Cells(iRow2, "C").Value
       
      ElseIf Sht.Cells(iRow2, 5).Value = "Cash" Then
        frmSales.txtitem.Text = Sht.Cells(iRow2, "B").Value
        .frmSales.txtquantity.Text = Sht.Cells(iRow2, "D").Value
        frmSales.txttotal.Text = Sht.Cells(iRow2, "C").Value
       
        frmSales.txtitem2.Text = Sht.Cells(iRow1, "B").Value
        .frmSales.txtquantity2.Text = Sht.Cells(iRow1, "D").Value
        frmSales.txttotal2.Text = Sht.Cells(iRow1, "C").Value
      End If
    End If
  End With

Thank you! That worked wonderfully, I appreciate it