Bom dia!!

Já tentou nossa base?
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Poste seu arquivo modelo!!

Att

Se não pode posta seu modelo/exemplo; pelo menos indique como é a rotina de "gravação" dos dados do formulário na planilha??

Se não pode posta seu modelo/exemplo; pelo menos indique como é a rotina de "gravação" dos dados do formulário na planilha??

Segue a planilha com formulário. Coloquei na planilha explicações dos problemas que estão acontecendo.

Obrigado.

Se não pode posta seu modelo/exemplo; pelo menos indique como é a rotina de "gravação" dos dados do formulário na planilha??

Segue a planilha com formulário. Coloquei na planilha explicações dos problemas que estão acontecendo.

Obrigado.

Esqueci de tirar a senha do VBA. A senha é: 423489423

Glaudemir, troque a sua rotina "Private Sub CommandButton_Adicionar_Click()" pela a abaixo, e refaça os testes:

Private Sub CommandButton_Adicionar_Click()

    Dim TextBox_PgCliente As Double
  
    'Cadastra os dados na planiha Pagamentos
    Sheets("Pagamentos").Visible = True
    Sheets("Pagamentos").Select
  
    'Seleciona a última linha preenchida da coluna A
    Range("A1048576").End(xlUp).Select

    'Vai para a próxima linha
    ActiveCell.Offset(1, 0).Select

    'CADASTRA OS NOVOS DADOS:
 
    'Transfere o valor da TextBox_Data do Form_Pagamentos
    'para a próxima célula vazia da Coluna A
    With ActiveCell
        .Value = Format(Form_Pagamentos.TextBox_Data, "DD/MM/YYYY")
        'Formata a data  no formato que quer
        .NumberFormat = "mm/dd/yyyy;@"
    End With

    'Transfere o valor da TextBox_Orçamento do Form_Pagamentos
    'para a coluna ao lado direito da célula ativa, na mesma linha (Coluna B)
    ActiveCell.Offset(0, 1).Value = Form_Pagamentos.TextBox_Orçamento.Value

    'Transfere o valor da TextBox_PgCliente do Form_Pagamentos
    'para a coluna ao lado direito da célula ativa, na mesma linha (Coluna C)
    'Converttemos o numero qdo Textbox que é texto para Numerico
    ActiveCell.Offset(0, 2).Value = CDbl(Format(Form_Pagamentos.TextBox_PgCliente, "#,###.#0"))

    'Mensagem confirmando o cadastramento com sucesso
    MsgBox "Pagamento cadastrado com sucesso.", _
    vbInformation, "Confirmação de lançamento"

    'Limpa todos os campos do formulário
      Form_Pagamentos.TextBox_Data.Value = Empty
      Form_Pagamentos.TextBox_Orçamento.Value = Empty
      Form_Pagamentos.TextBox_PgCliente.Value = Empty
  
    'O cursor fica piscando no campo "Data"
      Form_Pagamentos.TextBox_Data.SetFocus
  
End Sub

[]s

Amigo Mauro, muito obrigado por sua ajuda.

Você já resolveu 50% da questão. A parte do valor monetário está funcionando de maneira correta, como eu precisava.

Mas a parte da data continua dando erro. Faça o seguinte teste: Insira a data 07/06/2014 pelo formulário. Na célula da planilha fica mostrando exatamente esse valor, no entanto, refere-se à data 06/07/2014. Ou seja, apesar de estar mostrando uma data na célula, na "cabeça" do excel essa data refere-se a outra. Na verdade é como se estivesse mm/dd/aaaa.

Vamos continuar tentando...

Abração e mais uma vez, muito obrigado por seu empenho.

Na proposta do colega Mauro experimente alterar a linha .Value conforme abaixo:
.Value = Format(cdate(Form_Pagamentos.TextBox_Data), "DD/MM/YYYY")

Na proposta do colega Mauro experimente alterar a linha .Value conforme abaixo:
.Value = Format(cdate(Form_Pagamentos.TextBox_Data), "DD/MM/YYYY")

Amigo RLM, obrigado por sua participação, mas o resultado obtido foi semelhante ao anterior, ou seja, na célula aparece correto, mas na realidade continua sendo mm/dd/aaaa.

Boa tarde!!

Quanto ao valor monetário, faça os testes

Att

Estranho,veja no seu exemplo,nos teste que efetuei sem problemas

Tambem estranhei, qual versão está utilizando ?

Quando ajustei o seu modelo eu havia deixado a instrução quase igual a do Reinaldo e a data estava invertendo, então alterei para formatar (formato Data) a celula apos o lançamento conforme abaixo :
With ActiveCell
.Value = Format(Form_Pagamentos.TextBox_Data, "DD/MM/YYYY")
'Formata a data no formato que quer
.NumberFormat = "mm/dd/yyyy;@"
End With
E a formatação só ficou correta apos inverter o tipo de formatação, por isso que ficou uma "DD/MM/YYYY" e outra "mm/dd/yyyy", e não tive nenhum problema, coisas de excel.

Não baixei nem fiz teste com o modelo do Reinaldo, mais tarde em casa vejo, mas é muito estranho.

[]s

Estranho,veja no seu exemplo,nos teste que efetuei sem problemas

Agora tudo está resolvido. A data e o valor monetário são lançados na planilha exatamente como digitados no formulário.

Muito obrigado a todos que colaboraram nesta solução.

Tambem estranhei, qual versão está utilizando ?

Mauro, estou usando o Excel 2013.

Agora tudo está resolvido e funcionando.

Para funcionar normalmente precisei excluir a coluna A (Data) e criá-la novamente, formatando-a como dd/mm/aaaa. Aí utilizei o último código enviado pelo RLM (post marcado como resolvido). Pronto! Tudo funciona como pretendido.

Obrigado a todos.