Hola, necesito una macro que copie y pegue datos de una columna, si se cumple la fecha 01-05-2013
esta fecha cambia cada mes
1 Respuesta
Respuesta de Valero Angel Serrano Mercadal
1
Para llevar el control de la fecha de ejecuación y si ya se ha hecho la tarea se necesitan dos celdas. Yo voy a suponer que son las celdas A1 y A2 de la Hoja1, pero tu puedes poner las que quieras.
En A1 es donde pondrás la próxima fecha donde se deben hacer las tareas y en A2 estará reflajada la fecha de la última vez que se ejecutaron, esa fecha la actualiza la macro, no debes hacerlo tú.
Y la macro la introducirás en un módulo Visual basic y es esta
Private Sub auto_open()
With Worksheets("Hoja1")
If Date >= .Range("A1") Then
If .Range("A2") <> .Range("A1") Then
'Aquí irian las ordenes de copiar, pegar y cuanto quieras hacer
.Range("A2").Value = .Range("A1").Value
End If
End If
End With
End SubLa macro se ejecuta el día establecido o uno posterior si el libro no se abrió el día que se hace la tarea.
Espera, que no cuesta nada dar un mensaje de que se han hecho las tareas por si acaso no se da cuenta uno de ello.
Private Sub auto_open()
With Worksheets("Hoja1")
If Date >= .Range("A1") Then
If .Range("A2") <> .Range("A1") Then
'Aquí irian las ordenes de copiar, pegar y cuanto quieras hacer
.Range("A2").Value = .Range("A1").Value
MsgBox ("Tareas del " & .Range("A1") & " realizadas.")
End If
End If
End With
End SubY eso es todo.
