Visual Basic.NET - Buscar celda con valor mínimo en un rango

 
Vista:

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:

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.ClearContents
    Max = Application.WorksheetFunction.Min(Range("E2:E7249"))
 
    Fila1 = Max
    Columna1 = Max + 1
    Cells(Fila1, Columna1) = Celda1
 
    Fila2 = Max - 1
    Columna2 = Max + 1
    Cells(Fila1, Columna1) = Celda2
 
    Fila3 = Max
    Columna3 = 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.Copy
    Range("Celda4:F7249").Select
    ActiveSheet.Paste
End


Muchas gracias

Saludos
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
Imágen de perfil de giancarlo
Val: 483
Bronce
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Buscar celda con valor mínimo en un rango

Publicado por giancarlo (409 intervenciones) el 19/03/2018 23:11:36
de todos los valores de una tabla o de una columna especificamente
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

Buscar celda con valor mínimo en un rango

Publicado por Adrian (2 intervenciones) el 20/03/2018 12:56:46
De una columna específica
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