none
Problema com uma macro EXCEL RRS feed

  • Pergunta

  • Olá, pessoal! Seguinte, tenho uma planilha "Associates" onde tenho uma fórmula(DA9) linkada à uma célula(H9) que, depedendo do valor posto(em H9), a fórmula resulta em "A", "V" ou "D", representando as cores amarelo, vermelho e verde, respectivamente. O que eu preciso é que, quando o resultado for "A" abra um email dizendo XYZ e quando for "V", um email dizendo ABC.

    Como eu não manjo nada de VBA, fui montando um código com o que aprendi(ou não) por ai. Até então, tenho o seguinte:

    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim OutApp As Object
        Dim OutMail As Object
    
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
    
            If Range("DA9").Select = "A" Then
    
            With OutMail
                .To = ""
                .CC = ""
                .BCC = ""
                .Subject = "Título do email"
                .Display  
            End With
            On Error GoTo 0
    
            Set OutMail = Nothing
            Set OutApp = Nothing
        End If
    End Sub



    Deu para entender, meu povo? Haha

    Desde já agradeço,

    Leonardo





    • Editado leozaffa segunda-feira, 19 de maio de 2014 14:01
    quarta-feira, 14 de maio de 2014 17:10

Respostas

  • Olá, boa noite.

    O seu problema então parece estar somente em uma palavra: troque "Select" por "Value".

    Aproveitando, uma dica:

    Quando estiver depurando linha a linha, selecione a expressão que deseja avaliar e pressione "Shift+F9". Dessa forma é possível visualizar o valor instantâneo ou até mesmo fixar a expressão no painel de "Inspeções de Variáveis".

    Abraço.


    Filipe Magno

    terça-feira, 20 de maio de 2014 23:14

Todas as Respostas

  • Ao inserir um código no fórum, utilize blocos de código. Para utilizar essa ferramenta, clique no botão cuja legenda é “Inserir bloco de código” na barra do editor de mensagens do fórum. Uma janela aparecerá onde você deverá colar seu código cru na caixa de texto à esquerda. Então, selecione a opção Vb.Net na caixa de combinação que você verá em cima à esquerda e depois clique no botão Inserir.

    ---

    Sua macro não funciona?


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    sábado, 17 de maio de 2014 20:18
    Moderador
  • Obrigado pela dica. Devidamente editado agora.
    segunda-feira, 19 de maio de 2014 14:02
  • Qual problema você está tendo? O e-mail não é enviado? Não acontece nada ao executar a macro?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 19 de maio de 2014 21:43
    Moderador
  • Exatamente. Quando tenho o valor "A" em DA9, a ideia era abrir uma caixa de email, porém isso não está acontecendo. Alguma idéia?
    terça-feira, 20 de maio de 2014 17:15
  • Olá, boa noite.

    O seu problema então parece estar somente em uma palavra: troque "Select" por "Value".

    Aproveitando, uma dica:

    Quando estiver depurando linha a linha, selecione a expressão que deseja avaliar e pressione "Shift+F9". Dessa forma é possível visualizar o valor instantâneo ou até mesmo fixar a expressão no painel de "Inspeções de Variáveis".

    Abraço.


    Filipe Magno

    terça-feira, 20 de maio de 2014 23:14