none
Ajuda com macro / Aprimoramento de formula RRS feed

  • Pergunta

  • Olá pessoal da MSDN, tudo bem?

    Estou precisando de uma ajuda de vocês com uma planilha que estou criando e tentando deixar mais funcional.

    Tenho uma planilha de exemplo com 102 títulos de coluna e mais de 400 itens em cada coluna. E tenho uma outra planilha de Excel com essas mesmas colunas, mas elas estão outra ordem, como exemplo abaixo:

    Planilha extraída do sistema:

    Service Request | NumberCustomer | Ticket | NumberReport | DateIncident | Occurred | DateExpected | Response | DateActual Response Date |

    já na outra planilha onde fica meu banquinho de dados está ordenado assim:

    Service Request | DateIncident | Occurred  | Ticket | NumberReport |  Response | DateExpected | DateActual Response Date | NumberCustomer |

    O que preciso fazer é ordenar as colunas para depois copiar os dados que foram extraídos do sistema e os colar na segunda planilha.

    Ainda sobre essa mesma planilha eu criei mais alguns códigos e preciso da ajuda de vocês para o ajustar, pois ele não está totalmente funcional, pois não entendo tão bem como poderia executar, alguém poderia me dar uma ajuda?

    Desafio extra para quem se sentir motivado:

    Outra coisa estou querendo é que ao invés de usar uns campos fixados ele leia a ultima linha com dados.

    Worksheets("COPY").Activate
    Range("A1:CN20000").Select -> como por exemplo ele ler a ultima linha ao invés desse valor todo
    Selection.Cut
    ActiveSheet.Paste Destination:=Worksheets("BASE").Range("A2")

    O que eu quero com essa formula é que ela copie os dados pré colados e replique para todos o itens da lista.

    Nessa parte eu tentei um esboço de colar uma linha em todas as linhas que tinham dados...</ins></ins></ins>

    Worksheets("BASE").Activate
    Range("CX1:DC1").Copy - linha com dados da formula
    Range("CX2:DC" & LastRow).Select
    Range("CX2:DC" & LastRow).PasteSpecial
    Range("A2:DC20000").Copy -> onde quero que ele leia a ultima linha com valor para colar as formulas.
    Range("A2:DC20000").PasteSpecial
    Worksheets("CAPA").Activate
    Range("A1").Select
    MsgBox "Padilha Cópia realizada com sucesso!" 

    Obrigado desde já


    terça-feira, 13 de março de 2018 17:08

Todas as Respostas

  • Seria interessante mandar planilhas de exemplo. Ajudaria a entender melhor.

    Renato MDSP

    terça-feira, 13 de março de 2018 21:45
  • Renato, segue arquivo com as macros e as fórmulas.

    https://forum.baboo.com.br/applications/core/interface/file/attachment.php?id=44855

    Desculpem o link de outro portal, mas não encontrei onde faz o upload aqui...

    terça-feira, 13 de março de 2018 23:44
  • pode mandar no meu email caso queira renatomdsp@gmail.com

    Renato MDSP

    quarta-feira, 14 de março de 2018 00:15
  • Conseguiu verificar Renato? 

    Eu posso explicar se surgir alguma necessidade, a planilha com a SR_ alguma coisa ela tem mais de 90mb... de informações, por isso não posso anexar ela ou enviar por e-mail.

    Mas já dá para ter uma ideia com isso.

    Agradeço a ajuda.

    quarta-feira, 14 de março de 2018 13:24