none
É possivel atribuir um grupo de células em uma variavel ? RRS feed

  • Pergunta

  • Pessoal, boa tarde!

    Estou aprimorando uma planilha que utilizamos para sinalizações de pausas no atendimento.

    Como fazemos atualmente:  Utilizamos um sistema que faz a monitorização em tempo real dos colaboradores, então extraímos este relatório e copiamos para o excel em uma ABA exclusiva que criei para utilizar como base. Quando colo esses dados na base, logo já tenho todas informações que necessito para armazenamento nesta planilha para utilizar como relatório.

    O que eu preciso é

    Copiar um grupo de células e registrar em uma variável, para que eu possa fazer integração com o outlook.

    O objetivo é

    •  Selecionar esse grupo de células armazenar em uma variável
    • Abrir o outlook em uma caixa de Novo envio
    • E depois colar o grupo de células que eu necessito.

    Estou usando estes códigos para abrir a aplicação outlook.

    Preciso atribuir o grupo de células na variável Mensagem ".Body = Mensagem"

    Sub Envia_Emails(EnviarPara As String, EnviarCopia, Mensagem As String)
        Dim OutlookApp As Object
        Dim OutlookMail As Object
     
        Set OutlookApp = CreateObject("Outlook.Application")
        Set OutlookMail = OutlookApp.CreateItem(0)
     
        With OutlookMail
            .To = EnviarPara
            .CC = ""
            '.BCC = EnviarCopia
            .Subject = "Aderência"
            .Body = Mensagem
            .Display ' para envia o email diretamente defina o código  .Send
        End With
     
        Set OutlookMail = Nothing
        Set OutlookApp = Nothing
    End Sub
    

    Até no momento não tive sucesso porque a variável só registra uma célula especifica não um grupo.

    Não haveria problema algum, se fosse possível copiar aquele grupo de células em modo imagem e colar no outlook neste mesmo formato.

    Obrigado desde já

    Abraços

    terça-feira, 13 de junho de 2017 11:49

Todas as Respostas

  • Para atribuir um intervalo a uma variável é bastante simples:

    Dim SuaVariavel() As Variant
    SuaVariavel = pPlan1.Range("A1:D100").Value2

    O mesmo processo pode ser feito de forma inversa também.

    Abraço


    Filipe Magno

    quarta-feira, 14 de junho de 2017 00:43