Max y min dependiendo del color del texto de un rango

[steran64]

Hola Buenas tardes, necesito ayuda debo encontrar el máximo y el mínimo de un rango de datos dependiendo del color.

 

por ejemplo si el texto es de color rojo debo hallar el máximo y si el texto es azul debo hallar el mínimo dentro de un mismo rango

[Toldeman]

Hola.

Prueba esta macro y adaptala a tus necesidades.

	Sub color()
Dim cel As Range
Dim rojo(100)
Dim azul(100)
Xr = -1
Xa = -1
For Each cel In Range("A1:A7")
If cel.Font.ColorIndex = 3 Then
Xr = Xr + 1
rojo(Xr) = cel
End If
If cel.Font.ColorIndex = 5 Then
Xa = Xa + 1
azul(Xa) = cel
End If
Next
MsgBox "Maximo " & Application.WorksheetFunction.Max(rojo)
MsgBox "Minimo " & Application.WorksheetFunction.Min(azul)
	End Sub
	

Un saludo.

[steran64]

Gracias ya lo pruebo 

 

[steran64]

Gracias por el macro la pregunta es como descarto el 0 en los mínimos y estos mínimos y máximos tan bien se deben evaluar en las filas y las columnas, osea se debe colocar el valor al final del rango tanto por fila como por columna, gracias

 

[Toldeman]

Hola.

Sube un pequeño ejemplo e indica los resultados esperados.

Un saludo.