Este fórum está sendo desativado

[Leonardo1234]

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.

[babdallas]

Se alguma célula estiver vazia também considera ou tem que ter verificar apenas as células que contenham ao menos um caractere?

[Leonardo1234]

babdallas, não considera células vazias, tem que ter ao menos um caractere.

[babdallas]

Veja se ajuda.

[Leonardo1234]

Funcionou, porém eu preciso que a macro seja ativada automaticamente quando for inserido um valor diferente de 10 no intervalo, sem o auxilio de um botão. É possível?

[babdallas]

Veja agora.

[Leonardo1234]

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.

[Leonardo1234]

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

[babdallas]

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.

[Leonardo1234]

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.

[Leonardo1234]

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

[babdallas]

Veja agora. Salve este arquivo na mesma pasta que está o vídeo mp4 e teste.

[Leonardo1234]

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.

[babdallas]

Você salvou o arquivo na mesma pasta em que está o mp4?

[Leonardo1234]

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.

[babdallas]

Vou pesquisar com calma o que pode estar acontecendo. Tentei fazer aqui e também deu erro. Se tiver sucesso eu te aviso.

[Leonardo1234]

Ok, muito obrigado. Fico no aguardo.

[Leonardo1234]

babdallas, conseguiu alguma solução? Agradeço muito se conseguir.

[Leonardo1234]

babdallas, nenhuma solução?

[babdallas]

Veja se funciona agora.