Base de datos
Hola, A ver si me puede ayudar.
Resulta que tengo una base de datos en excel, la estoy programando para que me salga un formulario donde sale la información del cliente, ejm No factura, Nombre cliente, etc pero no me sale la información que tengo en la base de datos, sale en las casillas del formulario verdadero, la programación que estoy haciendo es la siguiente.
Private Sub Consulta_Click()
Sheets("BASE DE DATOS").Select
frm_codigo.Txt_Cedula.Text = ""
Unload Me
End Sub
Private Sub UserForm_Activate()
On Error GoTo err
TextBox1.Text = Range("A5", ActiveSheet.Range("A5").End(xlDown)).Select
TextBox2.Text = Range("B5", ActiveSheet.Range("B5").End(xlDown)).Select
TextBox3.Text = Range("C5", ActiveSheet.Range("C5").End(xlDown)).Select
TextBox4.Text = Range("D5", ActiveSheet.Range("D5").End(xlDown)).Select
TextBox5.Text = Range("E5", ActiveSheet.Range("E5").End(xlDown)).Select
TextBox6.Text = Range("F5", ActiveSheet.Range("F5").End(xlDown)).Select
TextBox7.Text = Range("G5", ActiveSheet.Range("G5").End(xlDown)).Select
Exit Sub
err:
MsgBox "Error :" & err.Number & "-" & err.Description, vbCritical, "CLIENTES"
End Sub
Por favor si me puede colaborar lo más antes posible le estaría agradecido
muchas gracias
Resulta que tengo una base de datos en excel, la estoy programando para que me salga un formulario donde sale la información del cliente, ejm No factura, Nombre cliente, etc pero no me sale la información que tengo en la base de datos, sale en las casillas del formulario verdadero, la programación que estoy haciendo es la siguiente.
Private Sub Consulta_Click()
Sheets("BASE DE DATOS").Select
frm_codigo.Txt_Cedula.Text = ""
Unload Me
End Sub
Private Sub UserForm_Activate()
On Error GoTo err
TextBox1.Text = Range("A5", ActiveSheet.Range("A5").End(xlDown)).Select
TextBox2.Text = Range("B5", ActiveSheet.Range("B5").End(xlDown)).Select
TextBox3.Text = Range("C5", ActiveSheet.Range("C5").End(xlDown)).Select
TextBox4.Text = Range("D5", ActiveSheet.Range("D5").End(xlDown)).Select
TextBox5.Text = Range("E5", ActiveSheet.Range("E5").End(xlDown)).Select
TextBox6.Text = Range("F5", ActiveSheet.Range("F5").End(xlDown)).Select
TextBox7.Text = Range("G5", ActiveSheet.Range("G5").End(xlDown)).Select
Exit Sub
err:
MsgBox "Error :" & err.Number & "-" & err.Description, vbCritical, "CLIENTES"
End Sub
Por favor si me puede colaborar lo más antes posible le estaría agradecido
muchas gracias
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Revisando el código que me envías yo en tu lugar utilizaría los ComboBox en lugar de los TextBox. Ahora si es una consulta en base al número de cédula yo nombraría un rango en la columna que tiene los números. Inserto un ComboBox y le asigno ese rango en la opción de RowSource. Luego insertaría un ListBox que abarque las columnas que necesito desplegar y al ComboBox le pondría: ComboBox1. ListIndex = ListBox1. ListIndex.
Con esto me ahorro de escribir tanto código.
Espero te sirva, cualquier duda envíame una muestra y te ayudo con gusto.
Con esto me ahorro de escribir tanto código.
Espero te sirva, cualquier duda envíame una muestra y te ayudo con gusto.
