Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por Leonardo1234 13 Jun 2019 às 13:54
Membro 1 Estrela
Mensagens: 37
Reputação: 0
#44679
Caros,

Eu preciso ativar uma macro se em alguma célula de um determinado intervalo o número de caracteres da célula for diferente de 10. Eu criei uma macro para teste chamada ERRO, e eu gostaria que ela fosse ativada quando no intervalo A1:A10 tiver alguma célula que tenha um número de caracteres inserido diferente de 10.

Segue a planilha em anexo.

Obrigado.
Apenas usuários registrados podem ver ou baixar anexos.
Por babdallas 14 Jun 2019 às 08:57
Membro 5 Estrelas
Mensagens: 1989
Reputação: 876
#44710
Se alguma célula estiver vazia também considera ou tem que ter verificar apenas as células que contenham ao menos um caractere?
Por babdallas 14 Jun 2019 às 15:08
Membro 5 Estrelas
Mensagens: 1989
Reputação: 876
#44723
Veja se ajuda.
Apenas usuários registrados podem ver ou baixar anexos.
Por babdallas 14 Jun 2019 às 15:30
Membro 5 Estrelas
Mensagens: 1989
Reputação: 876
#44728
Veja agora.
Apenas usuários registrados podem ver ou baixar anexos.
Por Leonardo1234 14 Jun 2019 às 17:25
Membro 1 Estrela
Mensagens: 37
Reputação: 0
#44739
Cara, deu certo, muito obrigado. Só tem um problema, eu tentei colocar esse mesmo código para uma outra planilha que é onde eu realmente preciso faze-lo funcionar, e ele não funcionou. Essa planilha tem um som que eu inseri de um alerta vermelho e ele deve tocar sempre que em um determinado intervalo de células houver alguma célula com caracteres diferentes de 13. Esse som é ativado por uma macro chamada de Plan1.Tocar, portanto o conceito é o mesmo. Eu preciso fazer rodar essa macro que o som toca, porém por algum motivo não deu certo. Eu estou anexando tanto o audio do mp4 como a planilha, e existe um detalhe importante, eles precisam estar salvos em uma mesma pasta se não o som não toca, então antes de testar as macros, ambos os docs devem estar salvos em uma mesma pasta. Cara, desculpa estar estendendo aqui, mas eu vou agradecer muito se você conseguir fazer funcionar, e tem só um ultimo detalhe, nessa planilha, em vez 10 caracteres, eu preciso que a referencia para fazer a macro rodar seja o valor de 13 caracteres. Muito obrigado mesmo.
Apenas usuários registrados podem ver ou baixar anexos.
Por Leonardo1234 14 Jun 2019 às 17:30
Membro 1 Estrela
Mensagens: 37
Reputação: 0
#44740
Cara, agora que eu vi, mas o site aqui não permite anexar o aqrquivo em mp4 que eu mencionei. Porém, eu acredito que se você conseguir fazer rodar a macro Plan1.Tocar pelo criterio dos caracteres eu já consigo o que eu preciso. Vlwww
Por babdallas 14 Jun 2019 às 17:45
Membro 5 Estrelas
Mensagens: 1989
Reputação: 876
#44742
Como eu não tenho o arquivo mp4, não sei se está funcionando. Favor testar e me retornar se deu erro ou não.
Apenas usuários registrados podem ver ou baixar anexos.
Por Leonardo1234 14 Jun 2019 às 18:26
Membro 1 Estrela
Mensagens: 37
Reputação: 0
#44750
Não deu certo. Apareceu o erro em tempo de execução 424 com a linha WindowsMediaPlayer1.URL = ActiveWorkbook.Path & "\y2mate.com - abertura_alerta_vermelho_02032013_W2EtApOkmxg_360p (2).mp4"da macro destacada em amarelo quando poe pra depurar. Você não conseguiria inserir um som em uma planilha sua do excel e testar? É bem facil de fazer. Voce vai em desenvolvedor, inserir, dps mais controles, dps seleciona o windowsmediaplayer, insere na planilha, dps vai em propriedades, da dois toques em personalizado,aí vai aparecer uma janela com a opção procurar, e aí você coloca um arquivo salvo em mp4. Aí é só copiar a macro que existe, trocando o nome do arquivo do mp, que no caso é "\y2mate.com - abertura_alerta_vermelho_02032013_W2EtApOkmxg_360p (2).mp44" pelo o que você inseriu.
Por Leonardo1234 14 Jun 2019 às 19:34
Membro 1 Estrela
Mensagens: 37
Reputação: 0
#44755
Viu, tem um ponto importante também que eu só reparei agora. Você criou uma formula em uma aba auxiliar da planilha, porém isso seria um problema no sistema que eu estou desenvolvendo. A solução portanto deve ser realizada utilizando apenas a aba em que está se trabalhando. Valeuuu
Por babdallas 14 Jun 2019 às 20:56
Membro 5 Estrelas
Mensagens: 1989
Reputação: 876
#44756
Veja agora. Salve este arquivo na mesma pasta que está o vídeo mp4 e teste.
Apenas usuários registrados podem ver ou baixar anexos.
Por Leonardo1234 17 Jun 2019 às 11:27
Membro 1 Estrela
Mensagens: 37
Reputação: 0
#44810
babdallas, não deu certo, está depurando na parte da thisworkbookpath e nem quando eu coloco para executar as macros está dando certo. Eu tentei também utilizar as formulas no meu sistema e também não está indo, acredito que pode ser pelo fato das condições estarem escritas em modulo, mas não tenho certeza. Eu vou te passar a planilha em que eu de fato preciso dessa macro funcionando, eu não passei antes pq ela é um pouco chata para trabalhar. Nessa planilha a macro para ativar o audio do mp4 se chama Plan1.Tocar, e eu consegui colocar a condição que sempre que for escrito qualquer valor que seja em numeral em uma célula do intervalo B5502:B7004, a macro é ativada e a sirene toca. Eu preciso fazer a mesma coisa mudando essa condição para no caso de ser escrito qualquer valor nesse intervalo que tenha menos ou mais que 13 caracteres. Essa planilha tem senha para abrir, ela é agf107564 e ela abre com as barras de opções ocultadas em macro, para reexibi-las, basta abertar ctrl + q que elas voltam ao normal. Cara, me desculpa por estar estendendo aqui, mas vai me ajudar demais se eu conseguir fazer isso funcionar. Muito obrigado. Segue a planilha em anexo.
Apenas usuários registrados podem ver ou baixar anexos.
Por babdallas 17 Jun 2019 às 11:42
Membro 5 Estrelas
Mensagens: 1989
Reputação: 876
#44812
Você salvou o arquivo na mesma pasta em que está o mp4?
Por Leonardo1234 17 Jun 2019 às 11:53
Membro 1 Estrela
Mensagens: 37
Reputação: 0
#44813
Sim, tanto que quando eu abri o arquivo que voce me mandou, o audio já tocou, e se ele não estivesse na mesma pasta, ele não tocaria. O erro aconteceu quando ele teve que ser ativados pelas macros.
Por babdallas 17 Jun 2019 às 13:00
Membro 5 Estrelas
Mensagens: 1989
Reputação: 876
#44819
Vou pesquisar com calma o que pode estar acontecendo. Tentei fazer aqui e também deu erro. Se tiver sucesso eu te aviso.
Por babdallas 25 Jun 2019 às 16:50
Membro 5 Estrelas
Mensagens: 1989
Reputação: 876
#45073
Veja se funciona agora.
Apenas usuários registrados podem ver ou baixar anexos.