Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Data e moeda grava ...
 
Notifications
Clear all

Data e moeda grava invalido

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
738 Visualizações
RSS
 Rui Maciel
(@rui-maciel)
Posts: 0
New Member
Topic starter
 

Boa tarde
Tenho um aplicativo em excel para pagamento de direitos paroquiais, no formulário DireitosParoquiais a textbox txtData troca o dia pelo mês quando grava para a planilha, assim como, a txtDireitos não grava como número, podem por favor me ajudar é que já tentei de todas as formas corrigir e não consigo. Envio em anexo o aplicativo. Obrigado.
Utilizador: ADMIN
Senha: ADMIN
Att.,
Rui Maciel

 
Postado : 04/02/2017 1:21 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente:
altere a rotina salvaregistros conforme abaixo:

Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
    With wsCadastro
        .Cells(indice, colCodigo).Value = id
        .Cells(indice, colNome).Value = Me.txtNome.Text
        .Cells(indice, colMorada).Value = Me.txtMorada.Text
        .Cells(indice, colDataInscricao).Value = Me.txtNumero.Text
        .Cells(indice, colCodPostal).Value = Me.txtCodPostal.Text
        .Cells(indice, colCCidadao).Value = Me.txtCCidadao.Text
        .Cells(indice, colContribuinte).Value = Me.txtContribuinte.Text
        .Cells(indice, colDireitos).Value = CDbl(VBA.Replace(txtDireitos.Text, " €", ""))
        .Cells(indice, colData).Value = VBA.CDate(Me.txtData.Text)
        .Cells(indice, colRecibo).Value = Me.txtRecibo.Text
    End With
 
Postado : 04/02/2017 5:15 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico