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…
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
OK.
Resuelto, gracias.
Salud2...