Excel Macro Excel - Atualização para Diversas Colunas

[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