Atualização de celula

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Atualização de celula

Mensagempor Danilson Vitor » Qui Jan 18, 2018 11:44 pm

Boa note, estou na criação de um projeto onde se resume em enviar um e-mail toda vez que a data vencimento de for superior a data atualizada do sistema.
já consegui rodar um relógio em tempo real onde ligado com função SE, ao vencer esse o prazo ele muda o texto de "normal" para "vencido".
beleza agora que vem a bronca se eu escrever no campo "vencido" e pressionar a tecla enter o sistema de enviar e-mail funcionando perfeitamente porém se ele for atualizado pelo relógio não acontece nada. mas se click duas vezes na celular e der enter o sistema funciona.

tipo preciso entra no modo de edição da celular e sair clicando fora ou pressionado tecla enter para funcionar.

sem mas conto com ajuda de vocês
Danilson Vitor
Membro
Membro
 
Mensagens: 33
Registrado em: Qua Jun 06, 2012 5:39 pm
Has thanked: 10 times
Have thanks: 0 time

{ SO_SELECT }

Re: Atualização de celular

Mensagempor Mauro Coutinho » Sex Jan 19, 2018 7:11 am

Danilson, sem conhecer as rotinas que está utilizando fica dificil, talvez esteja utilizando no evento errado, para que uma rotina execute quando alguma celula é alterada por formula o ideal seria utilizar o Evento "Worksheet_Calculate" ou dependendo da rotina ativar e desativar ou forçar o calculo automático utilizando "Application.Calculate".

[]s
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3901
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 177 times
Have thanks: 1429 times

Re: Atualização de celular

Mensagempor klarc28 » Sex Jan 19, 2018 7:18 am

Anexe o arquivo
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 451
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 158 times

Re: Atualização de celular

Mensagempor Danilson Vitor » Sex Jan 19, 2018 11:22 am

segue o anexo
Você não está autorizado a ver ou baixar esse anexo.
Danilson Vitor
Membro
Membro
 
Mensagens: 33
Registrado em: Qua Jun 06, 2012 5:39 pm
Has thanked: 10 times
Have thanks: 0 time

Re: Atualização de celular

Mensagempor Mauro Coutinho » Sex Jan 19, 2018 2:44 pm

Pelo o que entendi, foi como eu comentei antes, tem de trocar o Evento Change para o Calculate, então apague e troque por esta :
Código: Selecionar todos
Private Sub Worksheet_Calculate()
    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 = "$F$" & linha Then '

        If Plan1.Cells(linha, 7) = "Concluído" Then
            texto = "Prezado(a) " & Plan1.Cells(linha, 1) & "," & vbCrLf & vbCrLf & _
                    "A O.S. " & Plan1.Cells(linha, 7) & " aberta em " & _
                    Plan1.Cells(linha, 2) & " foi concluída." & vbCrLf & _
                    " Veja informações abaixo:" & vbCrLf & _
                    "    Status: " & Plan1.Cells(linha, 6) & vbCrLf & _
                    "    Ação tomada: " & Plan1.Cells(linha, 5) & vbCrLf & vbCrLf & _
                    "Atenciosamente," & vbCrLf & _
                    "Vical Transportes"
        'End If

        With OutMail
            .To = "" & Plan1.Cells(linha, 1) & ""
            .CC = "" & Plan1.Cells(linha, 2) & ""
            .BCC = ""
            .Subject = "Título do email"
            .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


Faça os testes se é isto, apesar de achar 1 segundo tempo muito curto.

[]s
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3901
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 177 times
Have thanks: 1429 times

Re: Atualização de celular

Mensagempor Danilson Vitor » Sex Jan 19, 2018 3:40 pm

Adiantei o relógio do pc para 20/01/2018 23:59:00 para alterar automaticamente mas não funcionou acho que tem haver com a mudança de nome através da formula já que ela e alterada internamente sem ter que tocar no mouse ou tecla no teclado
Danilson Vitor
Membro
Membro
 
Mensagens: 33
Registrado em: Qua Jun 06, 2012 5:39 pm
Has thanked: 10 times
Have thanks: 0 time

Re: Atualização de celular

Mensagempor Mauro Coutinho » Sex Jan 19, 2018 4:01 pm

Danilson, acontece que qdo você aciona o relogio e a celula A1 é atualizada é executada a rotina, e após alterar o tempo novamente, a rotina é executada novamente, só que sua rotina alem de estar utilizando activecell, sempre que a rotina for executada ela é reiniciada então teremos a verificação somente de uma celula.
Mauro Coutinho - Moderador
São José dos Pinhais-Pr


Se a resposta foi últil para você, por gentileza, clique na mãozinha ao lado direito da sua tela. No canto superior.
Avatar do usuário
Mauro Coutinho
Ninja do Excel
Ninja do Excel
 
Mensagens: 3901
Registrado em: Sex Mar 26, 2010 9:24 pm
Localização: São José dos Pinhais - Pr
Has thanked: 177 times
Have thanks: 1429 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: luke002 e 1 visitante