Skip to main content
se eliminaron 106 caracteres en el cuerpo
Origen Enlace

una consulta tengo unos datos Como puedo hacer para que quiero buscar y mortrar en otra tabla, pero al momento de seleccionar el numero a buscar me sale descuadrado , si pueden ayudarme a ver el error , seboton aparte de traerme los agradecería y si se puede cargar una imagendatos de la tabla en la hoja BD ,tambien me pueda traer las imagenes?

introducir el código aquí
 Sub Buscador()
    Dim valor_Buscado As Integer

    Dim celda As String
    Dim celda1 As String
    Dim celda2 As String
    Dim celda3 As String
    Dim celda4 As String


    valor_Buscado = Range("a3").Value

    celda = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
    Range("B3") = celda

    celda1 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 3, 0)
    Range("B4") = celda1

    celda2 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 4, 0)
    Range("B5") = celda2

    celda3 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
    Range("B6") = celda3

   celda4 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 6, 0)
   Range("B7") = celda4

  End Sub

introducir la descripción de la imagen aquí

quiero que aparesca en esta hoja y estos campos introducir la descripción de la imagen aquí

pero como pueden ver no me sale correctamente

una consulta tengo unos datos que quiero buscar y mortrar en otra tabla, pero al momento de seleccionar el numero a buscar me sale descuadrado , si pueden ayudarme a ver el error , se los agradecería y si se puede cargar una imagen ,tambien

introducir el código aquí
 Sub Buscador()
    Dim valor_Buscado As Integer

    Dim celda As String
    Dim celda1 As String
    Dim celda2 As String
    Dim celda3 As String
    Dim celda4 As String


    valor_Buscado = Range("a3").Value

    celda = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
    Range("B3") = celda

    celda1 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 3, 0)
    Range("B4") = celda1

    celda2 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 4, 0)
    Range("B5") = celda2

    celda3 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
    Range("B6") = celda3

   celda4 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 6, 0)
   Range("B7") = celda4

  End Sub

introducir la descripción de la imagen aquí

quiero que aparesca en esta hoja y estos campos introducir la descripción de la imagen aquí

pero como pueden ver no me sale correctamente

una consulta Como puedo hacer para que en el boton aparte de traerme los datos de la tabla en la hoja BD , me pueda traer las imagenes?

introducir el código aquí
 Sub Buscador()
    Dim valor_Buscado As Integer

    Dim celda As String
    Dim celda1 As String
    Dim celda2 As String
    Dim celda3 As String
    Dim celda4 As String


    valor_Buscado = Range("a3").Value

    celda = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
    Range("B3") = celda

    celda1 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 3, 0)
    Range("B4") = celda1

    celda2 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 4, 0)
    Range("B5") = celda2

    celda3 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
    Range("B6") = celda3

   celda4 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 6, 0)
   Range("B7") = celda4

  End Sub

introducir la descripción de la imagen aquí

quiero que aparesca en esta hoja y estos campos introducir la descripción de la imagen aquí

pero como pueden ver no me sale correctamente

Origen Enlace

Problema con macros excel

una consulta tengo unos datos que quiero buscar y mortrar en otra tabla, pero al momento de seleccionar el numero a buscar me sale descuadrado , si pueden ayudarme a ver el error , se los agradecería y si se puede cargar una imagen ,tambien

introducir el código aquí
 Sub Buscador()
    Dim valor_Buscado As Integer

    Dim celda As String
    Dim celda1 As String
    Dim celda2 As String
    Dim celda3 As String
    Dim celda4 As String


    valor_Buscado = Range("a3").Value

    celda = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
    Range("B3") = celda

    celda1 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 3, 0)
    Range("B4") = celda1

    celda2 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 4, 0)
    Range("B5") = celda2

    celda3 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
    Range("B6") = celda3

   celda4 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 6, 0)
   Range("B7") = celda4

  End Sub

introducir la descripción de la imagen aquí

quiero que aparesca en esta hoja y estos campos introducir la descripción de la imagen aquí

pero como pueden ver no me sale correctamente