Notifications
Clear all

Problema com datas

5 Posts
3 Usuários
0 Reactions
812 Visualizações
(@palandi)
Posts: 2
New Member
Topic starter
 

Boa Tarde meus amigos
Sou quase totalmente leigo nessa parte de VB.
Vi alguns tutoriais na internet e um deles foi de um rapaz chamado Macoratti
ele postou uma planilha para cadastro de clientes e me interessou pela funcionalidade, porem, organizei ela para meu uso e não estou conseguindo fazer funcionar o que preciso...

Ex:
Cadastro um cliente, coloco todos os dados dele...
Quando volto na planilha não consigo filtrar pelo vencimento.... pode ser pelo filtro simples mesmo... porem ele não aparece como mostrar do mais antigo para o mais recente e sim como se fosse letras...
Quando formato as celulas ele atrapalha todinha a planilha... começa a inserir dados mais para baixo...
E Geralmente é o que mais necessito...
Alguma boa alma pode me dar uma luz no fim do tunel?

Segue link para baixar a planilha e verificarem o que digo!
http://www.4shared.com/file/Cv0ms1kv/Ca ... entes.html

 
Postado : 27/12/2013 12:03 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu cadastrei dos clientes, mas ainda sim eu não entendi, pois o filtro (excel), funcionou normal. :? :?

Att

 
Postado : 27/12/2013 12:31 pm
(@palandi)
Posts: 2
New Member
Topic starter
 

Clique na imagem para ver ela inteira....

Aqui está o meu problema...
Em vez de formatar como do mais antigo para o mais novo...
Ele quer que formate como letras...

Deu pra entender?

 
Postado : 30/12/2013 10:25 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não sei o que com sua instalação, mas eu não tive problemas, sinto muito. :(

Att

 
Postado : 30/12/2013 10:29 am
(@thiagokox)
Posts: 4
New Member
 

Bom dia Palandi!
Na verdade alguns aplicativos excel não reconhecem uma data como data, uma vez que você define-a como texto.
Existe uma solução no seu próprio excel de configuração, que não lembro como fazer. Mas tenho algo que possa resolver.
Faça o seguinte:
Tente Localizar o código abaixo, que se encontra no âmbito do Userform( se tiver dúvida da um dobleclick no seu "UserForm", que vai abrir a tela dos codigos em VBA).

Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
    With wsCadastroClientes
        .Cells(indice, colCodigo).Value = id
        .Cells(indice, colNome).Value = Me.txtNome.Text
        .Cells(indice, colEndereco).Value = Me.txtEndereco.Text
        .Cells(indice, colCidade).Value = Me.txtCidade.Text
        .Cells(indice, colEstado).Value = Me.txtEstado.Text
        .Cells(indice, colCep).Value = Me.txtCep.Text
        .Cells(indice, colTelefone).Value = Me.txtTelefone.Text
        .Cells(indice, colEmail).Value = Me.txtEmail.Text
    End With

    Call AtualizaRegistroAtual

Altere a seguinte linha:

        .Cells(indice, colNome).Value = Me.txtNome.Text

Por:

        .Cells(indice, colNome).Value = CDate(Me.txtNome.Text)

Explicação:

O que eu indiquei é que você converta o textbox, armazenado como texto, em data com o código CDate("Seu TextBox Aqui" ).
Testei e não deu erro.
Se tiver dúvidas respondo quando puder.

 
Postado : 03/01/2014 7:37 am