Bom dia,

Tenho o codigo abaixo que copia os dados de uma guia para outra, alimentando uma base de dados.

A coluna A é um campo de Data dd/mm/aaaa.

Quando essa coluna é copiada, a data fica invertida mm/dd/aaaa.

Já vi varios codigos na internet, mas nenhum ta dando certo pra mim.

Preciso de ajuda.

Dim Sht1 As Worksheet, Sht2 As Worksheet

Set Sht1 = Sheets("Colar Ponto Aqui") ' Substitua aqui pelo nome da planilha de origem
Set Sht2 = Sheets("Base") ' Substitua aqui pelo nome da planilha de destino

Sht1.Range("A2:P11000").Copy

'Retornando a prox linha vazia
x = Sht2.Range("A2").End(xlDown).Offset(1, 0).Row

'Colando
Sht2.Range("A" & x).PasteSpecial xlPasteAll

'cancelando a seleção

Application.CutCopyMode = False