Copiar filas completas con imágenes en excel a otro libro
Tengo la necesidad de copiar unas filas que contienen unas imágenes y pegarlas en otro libro debajo de una serie de datos de forma repetitiva, me explico...
Fecha PTTE Monto Direccion
04-07-23 F6778 55.657 Los matives 23
Total 55.657
Pegar Imagenes debajo de la pabra Total
05-07-23. T7889 66.765. Los Jazmines
Total 66.765
Pegar Imágenes debajo de la palabra Total
Y así sucesivamente...
3 Respuestas
Si deseas utilizar una macro para copiar filas completas con imágenes en Excel a otro libro:
Sub CopiarFilasConImagenes()
Dim LibroOrigen As Workbook
Dim LibroDestino As Workbook
Dim HojaOrigen As Worksheet
Dim HojaDestino As Worksheet
Dim FilaOrigen As Range
Dim UltimaFilaDestino As Long
' Establecer libros y hojas
Set LibroOrigen = Workbooks("NombreLibroOrigen.xlsx")
Set LibroDestino = Workbooks("NombreLibroDestino.xlsx")
Set HojaOrigen = LibroOrigen.Worksheets("NombreHojaOrigen")
Set HojaDestino = LibroDestino.Worksheets("NombreHojaDestino")
' Copiar filas con imágenes
For Each FilaOrigen In HojaOrigen.UsedRange.Rows
FilaOrigen.Copy
UltimaFilaDestino = HojaDestino.Cells(HojaDestino.Rows.Count, 1).End(xlUp).Row + 1
HojaDestino.Cells(UltimaFilaDestino, 1).PasteSpecial xlPasteAll
Next FilaOrigen
' Copiar imágenes
For Each FilaOrigen In HojaOrigen.UsedRange.Rows
FilaOrigen.Copy
UltimaFilaDestino = HojaDestino.Cells(HojaDestino.Rows.Count, 1).End(xlUp).Row
FilaOrigen.Shapes.Copy
HojaDestino.Paste Destination:=HojaDestino.Cells(UltimaFilaDestino + 1, 1)
Next FilaOrigen
' Limpiar portapapeles
Application.CutCopyMode = False
' Cerrar libro origen sin guardar cambios
LibroOrigen.Close SaveChanges:=False
End Sub
I. Hola Leonardo, disculpe la intromisión, no soy conocedor de Excel ni experto pero quería preguntarle si pudiera servir la función Desref o también la aplicación VLookup, junto con dejarle una macro aportada por otra persona en una comunidad externa,
https://ayudaexcel.com/foro/topic/42364-buscar-y-copiar-datos-de-otro-libro/
http://analisisydecision.es/trucos-excel-repetir-filas-o-columnas-con-la-funcion-desref/
Public Sub CopiarColumnas()
Dim hojaOrigen As Worksheet
Dim hojaDestino As Worksheet
' Definir hojas de origen y destino
Set hojaOrigen = Workbooks("ventas.xlsx").Worksheets("Sheet1")
Set hojaDestino = Workbooks("reportesventas.xlsm").Worksheets("Sheet1")
' Copiar columnas A - C desde la hoja de origen a la hoja de destino (utilizar referencia de la celda de la primera fila como referencia para empezar a pegar)
hojaOrigen.Range("A:C").Copy Destination:=hojaDestino.Range("A1")
End Sub
Por último aquisiera trasladarle los siguientes enlaces por si pudieran ajustarse a lo que necesita hacer. Le ruego me perdone las molestias por la ingente cantidad de enlaces/lectura y la imprecisión, mucha suerte.
https://stackoverflow.com/questions/66456413/copy-paste-transpose-rows-with-pictures
https://stackoverflow.com/questions/45252803/copy-image-from-one-workbook-to-another-workbook
Macro Copiar solo hojas visibles incluyendo las imágenes y pegar en archivo nuevo
https://ayudaexcel.com/foro/topic/45423-macro-buscar-duplicados-y-copiar-en-otra-hoja/
https://www.youtube.com/watch?v=ol5NWO4aANs
Muchas Gracias! Muy Agradecido por tu ayuda, Muchas Bendiciones!!
I. Hola Compañero, muchísimas gracias :) fue un placer, ojalá logre lo que desea en breve. Bendiciones.
Revisa lo siguiente, ahí explico cómo copiar datos de un lugar a otro:
Sal u dos
Dante Amor