Skip to main content
2 de 3
se añadieron 707 caracteres en el cuerpo
el.trasgu
  • 3.2k
  • 1
  • 7
  • 26

Por lo que entiendo, la búsquedas te las realiza de forma correcta, y es la hora de pegar el valor de las variables en las celdas

Y utilizas para pegar los valores de esas variables, siempre la misma columna B, por lo que los valores te los va pegando en B3, B4, B5,B6 Para que te las vaya colocando en las diferentes columnas, deberias de cambiar el valor de las mismas: B3, C3, D,3, E3

celda = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 2, 0)
'Te pega en contenido de la variable celda en B3
Range("B3") = celda

celda1 = Application.VLookup(valor_Buscado, Sheets("BD").Range("B2:G16"), 3, 0)
'Te pega el contenido de la variable celda1 en B4, no debería de ser C3 ?
Range("C3") = celda1

Para guardar imágenes te pongo una función:

Function inserta_foto()
    'seleccionamos la imagen a insertar y le damos un nombre
    SavePicture imagen_A_Insertar.Picture, "logo.jpg"
    'Selecciona la hoja1, y la imagen por el nombre almacenado anteriormente "logo.jpg"
    Worksheets(hoja1).Pictures.Insert("logo.jpg").Select
        'Aqui la formateamos para adaptarla al rango elegido
        Whit Selection.ShapeRange
            .LockAspectRatio = msoFalse
            .Top = Range("B48:C50").Top + 1
            .Left = Range("B48:C50").Left + 2
            .Width = Range("B48:C50").Whidt - 5
            .Height = Range("B48:C50").Heoght - 5
        End With
    End Function
el.trasgu
  • 3.2k
  • 1
  • 7
  • 26