Hola,

De nuevo tengo que recurrir a vosotros.

Estoy preparando una hoja para hacer un inventario. Tengo un scanner que voy pasando por el código de barras de  los artículos. Como el ordenador no lo estoy mirando mientras escaneo, necesito que me avise con un pitido cuando una celda de la columna "E" es igual a "0".

Gracias de antemano

 

Espero te sirva

Beep.xlsm

al abrir el archivo da error en la macro.

marca en amarillo la línea que pone:

r = ActiveCell.Row

 

Muy raro, a mi no me salta ningún error.

Mándame la imagen del error

Beep - Janlui.xlsm

Editado el el 26 de septiembre3 años por Janlui

Adjunto 2 fotos

No me sale el error.

Vamos a pedir ayuda al maestro ANTONI y aprovecho en saludarlo.

Dos aclaraciones:

1. Al abrir el archivo no se ejecuta el evento Worksheet_SelectionChange
2. Las variables púbicas deben definirse en un módulo

Me he limitado a corregir las macros de Janlui, en ningún momento he entrado a valorar si lo que hacen solucionan la consulta de GROGITO, porqué no ha subido su archivo, ni ha explicado con un ejemplo lo que quiere.

En Thisworkbook:

Private Sub Workbook_Open()
    GuardarSelección
End Sub

En la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
    If r > 3 And c <> 5 And (Len(Cells(r, 5)) = 0 Or Cells(r, 5) = 0) Then
        Beep
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    GuardarSelección
End Sub

En un módulo:

Public r As Integer
Public c As Integer

Sub GuardarSelección()
    r = ActiveCell.Row
    c = ActiveCell.Column
End Sub

 

Beep.xlsm

Editado el el 27 de septiembre3 años por Antoni

Buenos días,

 Ahora ya no da error al abrir el archivo, pero no emite un pitido al obtener un resultado igual a "0"  en la columna "E" .

Necesito que me avise con un beep  porque estoy pasando el  scanner por los artículos y el ordenador no esta a mi lado. De ese modo cuando un producto da 0 en existencias, me avisa para poder corregirlo.

Primeramente, gracias Antoni, sigo aprendiendo.

Si me funciona, la captura es en cualquier columna excepto la "E", si incorporas un dato y en la columna "E" esta vacia o un Cero, este manda un Beep.

Checa el volumen de tu equipo.

Saludos

Perdona Juanli,

No me explique bien. Es al contrario. Tiene que ser al revés. Debe sonar el beep cuando el resultado en la columna "E" sea Igual a "0".

Es para avisarme de que la referencia que estoy escaneando no existe en el stock.

Era culpa mía.

 Estaba mal la fórmula por eso no pitaba.

Está perfecta. Podemos dar el tema por cerrado.

Muchas gracias me es de mucha ayuda.