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
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
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
Editado el por Pedro Martos Sanchez