Este fórum está sendo desativado

[AdrianoPaulo50]

Boas preciso de ajuda para fazer na folha Layout QrCode sempre que altero a celula b4 apresentar um novo qr code
que depois sera copiado para a folha qrcode. ajuda por favor. ele ja esteve a trabalhar assim depois começo por nao atualizar o folha Qrcode dava sempre o mesmo cofdigo que estava na folha layout. e a seguir ficou assim e nao consigo resolver
Muito agradecido desde ja

[Basole]

Experimente alterar o nome do modulo Qrcode para QrCod, por exemplo
E no final da funcao Qrcode, acrescente:

Código: Selecionar todos

 ' . . . . . . . . . . . . . . . . . . .  . .. .
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

[AdrianoPaulo50]

Boas fiz algumas modificaçoes mas nao consigo na folha layout quando altero a celula B4 fazer um qr novo ajuda por favor
Obrigado Basole fiz o que mandaste e continua igual.

[AdrianoPaulo50]

Tenho andado a tentar e consegui alguns resultados este ficheiro word tem os resultados que consegui fazer
tenho os 2 codigos separados por 1 linha e a seta a preto e onde muda para o 2º codigo(QrCode).
O que pretendo e quando chegar a 1ª seta azul chame o 2º Codigo e nao quando mudar de pagina pretendo que o 2º codigo so entre na pagina layout

[Basole]

Bom se voce afirmou no seu primeiro post que funcionava, mas depois parou de atualizar o voce precisa ativar as atualizacoes do seu livro.

Experimente acrescentar o codigo absixo no evento Workbook no modulo EsteLivro:

Código: Selecionar todos

Private Sub Workbook_Open()
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub

* Salve o arquivo e reabra novamente

[AdrianoPaulo50]

Boas Muito Obrigado mas continua igual sem conseguir atualizar

[Basole]

Enviei o ficheiro alterado no privado.