Página 1 de 1

Copiar Fórmulas

Enviado: 05 Ago 2020 às 14:17
por Saulo
Boa Tarde!
No botão “PESQUISAR” localizado na planilha “Pesq MP”, contém uma macro (Sub Copiar2()) cujo uma das funções deveria ser: copiar as fórmulas da células “J11”;”K11”;”L11”,”M11”, “N11” para as linhas subsequentes até onde houver o último registro de dados na mesma planilha “Pesq MP”, por exemplo, ao efetuar uma determinada consulta e os dados forem preenchidos até a linha 41, então as fórmulas devem igualmente estarem até a linha 41, se uma nova consulta retornar dados até a linha 10, então as fórmulas devem igualmente estarem até a linha 10.
OBS: A macro até funciona parcialmente, ou seja, faz a função de pesquisar, porém copia as fórmulas somente a cada clique.
Segue o arquivo anexo
Desde já agradeço

Re: Copiar Fórmulas

Enviado: 06 Ago 2020 às 04:54
por AfonsoMira
Boas veja se é isso que pretende.

Adicionei também a linha:
Código: Selecionar todos
with application
      .ScreenUpdating = False
End with
Para a tela não estar sempre a piscar.

Ficheiro actualizado em anexo.

Copiar Fórmulas

Enviado: 06 Ago 2020 às 10:06
por Saulo
Prezado AfonsoMira 06 Ago 2020 às 05:54
Bom Dia!
Obrigado Por Dispor de seu Tempo Para Ajudar-me!
A Ideia é essa mesmo, porém ocorreram alguns Bug’s, se possível, peço que reavalie o código, seguem listas dos Bug’s:
1) Não está copiando as fórmulas após novas pesquisas, por exemplo, escolha o RESP = Elétrica e o EQUIPTO = Trator Master, observe que as fórmulas da coluna “J” não são copiadas;
2) Quando por exemplo escolhe-se somente o RESP = Elétrica, as fórmulas só são copiadas até determinada linha, após a linha 41 as fórmulas deixam de serem copiadas;
3) Quando não se aplica nenhum tipo de filtro e clicar no botão “PESQUISAR” as fórmulas deixam de serem copiadas a partir da linha 216, e aparece somente na linha 427;
4) As alturas de algumas linhas estão fora do padrão, no exemplo do item 3, verifique por exemplo que a linhas 292 e 301 estão com altura diferentes das anteriores;
Fico no aguardo.
Desde já agradeço

Re: Copiar Fórmulas

Enviado: 07 Ago 2020 às 06:00
por AfonsoMira
Boas em anexo envio ficheiro com bugs resolvidos.

Pelo menos os exemplos que me deu acho que já estão bons.

Veja e me diga algo. :D

Copiar Fórmulas

Enviado: 07 Ago 2020 às 10:56
por Saulo
Prezado AfonsoMira 07 Ago 2020 às 07:00 , Bom Dia!
Obrigado por dispor de seu tempo e paciência em ajudar-me.
Então.....Os Bug's relatados anteriormente foram resolvidos.
Porém...Só mais uma questão, a única fórmula que não está sendo copiada é a da Coluna "J", apesar de exibirem as informações corretas, se possível peço que verifique.
Desde já agradeço.

Re: Copiar Fórmulas

Enviado: 07 Ago 2020 às 11:13
por AfonsoMira
Boas veja se é isto:

Copiar Fórmulas

Enviado: 07 Ago 2020 às 14:28
por Saulo
Prezado AfonsoMira 07 Ago 2020 às 12:13
Perfeito, Muito Obrigado!
DEUS lhe Pague.
Atenciosamente.