Erro em copia e cola macro VBA


#1

Boa noite meus amigos,

Criei uma macro para copiar alguns dados com base em um filtro que fiz em um formulário, e mandar para uma outra planilha, consegui fazer em todos os combo box que possuo no formulário, mas quando chega no campo de data, ele muda o valor da data para um numero que não entendo e não trás o valor para a célula que eu seleciono no código. Alguém poderia me ajudar? Segue o código:

Private Sub cbDataDeEmissao_Change()

Application.ScreenUpdating = False

Sheets(“Planilha1”).Activate

    ActiveSheet.Range("$A$1:$K" & Range("A2").End(xlDown).Row).AutoFilter Field:=9, Criteria1:=cbProduto
    Range("I2:I" & Range("I2").End(xlDown).Row).Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy

    Sheets("Temp").Activate
    Range("C2").Select
    ActiveSheet.Paste
    
    Rows(2).Select
    Selection.Copy
    Sheets("Template").Activate
    Range("A1").Select
    ActiveSheet.Paste

Application.ScreenUpdating = True

End Sub


#2

Fala, @adeilson.

Isto é uma questão de formato. O Excel entende as datas como números em sequência. Assim ele consegue fazer contas com as datas. Mesmo sendo um número que você não compreende, funciona, mas para visualizar como data, é preciso formatar como tal.