Data Invertida

Formulários

Post Recente por wagnermedani 12 anos atrás

4 Posts

2 Usuários

0 Reactions

2,276 Visualizações

RSS

wagnermedani

(@wagnermedani)

Posts: 39

Eminent 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

Eminent 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