COMO GRABAR UNA MACRO de una hoja a otra

Cerrado
luishdezgil
Message postés
1
Date d'inscription
viernes, 12 de mayo de 2017
Estatus
Miembro
Última intervención
viernes, 12 de mayo de 2017
- 12 may 2017 a las 17:20
Buenas tardes,

necesito ayuda con una macro que estoy intentando montar, pero no me sale lo que estoy intentando.

Me idea es copiar los datos de una hoja origen a una hoja destino, y que al cambiar estos datos se sigan copiando en la ultima celda de la hoja destino, y así ir creando un informe.

he puesto este código:

Sub CONTABILIZAR()

'Definir objetos a utilizar
Dim wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range

'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("HOJA DE CAJA")
Set wsDestino = Worksheets("DIARIO")

'Indicar la celda de origen y destino
Const celdaOrigen = "F2"
Const celdaDestino = "A2"

'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)

'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy

'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False


End Sub

Pero al borrar datos, y volver a poner otros nuevos, los de la hoja destino cambian, y no se van acumulando.

A ver si me podéis echar una mano, y lo consigo solucionar.

espero vuestra ayuda.

muchas gracias,

Luis