VBA Excel

Question

Boa Noite amigos, sou iniciante em VBA e preciso de uma ajudinha.

Tenho uma planilha Excel que atualiza o banco de dados atrav&eacute;s de outras planilha. Tenho v&aacute;rias guias, cada guia cont&eacute;m dados que s&atilde;o copiados de outras planilhas  que s&atilde;o relat&oacute;rios que s&atilde;o disponibilizados diariamente. O que eu preciso &eacute; o seguinte.

Ao mandar excecutar uma macro ela vai em uma c&eacute;lula da guia principal A1 se conter a palavra sim ela chama Call a minha macro que vai abrir a outra planilha copiar, fechar, voltar a planilha de origem e colar. Se tiver escrito N&atilde;o ela pula para a pr&oacute;xima planilha a ser copiada se tamb&eacute;m estiver escrito sim. Resumindo: Se conter sim ele executa a macro, se tiver n&atilde;o ele pula para a pr&oacute;xima macro a ser executada. 
 Preciso disso porque tem dias que alguns relat&oacute;rios n&atilde;o s&atilde;o disponibilizados ai eu evitaria abrir relat&oacute;rios que n&atilde;o foram atualizados.

Pessoal a macro de copiar os dados eu j&aacute; tenho, s&oacute; preciso de uma outra macro que chame Call a minha macro se a celular A1 da guia Plan1 estiver escrito sim.

Espero ter explicado corretamente.

Answer

Neste caso insira esse codigo em sua macro

Sub macro()

Range(A1).Select

Do While ActiveCell

If ActiveCell.Value = Sim Then

Call macro

Else

ActiveCell.Offset(1, 0).Select

End If

Loop

End Sub

Answer

Pessoal a macro funcionou parcialmente.
Se estiver Sim ela chama pela outra macro. Mas preciso que ela fa&ccedil;a o seguinte.

Se estiver escrito Sim ela chama a macro1. Se estiver escrito N&atilde;o ou qualquer coisa diferente de Sim Ela tem que chamar a Macro2.

Answer

E so trocar o que esta depois de Else para Call macro 2

Answer

Obrigado Marcelo . Atendeu perfeitamente a minha necessidade. Criei caixas de sele&ccedil;&atilde;o ara ficar melhor no designe.

Answer

Marcelo, tentei alterar o Sim por VERDADEIRO e a macro n&atilde;o funcionou. Tem alguma limita&ccedil;&atilde;o de caracter?

Answer

Tem que trocar aqui tb

If ActiveCell.Value = Sim Then

Ficando assim

If ActiveCell.Value = VERDADEIRO Then

&Eacute; importante lembrar que Verdadeiro &eacute; diferente de VERDADEIRO

Answer

Marcelo, eu j&aacute; tinha feito essa altera&ccedil;&atilde;o e n&atilde;o funcionou. Qualquer outra palavra funciona, menos VERDADEIRO.

Eu preciso que seja VERDADEIRO, porque ele &eacute; inserido automaticamente na c&eacute;lula devido a uma v&iacute;nculo de caixa de sele&ccedil;&atilde;o.

Se seleciono a caixa de sele&ccedil;&atilde;o, autaticamente VERDADEIRO &eacute; inserido, se deixo sem selecionar, automaticamente fica FALSO.

Rode a macro ai no Excel e ver&aacute; que n&atilde;o funciona.

Preciso que a macro deixe usar VERDADEIRO, ou a caixa de sele&ccedil;&atilde;o retornar outra palavra que a macro reconhe&ccedil;a. Consegue me ajudar nisso?

Answer

Assim

Sub macro()

Range(A1).Select

Do While ActiveCell

If ActiveCell.Value = Verdadeiro Then

'Call macro 1

Else

Call macro 2

End If

Loop

End Sub

Funcionou

Answer

Marcelo, sim eu j&aacute; tinha testado Verdadeiro, o problema &eacute; que a palavra sai em Maisculo. N&atilde; o estou conseguindo alterar a palavra reportada pela caixa de sele&ccedil;&atilde;o.

Answer

Como eu disse no meu funcionou independente de como a palavra apareceu na aba testa ae

Answer

Funcionou .

Agora que &eacute; estranho ele n&atilde;o reconhecer em Maisculo &eacute;!

Muito obrigado pela for&ccedil;a.
Agora vou ampliar para minha utilidade.

Answer

Coloca isso ActiveCell.Offset(1, 0).Select

Entre o End If e o Loop se nao vc pode entrar em um loop infinito, e travar o excel

Answer

Sub macro()

Range(A1).Select

Do While ActiveCell

If ActiveCell.Value = Verdadeiro Then

Call macro

Else

ActiveCell.Offset(1, 0).Select

End If

Loop

End Sub

Assim?

Answer

Sim exatamente assim a macro roda uma unica vez

Ferramentas

Mover Tópico