Macro no automatizada, no se ejecuta con cambio celda

Tengo una macro que no se ejecuta cuando se cumple el criterio de activación. Solo veo que llega a ejecutarse cuando me situo en la hoja correspondiente y pongo el cursor sobre ella.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("T3").value <= "25%" Then
Call sonido
End If
End Sub

¿Podéis hacer que se ejecute cuando se cumpla la condición sin tener que situarme con el cursor en la hoja correspondiente?

Probé también con "Private Sub Worksheet_Change (ByVal Target As Range)" pero tampoco lo conseguí

1 Respuesta

Respuesta
1

 H o l a:

Prueba con este evento en la hoja donde tienes la fórmula 

Private Sub Worksheet_Calculate()
    If Range("T3").Value <= 0.25 Then
        Call sonido
    End If
End Sub

Si quieres que te envié el sonido sin importar en cuál hoja te encuentres, entonces pon esta macro en los eventos de Thisworkbook y cmabia "Hoja6" por el nombre de tu hoja que tiene la fórmula

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
'Por.Dante Amor
    If Sh.Name = "Hoja6" Then
        If Sh.Range("T3").Value <= 0.25 Then
            Call sonido
        End If
    End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas