Buscar celda con valor mínimo en un rango
Publicado por Adrian (2 intervenciones) el 18/02/2018 20:46:45
Hola,
llevo bastantes días intentando crear una macro pero no consigo que me salga bien.
Mi objetivo es el siguiente: Tengo una columna con muchos valores de la cual debo seleccionar la celda con el valor mínimo. Una vez halla encontrado la celda con el valor mínimo quiero pegar una fórmula en la celda adyacente.
En esa fórmula, quiero sumar el valor de celdas adyacentes a la celda con el valor mínimo, por lo que necesito referenciar esa celda de alguna manera...
Os pego lo que he intentado hasta ahora pero no me ha funcionado:
Muchas gracias
Saludos
llevo bastantes días intentando crear una macro pero no consigo que me salga bien.
Mi objetivo es el siguiente: Tengo una columna con muchos valores de la cual debo seleccionar la celda con el valor mínimo. Una vez halla encontrado la celda con el valor mínimo quiero pegar una fórmula en la celda adyacente.
En esa fórmula, quiero sumar el valor de celdas adyacentes a la celda con el valor mínimo, por lo que necesito referenciar esa celda de alguna manera...
Os pego lo que he intentado hasta ahora pero no me ha funcionado:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub horasfrio()
Range("F2:F7249").Select
Selection.ClearContentsMax = Application.WorksheetFunction.Min(Range("E2:E7249"))
Fila1 = MaxColumna1 = Max + 1
Cells(Fila1, Columna1) = Celda1
Fila2 = Max - 1
Columna2 = Max + 1
Cells(Fila1, Columna1) = Celda2
Fila3 = MaxColumna3 = Max - 1
Cells(Fila1, Columna1) = Celda3
Fila4 = Max + 1
Columna4 = Max + 1
Cells(Fila1, Columna1) = Celda4
Range("Celda1").Select
ActiveCell.FormulaR1C1 = "=" & Range(Celda2) & "+" & Range(Celda3) & ""
Range("Celda1").Select
Selection.CopyRange("Celda4:F7249").Select
ActiveSheet.PasteEnd
Muchas gracias
Saludos
Valora esta pregunta
0
