Luiz Daniel Tartari

Bom dia Pessoal, Preciso de uma ajuda com o código de uma Macro. Tenho uma base de dados com o código de milhares de produtos e a informação se ele foi "Selecionado" ou "Descartado", em uma outra planilha do mesmo arquivo tenho uma função PROCV que se ler o código de barras na coluna A ele retorna na coluna B se o produto é descartado ou Selecionado e se for selecionado é Emitido um Som de alerta. No entanto esta macro só funciona na Coluna B, gostaria que ela funcionasse além da coluna B, nas colunas (D, F, H, J, L, N, P, R, T, V e X). Pois, a partir de um dado momento em vez de ler o código na Coluna A, vou ler na Coluna C, e o PROCV estará na D. Assim Sucessivamente. Segue o Código. Option Explicit Private Declare Function sndPlaySound32 Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName _ As String, ByVal uFlags As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim PlaySound As Boolean If Target.Count > 1 Then Exit Sub If Target.Column = 1 Then If Target.Value <> "" Then For Each Cell In Target If Target.Offset(, 1).Value = "Selecionado" Then PlaySound = True Exit For End If Next If PlaySound Then Call sndPlaySound32(ThisWorkbook.Path & "\Windows Ringout.wav", 1) End If End If End If End Sub

Basole, ficou excelente. Funcionou perfeitamente, a única coisa que alterei foi para SO de 64 bits. Agradeço muito, vai me ajudar demais. Abraço

Basole, Abri o arquivo aqui mas não percebi diferença, o que foi alterado na fórmula? O que preciso é que toda vez que for lido um código de barras de um item que a "Decisão" for = "Selecionado" execute o áudio. Obs. Cada vez que é lido um código de barras o ENTER é automático, e o cursor pula para a célula abaixo.

Olá Amigos, estou tentando fazer uma função PROCV emitir um som .wav mas não está fácil rsrs. Pesquisei em vários locais códigos de VBA mas nenhum continha a função PROCV com som. Tenho um banco de dados que possui o número do código de barras dos itens ((número único (Coluna "A" do banco de dados)), então tenho em outra planilha uma tabela com a função procv, onde são lidos os códigos de barras dos itens e é informado se o item é "Selecionado" ou "Descarte". O que preciso é que após a leitura do código de barras se a reposta do procv (Coluna B da planilha "Busca") o item for "Selecionado" seja emitido um alerta (Um som .wav) e se o item for "Descarte" não seja emitido nenhum som. Obs. em anexo está um exemplo do arquivo e o som. Abraço e Obrigado Arquivos de busca.7z