Convertir Formula en Macro

¡Importante!: Colabora con el grupo.Contesta a este mensaje y dinos si te
sirvió o no la respuesta dada. Muchas gracias
Hola!
consulta la ayuda de WorksheetFunction

Saludos a todos desde Huelva

Emilio [MS-MVP Access 2006/11]
miliuco56 ALGARROBA hotmail PUNTO com
http://www.mvp-access.com/foro
http://www.mvp-access.es/emilio
"Peluchin" escribió en el mensaje de noticias
news:
Buenos dias a todos,

Necesito convertir una formula en Macro de la siguiente manera, lo que
quiero es escribir la funcion de la macro y señalar las celdas para
que automaticamente se ejecute la macro:

Tengo lo siguiente:

3 Columnas con fechas y una 4ta columna en donde pondria la formula
para que me de el resultado:

H I J K
4 Fecha 1 Fecha 2 Fecha 3 Resultado
5 PENDIENTE

Suponiendo que de H5 a J5 esta vacio, automaticamente en K5 deberia
aparecer "PENDIENTE", aplicando la siguiente formula en la celda K5 "
=estatus(H5:J5)"

H I J K
4 Fecha 1 Fecha 2 Fecha 3 Resultado
5 19/01/11 OK

ahora, la formla que deberia estar en K5 es la siguiente:

=SI(SUMA(H5:J5)=0;"PENDIENTE";SI(MAX(H5:J5)<=estatus;"OK";DIAS.LAB(estatus;MAXA(H5:J5)-1)))

eso quiere decir que si las celdas estan vacias, me da como resultado
"PENDIENTE", pero si una de las 3 celdas tiene una fecha, esta es
comparada con una fecha "estatus", que de ser la fecha ingresada menor
que status el resultado es "OK", pero si es Mayor una de estas 3
fechas, el resultado es la diferencia de la "fecha mayor-1" menos la
de estatus, dando como resultado un numero de dias laborables.

la formula funciona muy bien, pero quisiera ingresarla como macro para
evitar posibles errores de manipulacion con el archivo y asi solo
poner la formula en la celda, como si se tratase de una formula nativa
del excel, esto quiere decir, que si en el futuro tengo 4, 5 o 6
columnas, la formula deberia de funcionar igual, es decir, con solo
ampliar el rango de la formula:

" =estatus(H5:J5)"

por

" =estatus(H5:L5)"


espero me puedan ayudar,

Saludos,



__________ Information from ESET Smart Security, version of virus signature
database 6078 (20110428) __________

The message was checked by ESET Smart Security.

http://www.eset.com




__________ Information from ESET Smart Security, version of virus signature database 6078 (20110428) __________

The message was checked by ESET Smart Security.

http://www.eset.com