-2

Preciso executar um macro dentro de um Select Case e mandar uma mensagem com o nome do macro que foi executado. O código envia a mensagem mas não executa o macro.

Tenho um combobox com os valores de v (cmbLista). Os macros que quero executar estão no Módulo4

Sub adMacro()
Dim v As String

v = cmbLista.Value
Select Case v
    Case v = "BDCTE": Módulo4.BDCTE
    Case v = "BDCTELog": Módulo4.BDCTELog
    
    End Select
    
    MsgBox v
    
    

End Sub

1 Resposta 1

-1

Se era só isso, seu erro está na sintaxe, como se estivesse atribuindo um novo valor à V.
Eu iria comentar mas não tenho pontos o bastante, então estou colocando como resposta.

Sub adMacro()

  Dim v As String

  v = cmbLista.Value

  Select Case v
    Case "BDCTE": 
      Módulo4.BDCTE
    Case "BDCTELog": 
      Módulo4.BDCTELog
  End Select
    
  MsgBox v
  
End Sub
1
  • Obrigado, resolveu
    – Wesley
    12/10/2021 às 15:25

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .