Nicelio - Clube do Hardware
Nicelio começou a seguir aviso sonoro para Excel 16 de junho
Excel aviso sonoro para Excel
Nicelio postou um tópico em Microsoft Office
Boa tarde ! Estou procurando um recurso já faz um tempo, e depois de pesquisar no google resolvi vir aqui , porque uma vez eu consegui uma ajuda aqui ,de umas pessoas muito legais. Estou procurando um recurso que faz um aviso sonoro para excel ,em que se uma célula adquirir determinado valor , (e esse valor não é mudado manualmente , mas por uma função, e por sua vez , os argumentos da função são valores de um link dde). O link dde fornece um número; essa célula que contém esse link é o argumento de uma função e preciso que um aviso sonoro seja acionado dependendo do resultado da função. Eu pesquisando vi umas macros que faz aviso , mas a célula tem que ser mudada manualmente e aqui é um link dde que muda o argumento da função e que muda o resultado da função. Estou enviando um anexo da planilha para explicar melhor. Desde já agradeço mesmo aviso sonoro.xlsx
Nicelio respondeu ao tópico de Nicelio em Microsoft Office
Ham claro! Acho que tem marcar um check de resolvido ou mencionar aqui. Lá ta escrito resolvido, parece que o moderador já marcou. Mas o tópico foi resolvido, a possibilidade foi encontrada. Vou conferir se está marcado o tópico como resolvido.
Graças a Deus Osvaldo muito obrigado Edsom muito obrigado Deus que dê mais sabedoria a vocês porque eu não saberia resolver sozinho e teria que fazer centenas de vezes manualmente gastando varios dias eu já tinha pequisado bastante na internet e não tinha entendido mas agora eu coloquei o código na planilha do trabalho e deu certo , já rodei as macro e não vi nada errado os valores em A5 e B5 estavam representando outro intervalo prestei atenção no código e fiz os ajustes testando, o código final ficou assim: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [FA14:FA28,FF2:FI4]) Is Nothing Then Exit Sub [EA2].FormulaLocal = WorksheetFunction.Concat(Range("FA14:FA28")) Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [FV14:FV28,FF2:FI4]) Is Nothing Then Exit Sub [EB2].FormulaLocal = WorksheetFunction.Concat(Range("FV14:FV28")) End Sub Obrigado! Pretendo procurar ajudar também
eu testei o código .FormulaLocal mas acho que não deu certo. Estou mandando uma planilha amostra que contem a base do processo todo . eu vou pegar esse resultado transformado em fórmula e calculado, copiar e colar (via macro) pra cinquenta celulas na mesma coluna, o sendkeys não serviu porque a macro copiar o resultado já calculado é executada primeiro e só depois o sendkeys age, ele age por ultimo de todas as macros. ativar formula por macro.xlsx adicionado 10 minutos depois Ok Osvaldo, obrigado , muito bom dia! eu mandei uma amostra , que contém a base do processo e vou mandar mais outra amostra desta vez com o código que você passou. adicionado 50 minutos depois arquivos xlsm não podem ser anexados, mas o código que coloquei nessa planilha amostra ficou assim, tudo na mesma linha: Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, [A1:L1]) Is Nothing Then Exit Sub [O1] = WorksheetFunction.IfError(Evaluate([A1&B1&C1&D1&E1&F1&G1&H1&I1&J1&L1]), "ERRO") End Sub
Ok Edson! vou só ver se essa solução nova que você mandou fica boa, e ja disponibilizo uma amostra.
Olá! bom dia eu resolvi voltar aqui pra tentar aproveitar esses codigos que vocês passaram, porque embora o sendkeys transforma o texto em formula, o sendkeys tem alguns problemas e eu nao sabia. Portanto estava estudando esse codigo de Private sub , achei ele muito bom porque acho que ele concatena os itens e ja transforma em formula e ja dá o resultado. Eu coloquei ele numa planilha qualquer e apliquei no exemplo que disse, mas deu um erro de fim de instrução. Será que é assim mesmo adicionado 25 minutos depois Olá, bom dia! Eu estou tentando aproveitar esse codigo que você passou, porque o sendkeys transforma o texto em formula mas pra muitas celulas (acho que se diz loop) domora muito, e ele é calculado por ultimo em realação à outras macros, parece que não importa a ordem que esteja. Eu tinha testado o sendkeys e antes de aplicar ao trabalho respondi ao forum. O codigo que você passou funcionou no exemplo que eu disse, mas quando eu coloquei no trabalho, que é o resultado de um concatenar e esse resultado é o texto de uma função "SE", ocorreu um erro de definição de aplicativo ou de definição de objeto. Quando o resultado do concatenar é o texto de uma soma ou subtração, dá certo. Mas quando o resultado do concatenar é o texto de uma funcão "SE" que tem uma palavra no texto, então não da certo. Será que tem que usar outra palavra em vez de "Value" ?
Excel Como definir resultado em celula escolhida
Nicelio respondeu ao tópico de Mario A Rotondo em Microsoft Office
Boa tarde Mario coloca em D1 a função SE: = SE( A1="c";B1*C1;"") isto é, se A1 for c então multiplica B1 por C1, senão deixa D1 em branco Em E1 coloca função SE: = SE( A1="v";B1*C1;"") isto é, se A1 for v então multiplica B1 por C1, senão deixa E1 em branco
Boa tarde Edson! eu consegui resolver meu problema com este código que achei de ontem pra hoje Sub codigo1() SendKeys "{F2}" SendKeys "{ENTER}" End Sub pode ser que tem o mesmo resultado do codigo que você informou, mas vou estudar o vba que você passou. É a primeira vez que participo do fórum e vocês foram muito legais. Vou procurar retribuir. Agradeço, brigado! adicionado 16 minutos depois Boa tarde Osvaldo! eu consegui resolver meu problema com este código que achei de ontem pra hoje Sub codigo1() SendKeys "{F2}" SendKeys "{ENTER}" End Sub Eu coloquei um caracter, uma letra em cada celula , então ficou seis elementos. vou estudar o código que você passou , pode ser melhor, pode servir. Mas muito obrigado . grande abraço
Boa tarde! Será que vocês podem me ajudar Ja fiquei um tempao procurando na internet a solucao Estou procurando ativar uma formula utilizando o vba, a formula está armazenada em forma de texto. fiz assim: concatenei as celulas A1até F1 e o resultado foi esse: =A1+B1, ou seja, o texto de uma formula. Faço a macro pegando esse resultado e colando em forma de texto noutra celula, daí clico na barra de formulas e teclo enter, entao esse texto é ativado . Ao clicar na barra de formulas e teclar enter o excel entende que nao é um texto e sim uma formula , entao calcula. Até aí tudo bem , a questao é que eu preciso mudar esse sinal de + por -,na celula que contem esse sinal, outra hora por >. Só que o excel , quando eu clico no campo de formulas e teclo enter, gravando a macro, ele estabelece e fixa o sinal + na macro , daí se na planilha eu mudar para o sinal - , e rodar a macro, nao vai ser considerado o sinal - , mas o + , porque ficou fixado no texto da macro. por eu nao saber a macro certo ,tenho que fazer manualmente, centenas de vezes. Se souberem me ajudar desde ja agradesço