Lo prometido es deuda Aquí te presento la función que buscabas...pero esperamos el regalito que prometiste. :roto: (ya sabés lo que significa).
Ahora en serio, la función no la probé para casos especiales como matrices de 1x1, pero funciona de maravillas:
**************************
function Dazuaga(matriz)
numero_de_filas= ubound(matriz,1)
numero_de_columnas= ubound(matriz,2)
if numero_de_filas>1 then
maximo=matriz(1,1)
for n=1 to numero_de_columnas
for i=1 to numero_de_filas
if maximo<matriz(i,n) then
maximo=matriz(i,n)
end if
next
next
end if
if numero_de_filas=1 and numero_de_columnas=1 then
maximo=matriz(1,1)
end if
if numero_de_filas=1 and numero_de_columnas>1 then
maximo=matriz(1,1)
for i=1 to numero_de_columnas
if maximo<=matriz(1,i) then
maximo=matriz(1,i)
end if
next
end if
end function
**********************************
Para generar una variable que se corresponda con el tipo de dato de "matriz" podés hacer lo siguiente
Dim matriz(n°filas,n°columnas)
en tu caso n° columnas es 2 según me dijiste
y n° de filas es una variable
Espero que te sirva
Cualquier duda sobre esta función mandá un mensaje.
Enrique2
:P
:)
