Función máximo con VBA

Hola de nuevo.

Un ejemplo con la función en la celda, podría ser:

[AZ1] ÎLDA("direccion";DESREF(A1;COINCIDIR(MAX(A2:A7);A2:A7;0);0))

El código VBA:
MsgBox "El valor máximo está en " & Range("AZ1").Value


Saludos: Antonio.

Muchas gracias Antonio por el código.
Saludos
Francesca

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

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