Consulta en una tabla con dos registros

[Pedro Martos Sanchez]

Tengo una tabla con varias columnas, las dos columnas que me interesan son FacturaIngr y Trimestre.  Consulto  con el registro de la  FacturaIngr y los datos me los pasa a un formulario, hasta aquí todo correcto. El problema es que no se como hacerlo para que encuentre esa fila que quiero que busque  por FacturaIngr y por trimestre, ya que la FacturaIngr se puede repetir. Gracias

Este procedimiento de código de VBA es solo para consultar con el registro de  FacturaIngr y es perfecto. Como se haría con el registro FacturaIngr y trimestre, o sea cuando consulte y encuentre la fila con esa FacturaIngr y el trimestre  me los pase a un formulario que tengo ya creado.

Sub ConsultarFactura1Ingr()
 Dim fecha As Date
 Dim facturaIngr As String
 Dim cliente As String
 Dim NIF As String
 Dim telefono As String
 Dim email As String
 Dim baseUDS1 As Double
 Dim baseUDS2 As Double
 Dim ultFilaFacturaIngr As Long
 Dim buscarfacturaIngr As Range
 Dim direccion As String
 Dim UDS1 As Integer
 Dim UDS2 As Integer
 Dim basetotal1 As Double
 Dim basetotal2 As Double
 Dim concepto1 As String
 Dim concepto2 As String
 Dim IVA As Double
 Dim poblacion As String
 Dim porcentIVA As Double
 Dim totalIVA As Double
 Dim basetotales As Double
 Dim filaEncontrada As Long
 Dim trimestre As String
 
 frmFacturas1Trimestre.txtFacturaIngr = Trim(frmFacturas1Trimestre.txtFacturaIngr)
 facturaIngr = frmFacturas1Trimestre.txtFacturaIngr
 trimestre = frmFacturas1Trimestre.cbTrimestre
  
 If facturaIngr = "" Then
   MsgBox "Por favor ingrese el numero de factura!", vbCritical, "Numero de factura vacia"
   Exit Sub
   frmFacturas1Trimestre.txtFacturaIngr.SetFocus
 End If
  
'Consultar que el numero de factura exista
 ultFilaFacturaIngr = hj1Facturas.Range("B" & Rows.Count).End(xlUp).Row
 Set buscarfacturaIngr = hj1Facturas.Range("B6:B" & ultFilaFacturaIngr).Find(facturaIngr, LookIn:=xlValues, lookat:=xlWhole)
 If buscarfacturaIngr Is Nothing Then
  MsgBox "El numero de Factura ingresado NO existe", vbCritical, "Numero de Factura NO EXISTE"
  frmFacturas1Trimestre.txtFacturaIngr.SetFocus
  Exit Sub
 End If
 
 filaEncontrada = buscarfacturaIngr.Row

 fecha = hj1Facturas.Cells(filaEncontrada, 3)
 cliente = hj1Facturas.Cells(filaEncontrada, 4)
 NIF = hj1Facturas.Cells(filaEncontrada, 5)
 direccion = hj1Facturas.Cells(filaEncontrada, 6)
 poblacion = hj1Facturas.Cells(filaEncontrada, 7)
 telefono = hj1Facturas.Cells(filaEncontrada, ?
 email = hj1Facturas.Cells(filaEncontrada, 9)
 concepto1 = hj1Facturas.Cells(filaEncontrada, 10)
 UDS1 = hj1Facturas.Cells(filaEncontrada, 11)
 baseUDS1 = hj1Facturas.Cells(filaEncontrada, 12)
 basetotal1 = hj1Facturas.Cells(filaEncontrada, 13)
 concepto2 = hj1Facturas.Cells(filaEncontrada, 14)
 UDS2 = hj1Facturas.Cells(filaEncontrada, 15)
 baseUDS2 = hj1Facturas.Cells(filaEncontrada, 16)
 basetotal2 = hj1Facturas.Cells(filaEncontrada, 17)
 porcentIVA = hj1Facturas.Cells(filaEncontrada, 19)
 trimestre = hj1Facturas.Cells(filaEncontrada, 22)
 IVA = hj1Facturas.Cells(filaEncontrada, 20)
 totalIVA = hj1Facturas.Cells(filaEncontrada, 21)
 basetotales = hj1Facturas.Cells(filaEncontrada, 18)

 frmFacturas1Trimestre.cbFecha = fecha
 frmFacturas1Trimestre.txtCliente = cliente
 frmFacturas1Trimestre.txtNIF = NIF
 frmFacturas1Trimestre.txtTelef = telefono
 frmFacturas1Trimestre.txtEmail = email
 frmFacturas1Trimestre.txtBaseUDS1 = baseUDS1
 frmFacturas1Trimestre.txtBaseUDS2 = baseUDS2
 frmFacturas1Trimestre.txtDireccion = direccion
 frmFacturas1Trimestre.txtUDS1 = UDS1
 frmFacturas1Trimestre.TxtUDS2 = UDS2
 frmFacturas1Trimestre.txtConcepto1 = concepto1
 frmFacturas1Trimestre.txtConcepto2 = concepto2
 frmFacturas1Trimestre.txtPoblacion = poblacion
 frmFacturas1Trimestre.txtIVA = IVA
 frmFacturas1Trimestre.txtTotalIVA = totalIVA
 frmFacturas1Trimestre.txtporcentIVA = porcentIVA
 frmFacturas1Trimestre.txtBaseTotales = basetotales
 frmFacturas1Trimestre.cbTrimestre = trimestre

 MsgBox "Consulta realizada con Éxito!", vbInformation, "CONSULTA"

 frmFacturas1Trimestre.txtFacturaIngr.SetFocus
 
End Sub

 

[JSDJSD]

Sube tu archivo

 

[Pedro Martos Sanchez]

Lo siento pero no puedo, es privado, te  agradezco tu ayuda, no se si lo explicado bien, si con lo anterior me puedes dar alguna idea, pero no lo puedo enviar completo por la privacidad de datos. gracias 

[Antoni]

Hace 1 hora, Pedro Martos Sanchez dijo:

Lo siento pero no puedo, es privado, te  agradezco tu ayuda, no se si lo explicado bien, si con lo anterior me puedes dar alguna idea, pero no lo puedo enviar completo por la privacidad de datos. gracias 

Pues súbelo con datos inventados.