Macro para copiar y pegar datos de 2 hojas diferentes.
Tengo 3 hojas, llamadas: gastos, ingresos y balance general. Necesito un macro que copie las informaciones de las hojas llamada gastos e ingreso y la vaya pegando en la fila primera fila en blanco de la hoja balance general. Teniendo en cuenta que los datos que se van a copiar de la hoja ingreso esta en las columnas A D y F y los datos de la hoja gastos esta en la columnas A y E.
2 Respuestas
Estos ejemplos
Visita http://programarexcel.com descarga cientos de ejemplos de macros gratis
Suscribe https://youtube.com/programarexcel recibe los ejemplos de macros que se presentan en tu correo
Sub quiebres()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim Ho As Worksheet: Set Ho = wb.Sheets("Gastos")
Dim Ho1 As Worksheet: Set Ho1 = wb.Sheets("Ingresos")
Dim Hd As Worksheet: Set Hd = wb.Sheets("Balance general")
Dim ucel
'ucel = Hd.Range("A" & Rows.Count).End(xlUp).Row + 1
'For i = 2 To Ho.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To Ho.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
ucel = Hd.Cells(Hd.Rows.Count, 1).End(xlUp).Row + 1
If Ho.Cells(i, "A") > 0 Then
Ho.Cells(i, "A").Copy Hd.Cells(ucel, "A")
Ho.Cells(i, "E").Copy Hd.Cells(ucel, "E")
'Ho.Cells(i, "C").Copy Hd.Cells(ucel, "C")
Application.CutCopyMode = False
End If
Next
Application.ScreenUpdating = False
For i = 1 To Ho1.Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
ucel = Hd.Cells(Hd.Rows.Count, 1).End(xlUp).Row + 1
If Ho1.Cells(i, "A") > 0 Then
Ho1.Cells(i, "A").Copy Hd.Cells(ucel, "A")
Ho1.Cells(i, "D").Copy Hd.Cells(ucel, "D")
Ho1.Cells(i, "F").Copy Hd.Cells(ucel, "F")
Application.CutCopyMode = False
End If
Next
Application.ScreenUpdating = False
End SubEn caso de que te sirva recuerda valorar.
¡Gracias! Por el código pero me da error.
¿En qué parte te marca error? Si gustas mándame tu archivo a [email protected] para revisarlo.
¿Tu hoja se llama Ingreso o Ingresos?