Skip to main content
se añadieron 263 caracteres en el cuerpo
Origen Enlace
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_InsertarRutaTotal.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

EDITADO:

Para buscar imágenes en nuestro disco:

'La variable RutaExcel guarda ruta donde está el archivo excel
RutaExcel = ThisWorkbook.Path
'La ruta total desde el patch del archivo
RutaTotal = RutaActual & "\Departamentos\" & "Contabilidad.jpg"

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

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

EDITADO:

Para buscar imágenes en nuestro disco:

'La variable RutaExcel guarda ruta donde está el archivo excel
RutaExcel = ThisWorkbook.Path
'La ruta total desde el patch del archivo
RutaTotal = RutaActual & "\Departamentos\" & "Contabilidad.jpg"
se añadieron 707 caracteres en el cuerpo
Origen Enlace
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

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

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
Origen Enlace
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