Bom dia,

Obrigado por todo o seu trabalho.
Testei e me parece estar tudo bem. Vou continuar a testar na prática. Depois dou retorno.

Não se preocupe para já com "caixa", não corresponde exactamente ao que é necessário, mas não é urgente. Depois me dedicarei a lhe explicar melhor o objectivo, mas para já interessa-me muito mais o "compras" e "clientes", devido às suas implicações legais.

Tudo funciona bem, mas se eu for a "registo" e "clientes" e limpar todos os registos de teste que lá estão (excepto coluna N de clientes), me dá o erro que anexo, quando tento gravar nova compra.

Faça um teste

Exclua todas as linhas deixando somente as linha1 da folha registo, não apenas borre faça novamente os testes

Aqui esta a funcionar correctamente.

Estou a enviar novamente o ficheiro para que olhe inclusive ja corrigi a formatação da folha clientes que comentei anteriormente.

Olá,

Detectei os seguintes novos problemas, na folha compras, o restante parece estar corrigido.
1 - As células de colocação de fotos (A9, A10, etc.) estão protegidas, e têm que ser desprotegidas;
2 - Quando estás digitando as células não protegidas, o cursor volta sempre à célula G9;
3 - MUITO GRAVE. Não consigo entender o que aconteceu, mas agora os dados nas células AC9 até AC20 estão incorrectos ou não aparecem, o mesmo acontecendo com os dados de AF9 até AF20.

Obrigado

Estao desprotegidas de A9 a A20

2 provavelmente isso aconteceu pq o campo AM2 estava com dados deve estar vazio

A questao 3 sinceramente nao sei o que ocorreu mas olhando aos ficheiros anteriores essa coluna depende do valor que se informa em AR11 (Valor Final Acordado).

E isso mesmo????

Não sei se consegui fazer a correção.

Sinceramente nao sei pois nao mexi nessas formulas, pois deve se lembrar sempre que ocorria erros nessas formulas eu informava e solicitava que corrigisse.

Informei um nif de um cliente que esta com o documento vencido no exemplo para que vc veja o que acontece no campo validade.

Ok, obrigado.
2 - Era isso;
3 - Erro na minha fórmula de uma célula escondida, pus ela a procurar "940%0" e na célula N9 até N20 estava "950%0"

Relativamente às validades, está perfeito.

Obrigado.

Vamos falando

Faça bom uso.

Bom dia,

Estou tendo o seguinte problema:
Quando abro o computador de manhã (ele fica desligado durante a noite), a data em AH1 de "compras continua com o dia anterior, e após fazer uma compra, que ele guarda com data do dia anterior, muda para o dia actual.

Pode limpar os dados de teste, mantendo só o das compras 64, 65 e 66, que são verdadeiras?

Obrigado

Verifique a data e hora de seu sistema o codigo utiliza a data do sistema para registar a data na celula AH1, se a data estiver errada ele vai registrar errada, pelo pouco que sei a diferença entre Brasil e Portugual é de 2 horas. Aqui no Brasil é 01:00 PM em Portugal deve ser 03:00PM .

É provavel que data e hora estejam erradas.

Olhe a data do sistema logo pela manha...

Inseri mais uma linha para limpar a data que fica na celula AH verifique no ficheiro pdf se vai funcionar corretamente.

Olá, bom dia,

A hora está correta. A hora em Portugal é GMT+0, já tinha verificado antes. e o computador tem instalado o windows 10, que faz o acerto automático.
Testei o que me enviou, e, embora tenha registado no PDF com a hora correta, só amanhã vou verificar.
Porém, tem o seguinte inconveniente, eu costumo imprimir as folhas (compras), antes de guardar, no excel, para evitar ter que guardar, sair, abrir o ficheiro em PDF e imprimir. Agora, como a data desapareceu, ao imprimir em excel, não aparece a data, que é obrigatório.

Obrigado

E so ir no código

ALT +F11 modulo 1 na macro limpar apague a seguinte linha de código

.range ("AH1").clearcontents

Marcelo, ainda tem outro problema.
A numeração das folhas não sai correta.
Quando aparece no visor, por exemplo, a Nº 070, eu imprimo ainda no excel e sai direitinho, com o 070, mas guarda em PDF com 071, tanto no nome do ficheiro "071 - - 07.01.2016", como na célula B1 do PDF, onde aparece 071. Ou seja, ele tem o nº correto no excel, mas ao guardar avança 1. O número que me aparece no excel, depois de guardar, é igual ao que já está guardado.

Obrigado

A primeira coisa a corrigir é esta troque a linha Arq do arquivo por esta
Arq = Format(Wcomp.Range("B1").Value, "000") & " - " & Wcomp.Range("C4").Value & " - " & Format(Date, "DD.MM.YYYY")

Na verdade so esta trocando o C3 pelo C4 para pegar o nome do cliente na hora de guardar o arquivo

Testei aqui e funcionou perfeitamente.

Apos a alteração que disse acima faça o seguinte crie uma venda qualquer abra o editor de vba e va no codigo guardar e ative o botao f8 ate que a linha arq fique amarela depois ative mais uma vez e coloque o cursor do excel em cima da palavra arq veja o que esta escrito este sera o nome do arquivo. ative f5 e veja com que nome saiu o resultado.

PS enviei uma mensagem particular

Ja entendi o que esta acontecendo vc esta imprimindo antes de gerar o pdf na verdade vc deveria fazer isso depois.

Pois foi assim que o codigo foi pensado.

Faça o seguinte

Cole esse codigo no modulo 1

no final mesmo

Sub Imprimir()

Dim Wcomp As Worksheet

Set Wcomp = Sheets("Compras")

Wcomp.PrintOut , Copies = 3

End Sub

E no codigo Guardar escreva

Imprimir antes de limpar

Assim basta guardar o ficheiro e tudo saira conforme desejar.

O 3 é o numero de copias que vai imprimir ajuste como desejar.