Página 1 de 1
Colar Valores
Enviado: 29 Jul 2020 às 11:25
por 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.
Colar Valores
Enviado: 29 Jul 2020 às 11:35
por AfonsoMira
Boas, poderia anexar o ficheiro para poder ajudar melhor?
Obrigado.
Re: Colar Valores
Enviado: 29 Jul 2020 às 12:42
por rpcn
Com certeza. Segue o arquivo.
O código em questão está no button ''Emitir Relatório'', no formulário.
Obrigado!
Re: Colar Valores
Enviado: 29 Jul 2020 às 13:11
por 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.
Re: Colar Valores
Enviado: 29 Jul 2020 às 13:39
por osvaldomp
Experimente:
Código: Selecionar todosRelatorio.Range("A" & LinRelatorio & ":E" & LinRelatorio) = wshSelecionada.Range("D" & i.Row & ":H" & i.Row).Value
Re: Colar Valores
Enviado: 29 Jul 2020 às 14:50
por rpcn
Muito obrigado pessoal!!!!