Vlookup en Formulario desde Combobox
Tengo el siguiente código, que se ejecuta cuando hago cambios en mi CmbCodCuenta, la idea es que me muestre el resultado en otro Texto dentro del mismo formulario.
Pero este se cae al llegar a la línea de la aplicación.
Private Sub CmbCodCuenta_Change()
Dim CodB As String
Dim Rango As Range
Dim Resultado As String
Set Rango = Sheets("Datos Tablas").Range("K1:L100")
Resultado = CmbCodCuenta.Value
Resultado = Application.VLookup(Resultado , Worksheets("Datos Tablas").Range("K2:L300"), 2, False)
TxtCuenta.Caption = Resultado
Desde ya muy agradecido y atento a su ayuda le envío un gran saludo
Jaime
http://www.programarexcel.com/2015/01/formulario-ingreso-y-egreso-de-stock.html
Mira este ejemplo de formulario de ingreso y egreso de stock tiene lo que necesitas fíjate en su programación.
1 respuesta más de otro experto
Si TxtCuenta es un Textbox, entonces no debe lleva la propiedad Caption.
Te anexo el código actualizado, (eliminé algunas declaraciones que no son necesarias).
Private Sub CmbCodCuenta_Change()
'Act.Por.Dante Amor
res = Application.VLookup(CmbCodCuenta, Worksheets("Datos Tablas").Range("K2:L300"), 2, False)
If IsError(res) Then
MsgBox "El dato no existe"
Else
TxtCuenta = res
End If
End SubS a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
Muchas Gracias Dante: Me sirvió mucho tu ayuda.
Solo me queda un problema y es que cuando la columna de busqueda es numérica (la primera) ews un numero, no hay forma que el Vlookup me funcione. En todo caso lo salve llevando a texto esta columna. Peo si puedes ayudarme a resolverto seria ideal.
Gracias nuevamente
Prueba así:
Private Sub CmbCodCuenta_Change()
'Act.Por.Dante Amor
res = Application.VLookup(Val(CmbCodCuenta), Worksheets("Datos Tablas").Range("K2:L300"), 2, False)
If IsError(res) Then
MsgBox "El dato no existe"
Else
TxtCuenta = res
End If
End Sub