Visual Basic para Aplicaciones - FUNCION FIN.MES

Life is soft - evento anual de software empresarial
 
Vista:

FUNCION FIN.MES

Publicado por Enrique Marín García (2 intervenciones) el 23/09/2009 23:50:34
Tengo el siguiente problema con la función FIN.MES en una aplicación que estoy diseñando:

Valor celda "B2" 15/08/2009
Valor celda "B3" =FIN.MES(B2,0)

El resultado que se muestra en la celda "B3" es: #¿NOMBRE?

La fórmula y el mismo resultado de la celda "B3" se repite en un gran número de registros.

Soluciono el problema de la siguiente forma: Manualmente voy a la celda "B3", edito el valor de la celda con la tecla "F2" y al dar Enter obtengo el resultado deseado que es: 31/08/2009

Pregunta: ¿Cómo puedo lograr mediante código de VBA ejecutar la misma acción (editar el valor de las celdas formuladas con la funcion FIN.MES) para solucionar el problema?

Anticipo mis agradecimientos.

NOTA: También dejé esta consulta en el foro de EXCEL (por si acaso...).
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:FUNCION FIN.MES

Publicado por Paolo Santos (4 intervenciones) el 01/10/2009 02:51:04
no sera que el problema radica que el formato de numeracion de la celda este en general o de texto, al momento de indicarle que es formato de fecha no se corregira el problema?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:FUNCION FIN.MES

Publicado por Adrian (20 intervenciones) el 07/10/2009 13:48:48
Hola, me parece que estas usando Excel 07, y el libro es originario de Excel 03, es decir es de extensión xls.

Te doy otra posibilidad de respuesta:

Application.CalculateFull

Este código recalcula las fucniones y/o fórmulas.

Al parecer si tienes el complemento Herramientas para el análisis instalado.

También puedes ayudarte con el grabador de macros, para obtener códigos.

Range("A2").Select 'Selecciono la celda con la fórmula
ActiveCell.FormulaR1C1 = "=DATE(YEAR(R[-1]C),MONTH(R[-1]C)+1,1)-1"
Range("A3").Select 'Paso a otra celda

Lo de arriba es si hay una fecha en A1 y la fórmula esta en A2, es como si se hubiese hecho F2 en A2 y dar enter.

*********************************************************
Otra forma de calcular el finde mes es:
En A1 una fecha
En otra celda
=FECHA(AÑO(A1);MES(A1)+1;1)-1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar