Como hago una Macro que me guarde datos en otra hoja sin sobreescribir
Tengo una planilla donde vuelco las ventas diarias la cual puede variar la cantidad de filas a completar y necesito día a día guardar esos datos en otra hoja y que se vayan acumulando hasta terminar el mes. Intente haciendo una macro pero me sobreescribe sobre los datos ya guardados
Respuesta de Cecilio Pérez Maqueda
1
Muchas gracias, ya te envíe el archivo.
Saludos
Sub prueba()
Dim wb As Workbook: Set wb = ThisWorkbook
Dim Ho As Worksheet: Set Ho = wb.Sheets("D")
Dim Hd As Worksheet: Set Hd = wb.Sheets("Diario")
Dim ucel
For i = 9 To 9
Application.ScreenUpdating = False
ufi = Ho.Cells(43, "c").End(xlUp).Row
ucel = Hd.Cells(Hd.Rows.Count, 2).End(xlUp).Row + 1
If Ho.Cells(i, "c") > 0 Then
Ho.Range("c" & i & ":g" & ufi).Copy
Hd.Cells(ucel, "b").PasteSpecial xlPasteValues
End If
Next
Sheets("DIARIO").Activate
With Sheets("DIARIO")
uce = Hd.Cells(Hd.Rows.Count, 1).End(xlUp).Row
uce2 = Hd.Cells(Hd.Rows.Count, 2).End(xlUp).Row
Hd.Range("A" & uce & ":A" & uce2) = Ho.Range("D3")
End With
Application.ScreenUpdating = False
Application.CutCopyMode = False
End Sub
