Buscar dato en matriz y que devuelva fila y columna
Buenas tardes
Tengo una matriz con encabezados donde quiero encontrar el mínimo de la misma. El problema es que necesito obtener fila y columna de este dato (más concretamente los encabezados).
Un saludo y gracias
Tengo una matriz con encabezados donde quiero encontrar el mínimo de la misma. El problema es que necesito obtener fila y columna de este dato (más concretamente los encabezados).
Un saludo y gracias
Respuesta de v_344
1
¿Podrías darme un ejemplo?... a que te refieres con "encontrar el mínimo de la misma"... solo quieres saber la celda en la que se encuentra, ¿de la forma "A5" por ejemplo?
H P C
3 10 2 5
6 9 15 1
9 8 9 21
12 13 4 36
El mínimo de la matriz es 1 y necesito que me devuelva que esta en Columna C Fila 6 (son encabezados, no fila y columna)
Si necesitas más aclaraciones dímelo, gracias.
3 10 2 5
6 9 15 1
9 8 9 21
12 13 4 36
El mínimo de la matriz es 1 y necesito que me devuelva que esta en Columna C Fila 6 (son encabezados, no fila y columna)
Si necesitas más aclaraciones dímelo, gracias.
Es una macro y el código es el siguiente:
Private Sub CommandButton1_Click()
minimo = WorksheetFunction.Min(Range("b2:d5"))
celda = Range("b2:d5").Find(minimo, lookat:=xlWhole).Address
columna = Range(celda).End(xlUp).Value
fila = Range(celda).End(xlToLeft).Value
Range("f1") = "Columna " & columna & " Fila " & fila
End Sub
Como veras yo lo puse en un botón de comando
tienes que cambiar los Range a donde están concretamente tus datos sin encabezados por ejemplo yo coloque los datos que me diste desde A1 (vacío) hasta D5 (36) y de esta manera los datos se encuentran en el rango "B2:D5".
¿La ultima parte indica donde se mostrara el resultado tu lo cambias a la celda donde quieres el resultado
si tienes duda me dices va que va?...
Private Sub CommandButton1_Click()
minimo = WorksheetFunction.Min(Range("b2:d5"))
celda = Range("b2:d5").Find(minimo, lookat:=xlWhole).Address
columna = Range(celda).End(xlUp).Value
fila = Range(celda).End(xlToLeft).Value
Range("f1") = "Columna " & columna & " Fila " & fila
End Sub
Como veras yo lo puse en un botón de comando
tienes que cambiar los Range a donde están concretamente tus datos sin encabezados por ejemplo yo coloque los datos que me diste desde A1 (vacío) hasta D5 (36) y de esta manera los datos se encuentran en el rango "B2:D5".
¿La ultima parte indica donde se mostrara el resultado tu lo cambias a la celda donde quieres el resultado
si tienes duda me dices va que va?...
