Skip to main content
2 de 2
se eliminaron 106 caracteres en el cuerpo

Problema con macros excel

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