Este fórum está sendo desativado

[rpcn]

Bom dia.

É possível implementar o colar especial valores, utilizando na linha de código abaixo?

wshSelecionada.Range("D" & i.Row & ":H" & i.Row).Copy Relatorio.Range("A" & LinRelatorio)

Muito obrigado.

[AfonsoMira]

Boas, poderia anexar o ficheiro para poder ajudar melhor?
Obrigado.

[rpcn]

Com certeza. Segue o arquivo.

O código em questão está no button ''Emitir Relatório'', no formulário.

Obrigado!

[AfonsoMira]

Boas penso que seja isto que pretende.

Basta agora alterar as formatações dos campos e penso que esteja bom.

Acrescentei também uma mensagem para quando o relatório for gerado avisar o utilizador e fechar o formulário.

Ficheiro em anexo, alguma dúvida só chamar.

[osvaldomp]

Experimente:

Código: Selecionar todos

Relatorio.Range("A" & LinRelatorio & ":E" & LinRelatorio) = wshSelecionada.Range("D" & i.Row & ":H" & i.Row).Value

[rpcn]

Muito obrigado pessoal!!!!