Foro Excel

Hola ustedes me pueden ayudar para saber Como ejecuto las funciones FECHA.MES Y FIN.MES con Application.WorksheetFunction o cualquier otra solucion efectiva que tenga a la mano.

Muchas Gracias.


Alexander

Hola ammsanchez,

Opcion 1:
Usar la funcion nativa de VBA que es la DateAdd

Si insistes en llamar las funciones mencionadas, entonces:

Opcion 2:
- Habilitar el complemento 'Paquete de Herramienta par Analisis - VBA' desde el menu Herramientas>Complementos...
- Usar la siguiente sintaxis desde el codigo:

Código: Seleccionar todo

MsgBox Format(Application.Run("ATPVBAEN.XLA!FIN.MES", Date, 3), "dd/mm/yyyy")
MsgBox Format(Application.Run("ATPVBAEN.XLA!FIN.MES", #10/7/2006#, 3), "dd/mm/yyyy")

Opcion 3:
- Crear una referencia hacia el complemento ATPVBAEN.XLA a traves del menu Herramientas>Referencias... desde el Editor VBA
- usar FIN.MES como otra funcion de VBA:

Código: Seleccionar todo

MsgBox Format(FIN.MES(Date, 3), "dd/mm/yyyy")
MsgBox Format(FIN.MES(#10/7/2006#, 3), "dd/mm/yyyy")

Nota: si las opciones 2 y 3 no funcionan prueba los nombres de funciones en ingles:
EDATE
EOMONTH

se me olvidaba otra sisntaxis para la opcion 2:

Código: Seleccionar todo

MsgBox Format(Application.Evaluate("FIN.MES(TODAY(), 3)"),"dd/mm/yyyy")

Opcion 4:
Para FIN.MES

Código: Seleccionar todo

MsgBox Format(DateSerial(Year(Date), Month(Date) + 1, 1) - 1, "dd/mm/yyyy")

Muchas Gracias Realmente me fue de mucha ayuda tu solucion.

Muy Bueno!!!!!!

GALI