Función máximo con VBA

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

Necesariamente ha de ser con VBA?


SALUDOS.
Julián-Valencia-España
http://www.tinyurl.com/julianvalencia


"Francesca Brasso" escribió en el mensaje
news:
Mostrar la cita

Hola, ¿cómo puedo mediante VBA hacer que una celda me devuelva el valor
máximo entre otras seis celdas?

Saludos
Francesca

un modo:

[B1]=application.WorksheetFunction.Max(Range("A1:A6"))

Me parece mas facil/rapido usar la funcion MAX en la celda

Abraham

Gracias Abraham, y sí, es más ràpido y fácil usar MAX en la celda y sé como
aplicarla, pero... no me sirve. Este cálculo forma parte de una macro.
Conn esto también te contesto, Julian.

Saludos
Francesca


"Abraham" escribió en el mensaje de noticias
news:
Mostrar la cita

un modo:

[B1]=application.WorksheetFunction.Max(Range("A1:A6"))

Me parece mas facil/rapido usar la funcion MAX en la celda

Abraham

¡Oops!, qué distraída soy, olvidé un detalle en mi consulta. ¿Cómo puedo
saber a cual de las seis celdas corresponde el máximo?
Saludos
Fran


"Francesca Brasso" escribió en el mensaje de
noticias news:eM$
Mostrar la cita

Gracias Abraham, y sí, es más ràpido y fácil usar MAX en la celda y sé
como aplicarla, pero... no me sirve. Este cálculo forma parte de una
macro.
Conn esto también te contesto, Julian.

Saludos
Francesca


"Abraham" escribió en el mensaje de noticias
news:
Mostrar la cita

un modo:

[B1]=application.WorksheetFunction.Max(Range("A1:A6"))

Me parece mas facil/rapido usar la funcion MAX en la celda

Abraham

Hola Fran.

Dado que consideras que es más fácil con una función en la celda (yo tambien lo creo asi), puedes hacerlo de esa manera
y desde VBA utilizas el valor de esa celda. Obviamente la celda la puedes tener en un rango que no moleste visualmente
en la zona de trabajo y/o incluso oculta.

Pero si lo quieres hacer integramente en VBA, podría ser algo similar a (el ejemplo tiene 5 filas de código):

Sub prueba()
Dim Dir$
Dir = Cells(Range("A2:A7").Find(Application.WorksheetFunction.Max(Range("A2:A7"))).Row, 1).Address
MsgBox "El valor máximo está en: " & Dir
End Sub


Saludos: Antonio.

**********************************

"Francesca Brasso" escribió en el mensaje news:
Mostrar la cita

¡Oops!, qué distraída soy, olvidé un detalle en mi consulta. ¿Cómo puedo saber a cual de las seis celdas corresponde
el máximo?
Saludos
Fran


"Francesca Brasso" escribió en el mensaje de noticias
news:eM$
Mostrar la cita

Gracias Abraham, y sí, es más ràpido y fácil usar MAX en la celda y sé como aplicarla, pero... no me sirve. Este
cálculo forma parte de una macro.
Conn esto también te contesto, Julian.

Saludos
Francesca


"Abraham" escribió en el mensaje de noticias
news:
Mostrar la cita

un modo:

[B1]=application.WorksheetFunction.Max(Range("A1:A6"))

Me parece mas facil/rapido usar la funcion MAX en la celda

Abraham