Anónimo
Macro copiar ultima fila de un libro a otro a ultima fila hoja1
No se macros estoy aprendiendo, para hacer una macro que me copie ultima fila siendo solo las celdas A, B, DE, H, del libro "fact" hoja llamada facturación, enviarlas a ultima fila de libro " liquidación" hoja iva débito fiscal en las celdas C, E, B, F. Este seria el orden de A a C, B a E, DE a B, H a F espero haberme explicado agradezco sus atenciones
Te dejo la macro para las referencias de libros y hojas que presentas en la consulta.
Se asume que los 2 libros estarán abiertos. Revisa que los nombres de libros y hojas coincidan con los tuyos, en especial los que tienen o no acento.
(*) Si tendrás que abrir primero el libro destino mira el video Nº 33 de mi canal: Vincular archivos donde alrededor del minuto 5:50 explico las instrucciones de cómo buscar y abrir archivos para luego trabajar con ellos.
Sub Pasa_Fila()
'x Elsamatilde
'se trabaja con los 2 libros abiertos (ver *)
Dim hOrigen As Worksheet, hDestino As Worksheet
Dim filOri As Integer, filDesti As Integer
'ajustar nbres y extensión de libros y nombre de hojas (atención con los acentos)
Set hOrigen = Workbooks("fact.xlsm").Worksheets("facturacion")
Set hDestino = Workbooks("liquidacion.xlsm").Worksheets("iva debito fiscal")
'última fila de la hoja Origen. Ajustar columna si hiciera falta (**)
filOri = hOrigen.Range("A" & Rows.Count).End(xlUp).Row
'primera fila libre de la hoja Destino. Ajustar columna si hiciera falta (**)
filDesti = hDestino.Range("C" & Rows.Count).End(xlUp).Row + 1
'se copian las col A, B, D, H pegando en col C, D, B, F
hOrigen.Range("A" & filOri).Copy Destination:=hDestino.Range("C" & filDesti)
hOrigen.Range("B" & filOri).Copy Destination:=hDestino.Range("D" & filDesti)
hOrigen.Range("D" & filOri).Copy Destination:=hDestino.Range("B" & filDesti)
hOrigen.Range("H" & filOri).Copy Destination:=hDestino.Range("F" & filDesti)
MsgBox "Fin del pase.", , "Información"
End Sub(**) Estoy considerando que en el libro de Origen el fin de rango lo tome de la col A y en el libro Destino será la col C la que tendrá datos hasta la última fila ocupada.
1 respuesta más de otro experto
I. Hola Compañer@, 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,
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 Subhttps://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/
Por último quisiera trasladarle más enlaces para afianzar lo anterior y 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.
Código vba para seleccionar la penúltima fila con datos
Macro para copiar y pegar última fila
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/