ERRO AO EXPORTAR DATA  [Resolvido]

Fórum para assuntos relacionados as funções de tempo do Excel, como AGORA, DATADIF, DATAM, DIATRABALHOTOTAL, etc...

ERRO AO EXPORTAR DATA

Mensagempor slpauli » Qui Jan 11, 2018 11:38 am

Sou novo no Fórum e espero estar fazendo tudo correto por aqui. Estou com dificuldade de exportar um campo de data para outra planilha, via macro.
Em resumo, tenho uma planilha (FECHAMENTO!), como se fosse um formulário, onde insiro dados de fechamento diário de caixa. Via macro, exporto os dados para outra planilha (BD!) que armazena os dados. O problema é que tem um campo de data, que ao ser exportado, fica sempre 00/01/00, na planilha BD!.
Alguém tem alguma sugestão? Fico grato desde já.
slpauli
Membro
Membro
 
Mensagens: 3
Registrado em: Qui Jan 11, 2018 11:21 am
Has thanked: 2 times
Have thanks: 0 time

{ SO_SELECT }

Re: ERRO AO EXPORTAR DATA

Mensagempor xlarruda » Qui Jan 11, 2018 12:03 pm

A primeira sugestão é você poste sua planilha ou pelo menos seu código para verficiarmos...

Abrç!
Att,

xlarruda.
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 381
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 74 times
Have thanks: 134 times

Re: ERRO AO EXPORTAR DATA

Mensagempor slpauli » Qui Jan 11, 2018 12:32 pm

Arquivo em anexo.
O Código é o seguinte:
Código: Selecionar todos
Sub AddNew()

    'Update data on Plan1 based on new customer entered on Plan2
    Application.ScreenUpdating = False
   
    Dim LData As Integer
   
    'Dim LDatas As String
    Dim LDinheiro As String
    Dim LCD As String
    Dim LCCA As String
    Dim LCCP As String
    Dim LAMEX As String
    Dim LVALE As String
    Dim LTAX As String
    Dim LDOCS As String
    Dim LVENDAS As String
    Dim LRANK As String
    Dim LClientes As String
    Dim LBCO As String
    Dim LDESP As String
    Dim LSaldoHoje As String
    Dim LSaldoDAnterior As String
    Dim LReceita As String
    Dim LTiked As String
    Dim LQuebra As String
    Dim LRESP As String
       
    Dim LRow As Long
    Dim LFound As Boolean
   
    'Before adding new customer, make sure a value was entered
    If IsEmpty(Range("C4").Value) = False Then
   
        'Retrieve new information
        LData = Range("C4").Value
        LDinheiro = Range("C20").Value
        LCD = Range("C21").Value
        LCCA = Range("C22").Value
        LCCP = Range("C23").Value
        LAMEX = Range("C24").Value
        LVALE = Range("C25").Value
        LTAX = Range("C26").Value
        LDOCS = Range("C27").Value
        LVENDAS = Range("C28").Value
        LRANK = Range("C29").Value
        LClientes = Range("C30").Value
        LBCO = Range("C31").Value
        LDESP = Range("C32").Value
        LSaldoHoje = Range("C33").Value
        LSaldoDAnterior = Range("C34").Value
        LReceita = Range("C35").Value
        LTiked = Range("C36").Value
        LQuebra = Range("C37").Value
        LRESP = Range("A39").Value
   
         
        'Move to Plan1 to save the changes
        Sheets("BD").Select
       
        LFound = False
       
        LRow = 2
       
        Do While LFound = False
           
            'Encountered a blank project number (assuming end of list on Plan1)
            If IsEmpty(Range("A" & LRow).Value) = True Then
                LFound = True
            End If
           
            LRow = LRow + 1
        Loop
       
        Range("A" & LRow - 1).Value = LData
        Range("B" & LRow - 1).Value = LDinheiro
        Range("C" & LRow - 1).Value = LCD
        Range("D" & LRow - 1).Value = LCCA
        Range("E" & LRow - 1).Value = LCCP
        Range("F" & LRow - 1).Value = LAMEX
        Range("G" & LRow - 1).Value = LVALE
        Range("H" & LRow - 1).Value = LTAX
        Range("I" & LRow - 1).Value = LDOCS
        Range("J" & LRow - 1).Value = LVENDAS
        Range("K" & LRow - 1).Value = LRANK
        Range("L" & LRow - 1).Value = LClientes
        Range("M" & LRow - 1).Value = LBCO
        Range("N" & LRow - 1).Value = LDESP
        Range("O" & LRow - 1).Value = LSaldoHoje
        Range("P" & LRow - 1).Value = LSaldoDAnterior
        Range("Q" & LRow - 1).Value = LReceita
        Range("R" & LRow - 1).Value = LTiked
        Range("S" & LRow - 1).Value = LQuebra
        Range("T" & LRow - 1).Value = LRESP
       
        'Reposition back on Plan2
        Sheets("FECHA").Select
       
        'Update range for combo boxes
        'ActiveSheet.Shapes("Drop Down 3").Select
        'With Selection
        '    .ListFillRange = "Plan1!$B$2:$B$" & LRow - 1
        'End With
       
        'ActiveSheet.Shapes("Drop Down 8").Select
       ' With Selection
       '     .ListFillRange = "Plan1!$B$2:$B$" & LRow - 1
       ' End With
       
        'Clear entries from cells
        'Range("D12").Value = ""
        'Range("D14").Value = ""
        'Range("D16").Value = ""
        'Range("D18").Value = ""
       
        Range("C4").Select
       
        MsgBox ("Novo registro de fechamento adicionado com sucesso!")
    End If
    Application.ScreenUpdating = True
    'Range("PRINT!A1:C25").PrintOut
End Sub


Está bem poluído. Ainda estou adaptando...
Você não está autorizado a ver ou baixar esse anexo.
slpauli
Membro
Membro
 
Mensagens: 3
Registrado em: Qui Jan 11, 2018 11:21 am
Has thanked: 2 times
Have thanks: 0 time

Re: ERRO AO EXPORTAR DATA  [Resolvido]

Mensagempor xlarruda » Qui Jan 11, 2018 12:44 pm

Mude no seu código a seguinte linha de:
Código: Selecionar todos
Dim LData as Integer

Para:
Código: Selecionar todos
Dim LData as Date

Uma breve explicação...
Integer = declara números inteiros
Date = Declara datas (que é o seu caso)

Dessa forma seu problema estará resolvido... Abrç!
Att,

xlarruda.

For this post the author xlarruda thanked:
slpauli (Qui Jan 11, 2018 3:25 pm)
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 381
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 74 times
Have thanks: 134 times

Re: ERRO AO EXPORTAR DATA

Mensagempor slpauli » Qui Jan 11, 2018 1:50 pm

Perfeito. Muito obrigado :D
slpauli
Membro
Membro
 
Mensagens: 3
Registrado em: Qui Jan 11, 2018 11:21 am
Has thanked: 2 times
Have thanks: 0 time

Re: ERRO AO EXPORTAR DATA

Mensagempor xlarruda » Qui Jan 11, 2018 1:58 pm

Blz! Não se esqueça de clicar no joinha e marcar seu post como resolvido! Abrç!
Att,

xlarruda.

For this post the author xlarruda thanked:
slpauli (Qui Jan 11, 2018 3:24 pm)
Avatar do usuário
xlarruda
Membro
Membro
 
Mensagens: 381
Registrado em: Qua Out 04, 2017 9:41 am
Localização: Cuiabá-MT
Has thanked: 74 times
Have thanks: 134 times


Voltar para Datas & Horas

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante

cron