Macros en EXEL
En la hoja1 inserte un CommandButton para llamar un UserForm
En el UserForm inserto 2 TextBox y Label
En la hoja2 tengo una base de datos range("A1:B30000")
columna A = Código
columna B = Razón social
Consulta:
¿Cómo realizar una fórmula en Basic donde poniendo el código en el box1 consulte la base de datos que tengo en la hoja2 y aparezca la descripción automáticamente en label al trasladarme al box2?
Esperando favorable respuesta, les envío un saludos.
Gracias por su tiempo
Walter.
En el UserForm inserto 2 TextBox y Label
En la hoja2 tengo una base de datos range("A1:B30000")
columna A = Código
columna B = Razón social
Consulta:
¿Cómo realizar una fórmula en Basic donde poniendo el código en el box1 consulte la base de datos que tengo en la hoja2 y aparezca la descripción automáticamente en label al trasladarme al box2?
Esperando favorable respuesta, les envío un saludos.
Gracias por su tiempo
Walter.
1 Respuesta
Respuesta de blackdog2003
1
Ante todo recibe un cordial saludo, te explico:
Una vez cargado el UserForm, en el evento Initialize, debes escribir el siguiente código:
Private Sub UserForm_Initialize()
Sheets("Hoja2").Select
End Sub
Con esto seleccionas la hoja 2, luego debes escribir el siguiente código (aquí está e código completo):
Dim fin_registro As Integer
Private Sub UserForm_Initialize()
Sheets("Hoja2").Select
End Sub
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
fin_registro = 100
For k = 1 To fin_registro
If Cells(k, 1).Value = Val(TextBox1.Text) Then
Label1.Caption = Cells(k, 2).Value
End If
Next k
End Sub
Como te habrás podido dar cuenta, el fin_regisro especifica la cantidad de registros que tienes en tu base de datos, y el Label cambia de nombre cuando es activado el enevto Doble Click en la Text Box 2; es decir, cuando introduzcas el código, debes presionar doble click en el TextBox2 para que el Label pueda cambiar. Y así obtienes lo que deseas.
Estamos en contacto por si se te presenta alguna otra duda o si no te quedo claro la explicación.
Una vez cargado el UserForm, en el evento Initialize, debes escribir el siguiente código:
Private Sub UserForm_Initialize()
Sheets("Hoja2").Select
End Sub
Con esto seleccionas la hoja 2, luego debes escribir el siguiente código (aquí está e código completo):
Dim fin_registro As Integer
Private Sub UserForm_Initialize()
Sheets("Hoja2").Select
End Sub
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
fin_registro = 100
For k = 1 To fin_registro
If Cells(k, 1).Value = Val(TextBox1.Text) Then
Label1.Caption = Cells(k, 2).Value
End If
Next k
End Sub
Como te habrás podido dar cuenta, el fin_regisro especifica la cantidad de registros que tienes en tu base de datos, y el Label cambia de nombre cuando es activado el enevto Doble Click en la Text Box 2; es decir, cuando introduzcas el código, debes presionar doble click en el TextBox2 para que el Label pueda cambiar. Y así obtienes lo que deseas.
Estamos en contacto por si se te presenta alguna otra duda o si no te quedo claro la explicación.
