MatheusFranco

Bom dia,

Eu precisava copiar alguns valores da célula e colar em um campo da minha programação VBA.

Ex: Tenho uma Data na célula A2, gostaria copiar essa data pra colar na programação.

Ah programação envia um e-mail ao clicar no botão, gostaria que a data aparece no assunto do e-mail.

Grato 

Boa tarde,

Gostaria que por meio de uma função VBA, retorna-se a data atual com uma condição.

Exemplo: 

Retorna data de hoje na coluna A4.

Condição: "Hoje" esteja entre os dias 01/03/2020 a 31/03/2020.

Grato.

Bom dia,

Tenho uma planilha, onde fiz um código vba para printar parte de tela e enviar por e-mail. Conforme citação abaixo.

Porém, essa imagem não está aparecendo no corpo do e-mail, apenas em anexo. 

Gostaria de um auxilio com a programação para que essa imagem apareça no corpo do e-mail.

Grato

Citação

Sub SalvarDashBoard()

 

    Const Caminho As String = "\\bramowvfs01vm\departamentos\Gerência Geral TP\Laminações Retifica\1 - APONTAMENTOS RETIFICA DE CILINDROS\1 - APONTAMENTO DE CILINDROS 2020\2 - HISTÓRICO DE APONTAMENTOS\1 - HISTÓRICO DE APONTAMENTOS\RelatórioTurno.jpg"

    Dim Planilha As Worksheet

    Dim Grafico As ChartObject

    Dim Area As Range

   

    If Dir("\\bramowvfs01vm\departamentos\Gerência Geral TP\Laminações Retifica\1 - APONTAMENTOS RETIFICA DE CILINDROS\1 - APONTAMENTO DE CILINDROS 2020\2 - HISTÓRICO DE APONTAMENTOS\1 - HISTÓRICO DE APONTAMENTOS", vbDirectory) = "" Then

        MkDir "\\bramowvfs01vm\departamentos\Gerência Geral TP\Laminações Retifica\1 - APONTAMENTOS RETIFICA DE CILINDROS\1 - APONTAMENTO DE CILINDROS 2020\2 - HISTÓRICO DE APONTAMENTOS\1 - HISTÓRICO DE APONTAMENTOS"

    End If

   

    Set Planilha = Sheets("DASHBOARD")

   

    With Planilha

        Set Area = .Range("A2:O37")

        Area.CopyPicture

        Set Grafico = .ChartObjects.Add(0, 0, Area.Width, Area.Height)

    End With

   

    With Grafico

        .Chart.Paste

        .Chart.Export Caminho, FilterName:="jpg"

        .Delete

    End With

   

 

End Sub

 

Sub Enviar()

 

 

Sheets("DASHBOARD").Unprotect Password:="GestaoRetifica"

 

    Dim OutApp As Outlook.Application

    Dim objOutlookMsg As Outlook.MailItem

    Dim objOutlookRecip As Recipient

    Dim Recipients As Recipients

    Dim account As Outlook.account

    Dim NomePasta As String

    

    SalvarDashBoard

   

    NomePasta = "\\bramowvfs01vm\departamentos\Gerência Geral TP\Laminações Retifica\1 - APONTAMENTOS RETIFICA DE CILINDROS\1 - APONTAMENTO DE CILINDROS 2020\2 - HISTÓRICO DE APONTAMENTOS\1 - HISTÓRICO DE APONTAMENTOS"

   

    If Len(Dir("\\bramowvfs01vm\departamentos\Gerência Geral TP\Laminações Retifica\1 - APONTAMENTOS RETIFICA DE CILINDROS\1 - APONTAMENTO DE CILINDROS 2020\2 - HISTÓRICO DE APONTAMENTOS\1 - HISTÓRICO DE APONTAMENTOS", vbDirectory)) = 0 Then

        MkDir "\\bramowvfs01vm\departamentos\Gerência Geral TP\Laminações Retifica\1 - APONTAMENTOS RETIFICA DE CILINDROS\1 - APONTAMENTO DE CILINDROS 2020\2 - HISTÓRICO DE APONTAMENTOS\1 - HISTÓRICO DE APONTAMENTOS"

    End If

     

    'Enviar Email

    Set OutApp = CreateObject("Outlook.Application")

    Set objOutlookMsg = OutApp.CreateItem(olMailItem)

    

    Set Recipients = objOutlookMsg.Recipients

   

     Set objOutlookRecip = Recipients.Add(".com.br")

     objOutlookRecip.Type = olTo

     Set objOutlookRecip = Recipients.Add("com.br")

     objOutlookRecip.Type = olTo

     

 

    objOutlookMsg.Attachments.Add "\\bramowvfs01vm\departamentos\Gerência Geral TP\Laminações Retifica\1 - APONTAMENTOS RETIFICA DE CILINDROS\1 - APONTAMENTO DE CILINDROS 2020\2 - HISTÓRICO DE APONTAMENTOS\1 - HISTÓRICO DE APONTAMENTOS\RelatórioTurno.jpg", olByValue, 0

    objOutlookMsg.Subject = "Relatório de Turno"

    objOutlookMsg.HTMLBody = Saudacao & "<br><br>Segue o relatório de turno.<br><br>" & "<img src='" & "RelatórioTurno.jpg" & "'><br><br>Atenciosamente,<br><br>"

 

    If Range("P2").Value = "Verdadeiro" Then

        objOutlookMsg.Display (True)

    Else

        objOutlookMsg.Send

    End If

    Set OutApp = Nothing

    'Fim enviar Email

   

    MsgBox "E-mail enviado com sucesso!", vbInformation, "Ok"

   

End Sub

@deciog  Não deu certo

Ele não reconhece essas três condições, segue anexo para facilitar 

PROJETO_-_RELATÓRIO_RETIFICA_-_MELHORIAS.xlsx

@deciog Caso eu queira colocar mais uma condição, exemplo: Destino. Na célula I4, é possível ?

Selecionaria mais uma por uma lista suspensa o destino na celula I4..

Como ficaria a formula? tem como me ajudar.

Grato.

Décio, bom dia

Fico ótimo da forma que eu desejava. Porém, tenho mais uma dúvida.

Caso, eu queira colocar uma terceira condição, ex: Ano.

Como ficaria a fórmula ?

Grato

Bom dia.

Segue modelo em anexo, nem com o método de filtro avançado eu consegui.

Grato.

Pasta1.xlsx

Eu também pensei isso, acredito que a forma mais fácil de resolver isso seria um filtro avançado.

Vou tentar e aviso. Assim que possível envio a planilha.

Grato 

Rodrigo, bom dia.

Gostaria que aparecesse todos resultados obtidos naquele dia e turno.São duas condicionais 

Eu consegui que busque o primeiro resultado, como faço pra buscar os demais resultados?

Ah planilha não pode ser enviado devido ao tamanho dela e por eu não ter acesso ela no momento. Amanhã eu envio a mesma.

Grato 

Bom dia.

Tenho uma dúvida em relação a formula INDICE + CORRESP.

Tenho um planilha onde através da seleção do dia e do turno, ele procura todo que foi produzido no dia.

Porém, não consigo deixar em sequência. Gostaria de ajuda pra mostrar todos resultados possíveis.

Formula: "=ÍNDICE('BANCO DE DADOS - WALDRICH 2'!$A$2:$A$1048576;CORRESP($E$4&$J$4;'BANCO DE DADOS - WALDRICH 2'!$A$2:$A$1048576&'BANCO DE DADOS - WALDRICH 2'!$W$2:$W$1048576;0))"

Grato.