Fóruns
Microsoft Excel - 2...
Formulários
Data Invertida
 
Notifications
Clear all

Data Invertida

 
Formulários
Post Recente por wagnermedani 12 anos atrás
4 Posts
2 Usuários
0 Reactions
2,265 Visualizações
RSS
 wagnermedani
(@wagnermedani)
Posts: 39
Trusted Member
Topic starter
 

Olá galera!!!

Já pesquisei nos fóruns, mas não obtive sucesso... a questão é a data invertida que fica após preencher os dados no formulário, utilizei o seguinte código no botão gravar, mas o problema persiste.

Sheets("Plan2").range("B2")=Format(Textbox, "DD/MM/YYYY")

Só que eu queria que toda a coluna "B" ficasse neste formato.

Att,

 
Postado : 24/10/2012 5:59 am
 wagnermedani
(@wagnermedani)
Posts: 39
Trusted Member
Topic starter
 

O correto é:

Sheets("Plan2").range("C2")=Format(txtData, "DD/MM/YYYY")

Só que eu queria que toda a coluna "C" ficasse neste formato.

Segue em anexo.

Att,

 
Postado : 24/10/2012 6:09 am
 cleiton jm
(@cleiton-jm)
Posts: 115
Estimable Member
 

tente assim:

'Declaração de Variáveis
Dim LinhaCodigo As Long 'Linha onde está o código

'Procura pelo código, caso não encontre pega a última linha
'e considera uma inclusão
LinhaCodigo = ProcuraCodigo(CInt(txtCodigo.Text))
If (LinhaCodigo = 0) Then
LinhaCodigo = UltimaLinha + 1
End If

'Grava os dados do formulário na planilha
Sheets("Plan2").Cells(LinhaCodigo, 1) = txtCodigo.Text
Sheets("Plan2").Cells(LinhaCodigo, 2) = txtNome.Text
Sheets("Plan2").Cells(LinhaCodigo, 3) = CDate(txtData.Text)'<<<<<<<<<<<<<<<<<<<<

'Mostra a Mensagem
MsgBox "Salvo com sucesso!"

 
Postado : 24/10/2012 6:31 am
 wagnermedani
(@wagnermedani)
Posts: 39
Trusted Member
Topic starter
 

Muitíssimo obrigado Cleiton jm

 
Postado : 24/10/2012 7:29 am
Forum Jump:
  Tópico Anterior
Próximo Tópico