Ir ao conteúdo

Macro com condição e MSGbox


fvmuller

Posts recomendados

Postado

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!

Postado

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!

Postado

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

Postado

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

Postado

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"

Postado

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!

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!