Este fórum está sendo desativado

[Diego100ges]

Prezados, bom dia!

Estou com um problema em uma macro que organiza alguns de outra forma em outra aba da planilha, porém ele está pulando algumas datas... não estou conseguindo alterar o código de maneira funcional.

Alguém pra dar uma força?

Desde já, muito obrigado!

[eduardogrigull]

Na parte do código que está "Col = Col + 2" ponha: "Col = Col + 1"... E anteriormente defina a Col = 3 ao invés de 1.

[Diego100ges]

Funcionou!
Porém, não copiou a data 01/01/19

também precisei alterar essa linha

Orig.Range(Orig.Cells(3, Col), Orig.Cells(102, Col + 1)).Copy (Cells(Lin, "D"))
Para
Orig.Range(Orig.Cells(3, Col), Orig.Cells(102, Col)).Copy (Cells(Lin, "D"))

(Removi o +1), pois estava copiando dados também para coluna E

Alterei o Col = 3 para Col = 2, e ai pegou a data 01/01/19, apararentemente ficou tudo ok