Visual Basic - Selecciona celda que contiene un valor(MAx/Min) como activa

Life is soft - evento anual de software empresarial
   
Vista:

Selecciona celda que contiene un valor(MAx/Min) como activa

Publicado por Ariel roddick_1988@icloud.com (5 intervenciones) el 14/06/2017 18:43:28
Estimados, junto con saludar quisiera que me ayudaran con un problemita, soy nuevo en vbasic y deseo seleccionar como activa la celda que contiene un valor determinado, en este caso un minimo o un maximo, la cuestion es que la rutina me funciona en un libro nuevo, no asi en el libro que deseo, la para el maximo funciona bien, la del minimo me da cualquier cosa y se supone que es cambiar una miserable funcion, he aqui el problema:

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
30
31
32
33
Public Sub buscastebien1()
Dim mini As Integer
f12 = Cells(Rows.Count, 7).End(xlUp).Row
    mini = Application.WorksheetFunction.min(Range("G3:G" & f12))
Dim d As Variant
With ActiveSheet.Range("g3:g500")
    Set d = .Find(mini, LookIn:=xlValues)
        first = d.Address
        Range(first).Activate
        ActiveCell.Offset(0, -1).Select
    MsgBox (first)
    MsgBox (mini)
 
End With
MsgBox "The Average Power Consumption in this Campaign Was: " & ActiveCell.Value & " " & "[KW]", vbOKOnly, "Average Power"
End Sub
 
esa tiene el error
esta otra corre bien
Public Sub buscastebien()
Dim maxxz As Integer
fin12 = Cells(Rows.Count, 7).End(xlUp).Row
    maxxz = Application.WorksheetFunction.max(Range("G3:G" & fin12))
Dim c As Variant
With ActiveSheet.Range("g3:g500")
    Set c = .Find(maxxz, LookIn:=xlValues)
        firstaddress = c.Address
        Range(firstaddress).Activate
        ActiveCell.Offset(0, -1).Select
 
End With
MsgBox "The Average Power Consumption in this Campaign Was: " & ActiveCell.Value & " " & "[KW]", vbOKOnly, "Average Power"
End Sub

gracias por todo ya que he aprendido mucho de esta web, 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 Antoni Masana

Selecciona celda que contiene un valor(MAx/Min) como activa

Publicado por Antoni Masana (262 intervenciones) el 19/06/2017 18:01:51
Sube el Libro para poder ver que haces.

Saludos.
\\//_
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

Selecciona celda que contiene un valor(MAx/Min) como activa

Publicado por Ariel (5 intervenciones) el 07/07/2017 16:59:52
Estimado, muchas gracias por atender la inquietud, solucione el problema, la falla se debia a que las celdas sobre las que actuaba eran resultados de una funcion aplicada, entonces la funcion minimo me mostraba error debido a que busca valores numeros y no estaban con su formato debido, para que lo tengan en consideracion si es que les llegase a suceder, saludos!
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