Atribuir função VBA à botão do Excel

[lpeixoto92]

Pessoal é o seguinte, preciso urgentemente a ajuda de vocês:

 

Possuo uma planilha de contato cheia de "PROCV" onde eu digito um código e já me traz várias informações como prestador de serviço, telefone e etc. O fato é que eu preciso criar um botão que abra o outlook com todas as variáveis das células inclusas nos campos do e-mail (Para, CC, Assunto e etc) e no corpo da mensagem.

 

Encontrei uma função perfeita para isto, porém tive que adptá-la. Para ela funcionar tive que criar uma outra guia (Na mesma planilha) e usar a função igual (=) nas célular para puxar os mesmos dados da outra guia. Só que esta função só funciona quando eu digito algo na célula (If Target.Address = "$K$" & linha Then) definida no código e aperto enter , mas gostaria de atribuir esta mesma função em um botão "Enviar E-mail" na outra guia. Como faço isto? Obs: Adicionei um print para entenderam melhor o que estou tentando descrever.

 

Segue o código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OutApp As Object
    Dim OutMail As Object
    Dim texto As String
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    linha = ActiveCell.Row - 1
    If Target.Address = "$K$" & linha Then
        With OutMail
               
        para = "" & Plan4.Cells(linha, 7) & ""
        cc = "" & Plan4.Cells(linha, 8) & "; " & Plan4.Cells(linha, 9) & ""
        texto = "Olá " & Plan4.Cells(linha, 6) & "," & vbCrLf & vbCrLf & _
                    "Segue o chamado de número " & Plan4.Cells(linha, 10) & " aberto para a loja " & Plan1.Cells(linha, 5) & " para que seja atendido dentro do prazo estabelecido:" & vbCrLf & vbCrLf & _
                    "Dados do solicitante:" & vbCrLf & vbCrLf & _
                    "(Cole aqui os dados do solicitante do Voiza)" & vbCrLf & vbCrLf & _
                    "Detalhes da Loja:" & vbCrLf & vbCrLf & _
                    "Loja: " & Plan4.Cells(linha, 1) & vbCrLf & _
                    "Bandeira: " & Plan4.Cells(linha, 3) & vbCrLf & _
                    "Endereço: " & Plan4.Cells(linha, 2) & vbCrLf & _
                    "Cidade: " & Plan4.Cells(linha, 4) & vbCrLf & _
                    "Distância aproximada até a capital: " & Plan4.Cells(linha, 5) & vbCrLf & vbCrLf & _
                    "Detalhes da Oportunidade: " & vbCrLf & vbCrLf & _
                    "(Cole aqui os detalhes do chamado do Voiza)" & vbCrLf & vbCrLf & _
                    "Atenciosamente," & vbCrLf & _
                    "Central de Desenvolvimento"
         assunto = "Chamado: " & Plan4.Cells(linha, 10) & " - (Cole aqui o resumo da oportunidade)"
            .to = para
            .cc = cc
            .BCC = ""
            .Subject = assunto
            .Body = texto
            .Display   'Utilize Send para enviar o email sem abrir o Outlook
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    End If
End Sub

Obrigado.

 

 

[CasaDoHardware]

Nao da pra fazer nada com um print

[lpeixoto92]

@CasaDoHardware Tem uma explicação detalhada, o código da macro e o print ilustrando do que preciso. Não posso disponibilizar a planilha completa por conterem dados sigilosos.

[CasaDoHardware]

Faz uma copia do arquivo e apaga os dados que precisa manter sigilo

[lpeixoto92]

@CasaDoHardware Muitíssimo obrigado pela disponibilização, mas já consegui o que eu queria. valeu! Para quem quiser saber a solução foi mais simples do que eu esperava.

 

Executei a macro dentro de nova outra macro na qual atribui ao meu botão e deu certo.

 

Obrigado