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

18 thoughts on “Video tutorial # 1 – Uso de BUSCARV con vba”

  1. 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

  2. muchas gracias es muy profesional tu torial y me ha servido de mucho muchas, muchas gracias!!! loqmi

  3. 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

  4. Pingback: Video tutorial BUSCARV paso a paso en Excel | MVPs de LATAM

  5. Pedro Miguel Gamarra Lizarraga

    Muchas gracias por el formulario, como haria para buscar un numero.

      1. Pedro Miguel Gamarra Lizarraga

        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

  6. Javier Palacios

    hola, podrias colocar un ejemplo de buscarv con fecha, la verdad no he podido desarrollar el código correcto.
    Gracias

  7. Javier Palacios

    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

  8. Esteban Hernandez

    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?

Leave a Comment

Your email address will not be published. Required fields are marked *

Scroll to Top