Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Rodar macros em det...
 
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,229 Visualizações
RSS
 Glaudemir
(@glaudemir)
Posts: 42
Trusted 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: 4063
Famed 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
 
Postado : 02/08/2016 8:06 am
 Glaudemir
(@glaudemir)
Posts: 42
Trusted 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: 4063
Famed Member
 

Então... anexe seu arquivo aqui.

 
Postado : 02/08/2016 8:51 am
 Glaudemir
(@glaudemir)
Posts: 42
Trusted 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: 4063
Famed 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.

 
Postado : 02/08/2016 11:05 am
 Glaudemir
(@glaudemir)
Posts: 42
Trusted 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: 4063
Famed Member
 

OK.

agora sim.

Segue seu arquivo funcionando do jeito que pretende.

Fórum.zip
 
Postado : 02/08/2016 11:39 am
 Glaudemir
(@glaudemir)
Posts: 42
Trusted Member
Topic starter
 

Wagner, agora está tudo funcionando como preciso. Muito obrigado mesmo.

Glaudemir

 
Postado : 02/08/2016 12:13 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico