Jump to content

Emitir un pedido cuando alguna celda de la fila "E" son igual a "0"


Recommended Posts

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

 

Link to comment
Share on other sites

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

Edited by Antoni
Link to comment
Share on other sites

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.

Link to comment
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy