............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Validar primer dia de cada mes y año

Ver el tema anterior Ver el tema siguiente Ir abajo

Validar primer dia de cada mes y año

Mensaje por jun_pab el Jue Ago 26, 2010 1:07 am

Hola a todos nuevamente me dirijo a ustedes para realizarles una consulta, les comento un poco lo que necesito realizar.
Necesito realizar una macro que valíde que el primer dia de cada mes me realize una acción y también cuando cambie de año , por ejemplo:

01/09/2010
realice acción

01/10/2010
realice acción

01/01/2011
realice acción

Mi duda es como controlo que sea el dia "01" de cada mes y cuando cambie de año tambien siga realizando la acción?

Espero me puedan ayudar.

Saludos

jun_pab

Masculino Cantidad de envíos : 11
Edad : 35
Ciudad - Pais : Santiago - Chile
Version de Excel : 2003 y 2007
Fecha de inscripción : 05/08/2010

Volver arriba Ir abajo

Re: Validar primer dia de cada mes y año

Mensaje por GalileoGali el Jue Ago 26, 2010 7:21 am

a ver si esto te sirve.....
If Day(Date) =1 then "MiAccion"
esto es True solamente los primeros de mes que incluyen al primero de enero, ahora bien si para el primero de enero la accion es distinta a las del restos de los meses entonces:

Código:
If Day(Date) =1 then
        If Month(Date) = 1 Then
        "MiAccionInicioAnual"
        Else
        "MiAccionInicioMensual"
        End If
End If

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Validar primer dia de cada mes y año

Mensaje por jun_pab el Vie Ago 27, 2010 1:53 am

Gali, no me toma la fecha "01/08/2010" de la forma que me indicaste...
intente como sale mas abajo y solo pasa al ELSE, tambien declare una variable "X" y le asigne "01" para compararla con el Day(Date) y tampoco me resulto.

If Day(Date) = "01" Then
MsgBox ("hola")
Else
MsgBox ("no pasa nada")
End If

Espero me puedas ayudar y desde ya muchas gracias.

jun_pab

jun_pab

Masculino Cantidad de envíos : 11
Edad : 35
Ciudad - Pais : Santiago - Chile
Version de Excel : 2003 y 2007
Fecha de inscripción : 05/08/2010

Volver arriba Ir abajo

Re: Validar primer dia de cada mes y año

Mensaje por GalileoGali el Vie Ago 27, 2010 8:28 am

Prueba esto:


Código:
Sub MMMM()
Dim Fecha As Date
Fecha = CDate("01/08/2010")
If Day(Fecha) = 1 Then
MsgBox ("hola")
Else
MsgBox ("no pasa nada")
End If
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Validar primer dia de cada mes y año

Mensaje por Tatayayan el Vie Ago 27, 2010 10:01 am

Hola, presento lo que cre es una aleretnativa:

Sub ControlarPrimeros()
If Day(Date) = 1 Then
Select Case Month(Date)
Case 1
MsgBox "Enero"
Case 2
MsgBox "Febrero"
Case 3
MsgBox "Marzo"
Case 4
MsgBox "Abril"
Case 5
MsgBox "Mayor"
Case 6
MsgBox "Junio"
Case 7
MsgBox "Julio"
Case 8
MsgBox "Agosto"
Case 9
MsgBox "Setiembre"
Case 10
MsgBox "Octubre"
Case 11
MsgBox "Noviembre"
Case 12
MsgBox "Diciembre"
End Select
End If
End Sub

OTRA FORMA

Sub ControlarPrimeros()
Dim Fecha As Date
fecha=DateSerial(year(date),month(date),day(date))
If Day(fecha) = 1 Then
Select Case Month(fecha)
Case 1
MsgBox "Enero"
Case 2
MsgBox "Febrero"
Case 3
MsgBox "Marzo"
Case 4
MsgBox "Abril"
Case 5
MsgBox "Mayor"
Case 6
MsgBox "Junio"
Case 7
MsgBox "Julio"
Case 8
MsgBox "Agosto"
Case 9
MsgBox "Setiembre"
Case 10
MsgBox "Octubre"
Case 11
MsgBox "Noviembre"
Case 12
MsgBox "Diciembre"
End Select
End If
End Sub
avatar
Tatayayan
Moderador
Moderador

Masculino Cantidad de envíos : 319
Ciudad - Pais : Chamical- La Rioja - ARG
Fecha de inscripción : 20/11/2008

Volver arriba Ir abajo

Re: Validar primer dia de cada mes y año

Mensaje por jun_pab el Vie Ago 27, 2010 1:02 pm

Gali y Tatayayan, gracias por las opciones que me dieron, probe ambas y en la opción de los "CASE" no funciona, del "IF" pasa al "END IF" inmediatamente.
El ejemplo de Gali me funciono con los dias "01" de cada mes y de cada año, pero para probar si pasaba al "ELSE" le puse por ejemplo "02/10/2010", "05/07/2010" y me mandaba el mensaje "hola", o sea, no paso al "ELSE".
Ya es un avance, tratare de ver este tema ahora, ojala me puedan seguir ayudando ustedes y gracias nuevamente.

Saludos

jun_pab

jun_pab

Masculino Cantidad de envíos : 11
Edad : 35
Ciudad - Pais : Santiago - Chile
Version de Excel : 2003 y 2007
Fecha de inscripción : 05/08/2010

Volver arriba Ir abajo

Re: Validar primer dia de cada mes y año

Mensaje por GalileoGali el Dom Ago 29, 2010 11:07 am

Sería bueno no seguir "adivinando" lo que quieres. Pon un ejemplo bien concreto en el que aparezca de donde tomas la Fecha, una cosa es que provenga de Date, otra es que "pases" cadenas de texto y otra es con el uso DateSerial, define cómo se provee el dato a la Macro, porque de lo contrario, vas a seguir hablanado de "01", por mas que se insista en 1, 2....7, sin comillas.....

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Validar primer dia de cada mes y año

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.