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
quiero que aparesca en esta hoja y estos campos
pero como pueden ver no me sale correctamente