Data sendo gravado como 00/01/1900  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Data sendo gravado como 00/01/1900

Mensagempor Fernandox » Sex Set 14, 2018 11:37 am

Ola Pessoal, deparei com esse problema, ja tentei usar varios metodos para tentar solucionar e nada ainda, vou deixar logo abaixo o que tenho pratico no código, quem puder orientar-me, fico grato

Quando mando gravar o registro e deixo o campo data de Pagamento em branco, que somente será preenchido quando ocorrer o pagamento deste registro, esta gravando dessa maneira 00/01/1900
.

Para criar minha planilha uso este método para o campo Data (DatadePagamento)

Código: Selecionar todos
[code]    For Each Celula In Columns("J:J")
        Celula.NumberFormat = "Data"
        Worksheets("TabReceber").Columns(10).NumberFormat = "dd/mm/yyyy"
        Worksheets("TabReceber").Columns(10).HorizontalAlignment = xlLeft
        Worksheets("TabReceber").Columns(10).ColumnWidth = 10
    Next
    [/code]


Quando vou gravar passo esse parametro para tentar com que o valor DataPagamento fique com "0"

Código: Selecionar todos
   
     If Me.txtDataPagamento.Text = "" Then
'           With Selection
             .Cells(indice, colDataPagamento).Value = "0"
             .Cells(indice, colDataPagamento).HorizontalAlignment = xlRight
'           End With
        Else
'           With Selection
             .Cells(indice, colDataPagamento).Value = Me.txtDataPagamento.Text
             .Cells(indice, colDataPagamento).HorizontalAlignment = xlRight
'           End With
        End If

Fernandox
Membro
Membro
 
Mensagens: 68
Registrado em: Qui Mar 29, 2018 8:28 am
Has thanked: 11 times
Have thanks: 3 times

{ SO_SELECT }

Re: Data sendo gravado como 00/01/1900  [Resolvido]

Mensagempor Fernandox » Sex Set 14, 2018 12:52 pm

Ola Pessoal, agradeço a todos no auxilio, resolvi da seguinte maneira, segue o código abaixo

Código: Selecionar todos
        If IsDate(txtDataPagamento.Text) = Empty Then
            .Cells(indice, colDataPagamento).ClearContents
            .Cells(indice, colDataPagamento).HorizontalAlignment = xlRight
        End If
Fernandox
Membro
Membro
 
Mensagens: 68
Registrado em: Qui Mar 29, 2018 8:28 am
Has thanked: 11 times
Have thanks: 3 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Sheik87 e 9 visitantes