Ir ao conteúdo
  • Cadastre-se
Luiz Daniel Tartari

Excel Macro Excel - Atualização para Diversas Colunas

Recommended Posts

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×