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