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á
