Buen día, como crear sonido aleta o beeps en una celda cuando coincida con otra.

necesito crear una formula en una determinada celda cuando esta coincida con otra celda o columna pero que a la vez esta emita sonido,  alerta o beeps.por ejemplo A1 = 2 entonces si coloco en B1 el mismo valor, esta celda me avise con sonido, beeps y/ o alarma de la coincidencia. 

1 Respuesta

Respuesta
1

H o l a: La alerta de sonido y mensaje solamente es posible con una macro.

¿Quieres qué realice la macro?

Para adecuar la macro, ¿me puedes decir en cuáles celdas vas a escribir y en cuáles celdas se debe comparar?

Si la comparación es en la misma columna, por ejemplo, si piensas escribir en la columna A y quieres comparar el nuevo valor con todos los valores escritos en la misma columna A, entonces utiliza la siguiente macro.

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Columns("A")) Is Nothing Then
        If Target.Row = 1 Then
            ini = 2
            in2 = 2
        Else
            ini = 1
            in2 = Target.Row - 1
        End If
        u = Range("A" & Rows.Count).End(xlUp).Row
        If u = Target.Row Then u = u + 1
        Set rango = Range("A" & ini & ":A" & in2 & ",A" & Target.Row + 1 & ":A" & u)
        Set b = rango.Find(Target.Value, lookat:=xlWhole)
        If Not b Is Nothing Then
            Call Alarma(b.Address)
            Target.Select
        End If
    End If
End Sub

Pon la macro en los eventos de tu hoja. 

Sigue las Instrucciones para poner la macro en los eventos de worksheet

  1. Abre tu libro de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
  4. En el panel del lado derecho copia la macro

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Agrega la siguiente macro en un módulo:

Public Declare Function Beep Lib "kernel32" _
   (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'
Sub Alarma(direc)
'Por.Dante Amor
    Beep 500, 700
    MsgBox "El dato ya existe en la celda: " & direc
End Sub

Sigue las Instrucciones para ejecutar la macro

  1. Abre tu archivo de excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas