MACRO PARA COPIAR UNA CELDA CON FORMULA Y PEGARLA EN OTRA HOJA
publicado
Buenas tardes, me gustaría que pudierais ayudarme, con una macro, me explico:
Tengo muy poca experiencia con las macros e hice una que todos los días me crea una hoja nueva y le pone la fecha actual, pero mi problema empieza cuando intento pegar en la celda M14 de el día de hoy la celda M14 del día anterior.
Lo que hice es lo siguiente:
Sub copiardatos()
'
' dim fechaactual as date
Dim fechaanterior As Date
fechaactual = "dd-mm-yy"
fechaanterior = Format(Date - 1, "dd-mmm-yy")
fechaactual = Worksheet
fechaanterior = Worksheet
activeworksheet = ("fecha anterior")
Range("M14").Select
Selection.Copy
activeworksheet = ("fecha actual")
Range("M14").Select
Buenas tardes, me gustaría que pudierais ayudarme, con una macro, me explico:
Tengo muy poca experiencia con las macros e hice una que todos los días me crea una hoja nueva y le pone la fecha actual, pero mi problema empieza cuando intento pegar en la celda M14 de el día de hoy la celda M14 del día anterior.
Lo que hice es lo siguiente:
Sub copiardatos()
'
' dim fechaactual as date
Dim fechaanterior As Date
fechaactual = "dd-mm-yy"
fechaanterior = Format(Date - 1, "dd-mmm-yy")
fechaactual = Worksheet
fechaanterior = Worksheet
activeworksheet = ("fecha anterior")
Range("M14").Select
Selection.Copy
activeworksheet = ("fecha actual")
Range("M14").Select
Selection.PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
ActiveCell.Formula = "=SUMA('fechaanterior'!M14+M10)"
End Sub
Pero cuando la ejecuto no me copia la celda, me sale el explorador de archivos. Me podríais decir como hacerlo?
Muchas gracias anticipadas. Un saludo