Macro com condição e MSGbox

fvmuller · 24 de abril de 2011

Ae pessoal, tudo bem?

Então... montei uma planilha e gostaria de inserir um esquema conforma descrição abaixo:

Na planilha 2, células A1 e A2, existem 2 números.

Eu gostaria que toda vez que eu abrisse o arquivo, executa-se uma macro com uma condição:

Se A1 > 0 então emiti um msgbox dizendo: Existem A1 empresas em atraso. Após segue pra proxima verificação

Caso seja falso não mostra nada e segue pra proxima verificação.

Se A2 > 0 então emiti um msgbox dizendo: Existem A2 sem atualização

Será que alguem pode me dar uma ajuda? Não sou muito familiar com VBA.

VAleu!

Abraço!

Flavio Soares · 24 de abril de 2011

Olá!

Poste a planilha em www.sendspace.com e disponibilize o link para podermos lhe ajudar.

fvmuller · 24 de abril de 2011

Olá amigo!

Segue o link da planilha que você solicitou.

http://www.sendspace.com/file/ka83vz

Na verdade, apaguei um monte de outras planilhas que fazem parte do arquivo e deixei apenas as que interessam.

O que eu gostaria é que toda vez que o arquivo fosse aberto, uma macro checasse o número de empresas em atraso e o número de empresas com honorários a serem reajustados (Pintei de amarelo na planilha Resumo - Controle) e, caso sejam maior do que 1, um msgbox fosse aberta avisando, com o referido número presente na célula. Mas um item independente do outro, nao na mesma msgbox.

MAis uma vez agradeçoa a ajuda!

Grande abraço e uma otima pascoa!

24 de abril de 2011

1. cole o código abaixo no módulo de "EstaPasta_de_trabalho"

para acessar o módulo e colar:

a. abra o arquivo

b. Alt+F11

c. duplo clique em EstaPasta_de_trabalho

d. cole o código na janela que vai se abrir à direita

e. Alt+F11

2. salve o arquivo, feche e reabra

Private Sub Workbook_Open()
With Sheets("Plan2")
    If .[J22] > 0 Then
        MsgBox "Existem " & .[J22] & " empresas em atraso."
    End If
    If .[J23] > 0 Then
        MsgBox "Existem " & .[J23] & " sem atualização"
    End If
End With
End Sub

Flavio Soares · 24 de abril de 2011

Quando houver somente 1 não é para apresentar a mensagem?

utilizei o critério para apresentar a mensagem quando os campos forem iguais ou maiores que 1. Se for só para os maiores de 1, é só avisar que eu modifico a macro.

http://www.sendspace.com/file/1xk39h

Lembre-se de ativar macro ao abrir a planilha.

fvmuller · 24 de abril de 2011

Cara, brigadão pela força!!

No exemplo que você, funciona perfeitamente.

Porém, quando vou inserir o código na minha planilha, não consigo. Pois como meu excel é o 2007, ele pede pra eu gravar as macros na pasta de trabalho pessoal, em um arquivo personal.xlsb que ele cria.

Se colo o seu código na pasta de trabalho deste personal.xlsb, dá erro.

Se colo na pasta de trabalho normal, ele diz que quando eu salvar o arquivo, a macro nao funcionará da próxima vez.

Estou um pouco perdido com isso. Você sabe me dizer o que fazer?

Mais uma vez agradeço!!