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

  • Crear macros Excel

  • Posts

    • Muchas gracias! Voy a tener que revisar las macros porque no domino mucho...   Saludos!
    • Sube tu archivo siempre y pon un ejemplo de donde hay que tomar los datos y donde y como deben reflejarse  
    • Hola nuevamente muchachos. Espero estén bien todos, es mi mayor deseo. Estoy teniendo otro problema por acá con la configuración de un TextBox donde quiero expresar números. Propiamente el número que va a estar reflejado en esos TextBox son la división del Salario Mensual entre los días a trabajar y eso me da un índice o tarifa salarial diaria.  No tengo problemas en las operaciones matemáticas, sino en el formato a expresar en el TextBox.  Este dato lo toma el TextBox de la Hoja, la que tengo configurada (Celda) como Numero. Podrían ayudarme. Gracias de antemano y excelente semana para todos. Saludos Pino
    • Buenas tardes. Tengo el siguiente código en una macro:   Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then     MsgBox ("haz esto")      ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then     MsgBox ("haz esto otro")      Else     MsgBox ("No se cumple") End If End Sub Sin embargo,  siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If. Adjunto el excel de prueba. ¿Alguna idea del por qué no entra en el If ni en el ElseIf? Gracias   Prueba.xlsm
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy