Celda no activa macro ???

3 envíos / 0 nuevos
Último envío
eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 3 días 2 horas
Nivel 1 - 200 puntos
alta: 29/08/2017 - 17:21
Puntos: 1445
Celda no activa macro ???

Hola buenas.

Tengo esta macro de san google:

Private Sub worksheet_change(ByVal target As Excel.Range)

    If target.Cells.Count > 1 Then Exit Sub

    If IsNumeric(target) And target.Address = "$B$37" Then

        Select Case target.Value

         Case Is > 0: Macro_texto

        End Select

    End If

End Sub

 

Simplemente es que se active la macro si en la celda B37 es >0, esta celda contiene una fórmula que cambiara >0 cuando se da la condición.

Cuando se da esa condición no salta la macro, solo si pongo manualmente en la celda ejemplo 5

Salud2…

Cron
Imagen de Cron
Offline
última acción: Hace 4 horas 54 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12225
Claro, esta macro responde al

Claro, esta macro responde al evento de que se cambie una celda (manualmente) y que esa celda sea B37, sea numérica y solo se cambie esa celda, es decir, no haya más celdas seleccionadas.

Quizás lo que tú quieres es el evento Calculate. Ya no nos haría falta comprobar que la celda cambiada sea B37, porque lo miramos directamente. Prueba lo siguiente:

Private Sub Worksheet_Calculate()
    If IsNumeric(Cells(37, 2).Value) Then
        If Cells(37, 2).Value > 0 Then Macro_texto
    End If
End Sub

 

Un saludo

eugeniocol
Imagen de eugeniocol
Offline
última acción: Hace 3 días 2 horas
Nivel 1 - 200 puntos
alta: 29/08/2017 - 17:21
Puntos: 1445
respuesta

OK.

Resuelto, gracias.

Salud2...