Notifications

Clear all

Rodar macros em determinada coluna

2024 - VBA & Macros

Post Recente por Glaudemir 8 anos atrás

9 Posts

2 Usuários

0 Reactions

1,258 Visualizações

RSS

Glaudemir

(@glaudemir)

Posts: 42

Eminent Member

Topic starter

Por favor, preciso adaptar o código abaixo (fornecido pelo colega Osvaldomp) para que apenas na coluna H (que só pode ser preenchida com “Lançar” ou “Deletar”), dependendo de uma dessas duas situações sejam rodadas as macros correspondentes.

Tentei fazer a adaptação mas não obtive sucesso. Primeiro modifiquei o “X” e o “Y” por “Lançar” e “Deletar”, mas o código deixa de responder, simplesmente não faz nada.

Também não sei como fazer para que o código só se refira apenas à coluna H.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column > 1 Then Exit Sub
Select Case UCase(Target.Value)
  Case "X": macrox
  Case "Y": macroy
 End Select
End Sub

Se alguém puder me ajudar...

Postado : 02/08/2016 7:45 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Glaudemir,

Bom dia!

Tente assim:

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count > 1 Then Exit Sub
     If Target.Column = 8 Then
          Select Case UCase(Target.Value)
               Case "Lançar"
                    Call macrox
               Case "Deletar
                    Call macroy
          End Select
     End If
End Sub

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/08/2016 8:06 am

Glaudemir

(@glaudemir)

Posts: 42

Eminent Member

Topic starter

Wag, obrigado por sua ajuda, mas não funcionou.

Postado : 02/08/2016 8:41 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Então... anexe seu arquivo aqui.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/08/2016 8:51 am

Glaudemir

(@glaudemir)

Posts: 42

Eminent Member

Topic starter

Wagner, conforme sua instrução, segue o link para uma planilha para facilitar o entendimento da minha necessidade:

https://www.sendspace.com/file/uj1h9g

Muito agradecido.

Glaudemir

Postado : 02/08/2016 10:01 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Glaudemir,

Desculpe... mas eu não consigo acessar sites de compartilhamento e armazenamento de arquivos aqui meu trabalho. Aqui mesmo no fórum você pode anexar seu arquivo compactado com ZIP.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/08/2016 11:05 am

Glaudemir

(@glaudemir)

Posts: 42

Eminent Member

Topic starter

Wagner, segue arquivo anexo em zip.

Obrigado.

Glaudemir

Fórum.zip

Postado : 02/08/2016 11:24 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

OK.

agora sim.

Segue seu arquivo funcionando do jeito que pretende.

Fórum.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 02/08/2016 11:39 am