none
Macro distorce valores de data RRS feed

  • Pergunta

  • Boa tarde,

    Criei uma MACRO para colar dados em uma planilha. Esses dados contém valores de Texto e Datas. Os dados são copiados de um sistema online.

    O problema é o seguinte:

    Se eu incluo esses dados fazendo uso do Ctrl+V, os dados são colados perfeitamente como devem ser. Eles seguem as formatações estabelecidas em cada célula. 

    Porém, se eu colo esses mesmos dados fazendo uso da MACRO, os dados de DATAS são colados errados. Algumas células alternam entre "dd/mm/aaaa" (que seria o correto) para "mm/dd/aaaa" ou ainda "mm/dd/aa".

    Já fiz de tudo que eu podia, e não consigo resolver esse problema.

    Segue exemplo dos dados colados fazendo uso do atalho CTRL+V:

    Data Avaliação Data Contrato Data Vcto
    29/11/2017 29/11/2017 15/12/2017
    27/11/2017 27/11/2017 07/12/2017
    25/11/2017 25/11/2017 11/12/2017
    20/11/2017 20/11/2017 21/11/2017
    03/11/2017 03/11/2017 06/11/2017
    03/11/2017 03/11/2017 06/11/2017
    30/10/2017 30/10/2017 31/10/2017
    26/10/2017 26/10/2017 18/11/2017

    Segue exemplo dos dados colados fazendo uso da MACRO (coloquei em destaque os datas coladas de forma errada):

    Data Avaliação Data Contrato Data Vcto
    29/11/17 29/11/2017 15/12/2017
    27/11/17 27/11/2017 12/07/2017
    25/11/17 25/11/2017 12/11/2017
    20/11/17 20/11/2017 21/11/2017
    11/03/2017 11/03/2017 11/06/2017
    11/03/2017 11/03/2017 11/06/2017
    30/10/17 30/10/2017 31/10/2017
    26/10/17 26/10/2017 18/11/2017


    Segue abaixo a Macro utilizada para colar os dados:

    Sub Colar_Dados()
    '
    ' Colar_Dados Macro
    '

    '
        Range("A1").Select
        ActiveSheet.PasteSpecial Format:="Texto Unicode", Link:=False, _
            DisplayAsIcon:=False
        Range("H3").Select
    End Sub

    Obrigado pela ajuda.

    domingo, 3 de dezembro de 2017 23:07