Forums Últimos mensajes - Powered by IBM
 

Macro bajo condición

20/10/2005 - 00:07 por Javichu | Informe spam
Saludos!
Recurro de nuevo a vuestra ayuda para solucionar un nuevo problema.
Quiero crear una macro la cual, se ejecute si la fecha es menor
01/01/2006 (por ejemplo) y si en una determinada celda de un
determinada hoja, hay un valor, por ejemplo 1. Cuando esas do
condiciones se den, debe ejecutarse la macro ella sola automaticamente
y ahora viene el kit de la cuestion:
La macro ha de selecionar un rango de una hoja determinada, y borrarlo
Y para terminar (si no es mucho pedir...) que guarde el documento con e
mismo nombre.
He buscado en el foro algo parecido, y he visto una macro que se debí
de ejecutar antes del dia de navidad. He intentado adecuarlo a mi
necesidades pero no doy con el "kit" (mis conocimientos de vb so
practicamente nulos).
Gracias por vuestro tiempo y por atender estas líneas. Gracias po
vuestra colaboración

Javich
Javichu's Profile: http://www.msusenet.com/member.php?useridB9
View this thread: http://www.msusenet.com/t-187113308
 

Leer las respuestas

#1 Javichu
02/11/2005 - 00:30 | Informe spam
Hola de nuevo Hector!!
Tengo un problema y no se por donde salir.
He estado modificando el código que me mandastes, y le he aplicado u
GoTo, pero la sintaxis no es correcta al parecer (o al menos, eso dic
el mensaje que aparece...) He estado buscando en la ayuda de VB, per
no me aclaro. Podrías decirme que falla?

Private Sub Workbook_Open()
On Worksheets("Hoja de Control").Range("a999") <> 1 GoT
solucion_variable
If Date < DateSerial(2005, 15, 11) Then Exit Sub
Worksheets("Hoja de Control").Range("a1:t1000").ClearContents
Worksheets("Pegatinas").Range("a1:v30000").ClearContents
solucion_variable:
ThisWorkbook.Save
Application.Quit
ThisWorkbook.Close
End Sub

Mi intención es la siguiente:
-Cuando llegue la fecha indicada, que borre el rango que marca (Hoja d
control A1:t1000).
-Al borrarlo, "Hoja de control" A999 se convierte en 0 (no hay ningu
valor).
-Al volver a abir la hoja, como "Hoja de control" A999 es igual a 0
salva y sale. Sea la fecha que sea. Pero aqui es donde tengo e
problema, cuando el valor es distinto de 1.

Así de éste modo, una vez activada por primera vez la macro, aunque s
cambiase la fecha a una inferior, siempre "se percataría" de que ya s
ha cambiado la fecha y se cerraría.

Gracias de nuevo por tu tiempo y tu colaboración

Javich
Javichu's Profile: http://www.msusenet.com/member.php?useridB9
View this thread: http://www.msusenet.com/t-187113308

Preguntas similares