Video tutorial # 1 – Uso de BUSCARV con vba
Comparto el primer video tutorial de nuestro Blog, el cual en esta ocasión explico la manera de utilizar la función BUSCARV con lenguaje vba.
Código usado en el ejemplo
Private Sub CommandButton1_Click() Dim Nombre As String Dim Rango As Range Set Rango = Sheets(1).Range("A1:B4") Nombre = Application.WorksheetFunction.VLOOKUP(Me.TextBox1.Value, Rango, 2, 0) Me.TextBox2.Value = Nombre End Sub
Video tutorial
Video tutorial # 1–Uso de Buscarv con vba
lo logre efectivamente incluso con un label1 en vez de textbox2 pero necesito que sea automatico es decir si se ingresa personal1 en textbox1 automaticamente en label 1 aprarece la edad intente poniendolo asi
Private Sub TextBox1_Change()
Dim nombre As String
Dim Rango As Range
Set Rango = Sheets(1).Range(“A1:B4″)
nombre = Application.WorksheetFunction.VLookup(Me.TextBox1.Value, Rango, 2, 0)
Me.Label1 = nombre
End Sub
donde textbox1 es donde sale el nombre y label1 sale la edad
muchas gracias es muy profesional tu torial y me ha servido de mucho muchas, muchas gracias!!! loqmi
Hola!
tengo un problema el cual le he estado buscanco alguna solucion pero aun no la encuentro tengo un campo de fecha el cual lo debo de buscar en otra hoja que esta dentro del mismo libro y a la vez si lo encuentra me debe de devolver el valor que tenga
y como lo harias si fuera una fecha a buscar
Todo dependerá del formato de fecha que tengas en las opciones regionales de tu PC. En mi caso, el formato de fecha a usar en el formulario sería dd/mm/aaaa.
muchas gracias por la ayuda, me servido de mucho ahora a aplicarlo gracias, tu muy bien.
Me da gusto que te haya ayudado Charly.
Saludos !!
Muchas gracias por el formulario, como haria para buscar un numero.
Para buscar números, revisa este artículo http://blogs.itpro.es/exceleinfo/2014/01/10/usar-buscarv-en-formulario-de-excel-vba-e-identificar-texto-o-nmeros/
Hola Sergio
Gracias por el formulario, ya lo revise. Pero no me jala los numeros
Este es el codigo:
Private Sub cmb1_Change()
Dim dni As Variant
Dim Rango As Range
Dim dnibuscado As Variant
On Error Resume Next
Set Rango = Sheets(“personal”).Range(“a1:c1000”)
dnibuscado = Me.cmb1.Value
If IsNumeric(dnibuscado) Then
dnibuscado = CDbl(dnibuscado)
End If
dni = Application.WorksheetFunction.VLookup(dnibuscado.Value, Rango, 2, 0)
With Me
.txt2.Value = dni
End With
End Sub
hola, podrias colocar un ejemplo de buscarv con fecha, la verdad no he podido desarrollar el código correcto.
Gracias
Pronto quedará publicado.
Estate al pendiente.
Deseo buscar por fecha y que me muestre los registros de las celdas de la fila que necesito
Hola.
Revisa este artículo: http://blogs.itpro.es/exceleinfo/2015/01/26/usar-buscarv-en-formulario-de-excel-vba-e-identificar-texto-nmeros-y-fechas/
muchas gracias, ya logre hacerlo.
Adicional ustedes me pueden decir como se le coloca formato de moneda a un texbox en donde se ve la información que trae de una tabla.
Gracias
En este artículo lo descubres: http://www.exceleinfo.com/vba/formatear-textbox-en-excel-vba/
hola,
E seguido el tutorial pero a la hora de buscar me sale erro `1004`, copie la misma formula hasta cambie la variable String por Stinger ya que la celda de referencia son números con formato numérico
que puedo hacer o como debo de hacer?