Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
fvmuller

[Resolvido] Macro com condição e MSGbox

Recommended Posts

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tentou este caminho?

Independe de qual dos códigos postados você esteja testando:

1. salvar como

2. "Pasta de Trabalho Habilitada para Macro do Excel"

Compartilhar este post


Link para o post
Compartilhar em outros sites

Show de bola cara!!

Agora funcionou perfeitamente. Eu não havia usado excel 2007 pra trbalhar ainda, pois nao era muito chegado ao layout dele.

Muito obrigado a vocês dois!

Grande abraço e ótima semana!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×