Mostrar datos en varios TextBox VB excel
Deseo que a partir de digitar un numero en un TextBox, se muestre otra información adicional en otros tres TextBox debidamente identificados
1 Respuesta
¡Gracias!
Function consultarProducto(codigo As String) As String
Dim ultLinea As Long
Dim ultLineaDatos As Long
Dim busquedaFilaDatos As Range
Dim busquedafilaCaracter As Range
Dim busquedafilaTipo As Range
Dim rangoBusqueda As String
Dim filaRegistro As Long
ultLineaDatos = Sheets("Productos").Range("A" & Rows.Count).End(xlUp).Row
rangoBusqueda = "A9:A" & ultLineaDatos
Set busquedaFilaDatos = Sheets("Productos").Range(rangoBusqueda).Find(codigo, lookat:=xlWhole)
Set busquedafilaCaracter = Sheets("Productos").Range(rangoBusqueda).Find(codigo, lookat:=xlWhole)
Set busquedafilaTipo = Sheets("Productos").Range(rangoBusqueda).Find(codigo, lookat:=xlWhole)
If busquedaFilaDatos Is Nothing Then
consultarProducto = ""
MsgBox "El código ingresado no existe", vbCritical, "Resultado"
frmEntradasSalidas.txtCodigo = ""
Else
filaRegistro = busquedaFilaDatos.Row
consultarProducto = Sheets("Productos").Cells(filaRegistro, 2)
End If
End Function
Private Sub txtCodigo_AfterUpdate()
txtDescripcion = modESFormulario.consultarProducto(txtCodigo)
txtCaracter = modESFormulario.consultarProducto(txtCodigo)
txtTipo = modESFormulario.consultarProducto(txtCodigo)
End Sub
Este es el código, en el formulario, el anterior es el código en el módulo,
Si me puedes enviar un correo, puedo remitirle el documento.
Mi correo es [email protected] y me explicas el resultado deseado en tu archivo
¡Gracias!
Buenos días
Envié documento a su correo,
Te paso la macro
Private Sub txtCodigo_AfterUpdate()
'//Por Adriel Ortiz
Set h2 = Sheets("Productos")
'
dato = txtCodigo
Set r = h2.Columns("A")
Set b = r.Find(Val(dato), lookat:=xlWhole)
If Not b Is Nothing Then
txtCodigo = h2.Cells(b.Row, "A")
txtDescripcion = h2.Cells(b.Row, "B")
txtCaracter = h2.Cells(b.Row, "C")
txtTipo = h2.Cells(b.Row, "D")
Else
MsgBox "El código no existe", vbInformation
Exit Sub
End If
End SubTe envié el archivo
Cambia la valoración de la respuesta saludos!
¡Gracias! Dios le bendiga
Te faltó cambiar la valoración
Evaluaré más tarde y le comento
¡Gracias!
Discúlpame, no entiendo. . . cambiar valoración. . .
Al final de la página dice VOTADA de color gris, has clic sobre ello y cambia la valoración saludos!
Ok, no puedo con el error 438
¿En qué línea te sale error?
El error está en
Set r = h2.Columns("A")
¿Has hecho alguna modificación?
¿Qué dice en el mensaje de error?
