Inquiridor
Ajuda com macro / Aprimoramento de formula

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á
- Editado Victor Hugo Pafume Ribeiro quarta-feira, 14 de março de 2018 13:25
Todas as Respostas
-
-
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...
- Editado Victor Hugo Pafume Ribeiro terça-feira, 13 de março de 2018 23:51
-
-
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.