formula a macro

Hola,

prueba esta macro:


sub maxima()

x = 1
'inicializa valores maximos
maxA = Cells(x, 1).Value
maxB = Cells(x, 2).Value
maxC = Cells(x, 3).Value
While x <= 10
If Cells(x, 1).Value > maxA Then maxA = Cells(x, 1).Value
If Cells(x, 2).Value > maxB Then maxB = Cells(x, 2).Value
If Cells(x, 3).Value > maxC Then maxC = Cells(x, 3).Value
x = x + 1
Wend

'esto es solo para que sepas qué valor máximo quedó en cada columna
Cells(12, 1).Value = maxA
Cells(12, 2).Value = maxB
Cells(12, 3).Value = maxC

Cells(12, 4).Value = maxA + maxB + maxC

End Sub


Suerte,

Fernando






Max Wrote:

Hola
Desearia saber si hay la posibildad de reemplazar esta formula que
tengo a
un macro .
=MAX(A1:A10)+MAX(B1:B10)+MAX(C1:C10

fernandocarrill
fernandocarrillo's Profile: http://www.msusenet.com/member.php?userid&4
View this thread: http://www.msusenet.com/t-187056753

Si ya tienes la formula para que quieres convertirla a macro? las funciones
de excel se evaluan mas rapido

"Max" escribió en el mensaje
news:

Hola
Desearia saber si hay la posibildad de reemplazar esta formula
que
tengo a
un macro .
=MAX(A1:A10)+MAX(B1:B10)+MAX(C1:C10)

Hola Totalmente de acuerdo , pero no he querido molestar mucho , lo que
necesito es hacer un pequeño programa donde me debe buscar el valor maximo
y minimo de varias columnas donde el valor maximo no siempre va a ser dentro
del mismo rango.

"Manuel Romero" escribió:

Si ya tienes la formula para que quieres convertirla a macro? las funciones
de excel se evaluan mas rapido

"Max" escribió en el mensaje
news:
> Hola
> Desearia saber si hay la posibildad de reemplazar esta formula
> que
> tengo a
> un macro .
> =MAX(A1:A10)+MAX(B1:B10)+MAX(C1:C10)
>
>

Hola Max,

Que tal esto:

Sub test()
rng1 = "A1:A10"
rng2 = "B1:B10"
rng3 = "C1:C10"

Range("E1").Formula = _
Evaluate("=MAX(" & rng1 & ")+MAX(" & rng2 _
& ")+MAX(" & rng3 & ")")
End Sub


Saludos,
KL

"Max" wrote in message
news:

Hola
Desearia saber si hay la posibildad de reemplazar esta formula
que
tengo a
un macro .
=MAX(A1:A10)+MAX(B1:B10)+MAX(C1:C10)