Notifications
Clear all

DATA INVERTIDA NO COM VBA

3 Posts
3 Usuários
0 Reactions
1,620 Visualizações
(@paulinha30)
Posts: 5
Active Member
Topic starter
 

Olá Pessoal,
boa tarde!

Estou fazendo uma planilha de controle financeiro, em que tudo seja rodado via vba com forms... não quero acesso às planilhas. Tudo está indo certo, até chegar no form de atualização, e na data deste form.

São dois problemas que não consigo resolver, e já estou há dois dias tentando, e tentei todas as soluções de formatação de data que têm na internet.
O que acontece é:

1) Quando o dia está entre 01-12, o form cadastra a alteração na planilha em formato mm/dd/aaaa. Preciso que fique no formato brasileiro. Além disso, a célula conserva a formatação que altera data e número.

2) Quando o dia está entre 13-31, o form cadastra a alteração na planiçha no formato dd/mm/aaaa, porém, com uma formatação exclusiva de data, como se fosse texto. E preciso que seja número, pois outra célula depende do valor da data para fazer um cálculo.

vou anexar a plan, o form que está dando problema é o Controlpagto e a rotina é atualizardados.

https://1drv.ms/x/s!AizgIDDIVhDt9H_jKog1H8pugrJH

Vcs podem me ajudar com esses dois problemas?

Agradeço mto!

 
Postado : 22/01/2017 11:26 am
fcarlosc
(@fcarlosc)
Posts: 453
Honorable Member
 

Bom-dia

O pessoal do Forum me passou alguns códigos e funcionou no meu formulário, tenta adaptar ao seu.

tente assim:
Format(Me.txtPais.Text, "mm/dd/yyyy")

assim:
Dim Dat As String

Dat = Sheets("Clientes").Cells(Linha, 6)

'Mês & / & Dia & / & Ano
form_alterar.Data.Text = Left(Right(Dat, 7), 2) & "/" & Left(Dat, 2) & "/" & Right(Dat, 4)

ou assim:
Sheets("Clientes").Cells(Linha, 6) = CDate(form_alterar.data.Text)

Att,

Francisco

 
Postado : 23/01/2017 7:41 am
DJunqueira
(@djunqueira)
Posts: 772
Prominent Member
 

A extensão da fórmula na planilha PAGAMENTOS coluna V até a última linha acrescentou 10 mega ao tamanho da sua pasta de trabalho, definitivamente não é assim q se faz.
Só a perda de tempo q o Excel tem p/ carregar sua planilha todo dia por conta deste aumento desnecessário de tamanho já não justifica esse procedimento.
Se vc quiser q o Excel acrescente fórmulas automaticamente sempre q vc inserir uma nova linha transforme sua matriz em uma tabela nomeada.

Se sua dúvida foi respondida marque o tópico como RESOLVIDO usando o botão com marca verde.

 
Postado : 24/01/2017 5:39 am