Excel - Macro para identificar minimos

   
Vista:

Macro para identificar minimos

Publicado por Octavio (46 intervenciones) el 08/05/2008 00:43:27
Sabe alguien donde puedo ver un ejemplo o un codigo para que una macro identifique los valores minimos en un rango de datos p.ej
A B C D E F
1 10 5 4 6 8 Min4
2
3
4

Algo Asi
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Macro para identificar minimos

Publicado por Abraham Valencia (2418 intervenciones) el 08/05/2008 00:58:55
Una forma:

Sub MinimoVBA()
Dim dblvalormin#
Dim rango As Range
Set rango = Worksheets("Hoja3").Range("A1:D1")
dblvalormin# = Application.WorksheetFunction.Min(rango)
MsgBox "El valor minimo del rango es " & dblvalormin#
Set rango = Nothing
End Sub

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macro para identificar minimos

Publicado por Octavio (46 intervenciones) el 10/05/2008 01:01:18
Sabes como puedo hacer para que lo haga en las filas que siguen hacia abajo gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macro para identificar minimos

Publicado por Luis Fernando (805 intervenciones) el 10/05/2008 03:44:34
Cambiando el rango "A1:D1" a las celdas que quiera evaluar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macro para identificar minimos

Publicado por Fernando (231 intervenciones) el 11/05/2008 01:50:27
Si quieres evaluar por filas, te recomiendo usar un bucle.

Saludos.
FA#
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macro para identificar minimos

Publicado por Luis Fernando (805 intervenciones) el 17/05/2008 01:38:30
Eso depende si necesita el minimo de cada fila o el minimo de todas ellas
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Macro para identificar minimos

Publicado por Santiago (193 intervenciones) el 17/05/2008 05:09:40
Sub Minimo()
fila=1
do while cells(fila,1)<>""
fila=fila+1
loop
fila=fila-1

for y=1 to fila
Set rango = Range(cells(y,1),cells(y,4))
cells(y,5)= Application.WorksheetFunction.Min(rango)
Set rango = Nothing
next y

End Sub

Buena suerte
SCM
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar