Cybertica,

As informações continuam na mesma posição, somente pintei as células com cor branca para não ficarem aprecendo na tela. Mas é só formatar a cor do texto novamente caso deseje visualisá-las.

Quanto a saber se o registro foi ou não gravado, fiz uma rotina que limpa o conteúdo dos campos da sua tela após a gravação do registro na aba lançamentos. Portanto, se os campos estiverem limpos o registro foi gravado.

Sds,

Henrique Ronconi

Ok Muito obrigado pelo tempo despendido

Ficou optimo, mas as msg que eu tinha colocado já lá não estão gostava simplesmente de colocar a informação que o registo tinha sido gravado.
Obrigado

Apesar da explicação do Ronconi, se ainda assim quiser exibir a Mensagem, é só adicionar a linha abaixo na Rotina Sub Limpa()

Application.ScreenUpdating = True
MsgBox "Dados Gravados com Sucesso !!!", vbInformation

Uma observação quanto ao seu modelo, eu colocaria uma Instrução IF para verificar se todos os campos estão preenchidos, assim evitaria que a Rotina continuasse se clicassem em Gravar sem terem preenchido os Campos.

[]s

Mais uma vez muito obrigado voçês são maximo

Foi uma boa ideia entre outras que eu tenho para realizar este meu trabalho
Agora todos os campos não é necessário basta a RANGE("AF2")e a ("AM2") como faço irei ser um grande chato, peço desculpa

Mais uma vez muito obrigado voçês são maximo

Foi uma boa ideia entre outras que eu tenho para realizar este meu trabalho
Agora todos os campos não é necessário basta a RANGE("AF2")e a ("AM2") como faço irei ser um grande chato, peço desculpa

Não sei se entendi corretamente, se quer SOMENTE os dois Ranges acima, poderia ser feito diferente, mas para não alterar o projeto, baseado no modelo anexado, em AM2 da aba Lançamento : =SE(AM5=2;"Receita";SE(AM5=3;"Despesa"))

[]s

Bom com a vossa ajuda já dei um pequeno avanço ao meu trabalho.
Muito obrigado

Tenho mais umas duvidas a primeira é a seguinte:

Com alguma alterações efectuadas no ficheiro anterior agora aconteçe que quando protejo a folha "Lançamento" já tendo desportejido as devidas celulas, as
Caixas de combinação só estão activas com o rato como faço para trabalhar só práticamente com o teclado?

Envio o ficheiro em anexo

Obrigado