Planilha com macro para contagem regressiva e aviso (som)

Juninho Quatá · 5 de novembro de 2017

Bom dia galera!

Este é o primeiro tópico que abro no fórum e gostaria de uma ajuda de vocês com uma planilha que uso diariamente, porém devido a correria acabo esquecendo a hora programada para determinada atividade, tentei automatiza-la vendo alguns videos na internet e lendo alguns artigos aqui e ali mais nada deu certo...

Estou deixando no anexo planilha que uso, na coluna A é onde eu marco a data e hora que será realizada a atividade, a coluna F calcula 6 horas antes para que seja realizada a organização e verificação das condições para execução da atividade.

Gostaria que quando a data e hora determinada na coluna F fossem a data e hora atuais o programa toque um aviso em mp3 ou outra extensão qualquer.

Eu vi aqui um post no qual tentei me basear referente a tocar a musica, porém a parte de data e hora não achei nada...

Agradeço a ajuda desde já.

Aviso.zip

CasaDoHardware · 5 de novembro de 2017

eu tinha esse exemplo que toca um som quando a planilha atinge determinado valor.

Tente adaptar a sua necessidade.

E preciso colocar um arquivo de Som do tipo wav com o nome Som na mesma pasta do arquivo.

Tocar som ao atingir valor.xls

Juninho Quatá · 6 de novembro de 2017

Boa Tarde CasaDoHardware!

Eu consegui adaptar sua planilha para o meu uso, porém não consegui que o som seja emitido por completo,o aviso sonoro tem 6 segundos, além disso gostaria que ele ficasse repetindo até que eu desse ok para acaso eu não esteja dentro da sala ele permaneça tocando até eu chegar, você saberia solucionar esse problema?

Minha outra duvida é que eu preciso que isso seja valido para as outras células abaixo também,como devo escrever no codigo? Ou posso simplesmente copiar a linha de código e alterar a célula?

Estou enviando anexo para dar uma olhada como ficou..

Controle.zip

CasaDoHardware · 7 de novembro de 2017

Nao consegui testar mas experimente este codigo no lugar do que esta na folha da planilha

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Lin As Long

Lin = 3

Do While Cells(Lin, 7).Value <> ""

If Cells(Lin, 7).Value = 0 Then
    PlayWAV
End If

Loop

End Sub

Juninho Quatá · 8 de novembro de 2017

Eu testei esse novo código que me mandou mais meu Excel deu uma travada...

Meio que "contornei" a situação com formula SE e também ajustei o timer do relógio para atualizar a cada 15 segundos assim ela já funciona bem.

Só tem mais duas coisas que eu gostaria...

1 - Que ao invés de ter que pressionar o botão start timer para começar a contagem do relógio isso fosse feito automático ao abrir a planilha.

2 - Que eu pudesse trabalhar como utras planilhas abertas sem dar erro,não sei se por causa da forma que os códigos foram escritos ou se tem algo generalizando os procedimentos as outras planilhas começão a dar erro de execução ai as macros param de funcionar.

Será que conseguiria verificar os códigos dentro do VBA?

Essa planilha fica aberta 24 horas por dia na tela estendida,então ela fica na TV e no pc uso outras planilhas cálculos, verificações de caixa essas coisas.