formulário de pesquisa vba

[Luciano Ghinzelli]

Olá,
Tomás, arquivo funcionando perfeitamente... Agora entro na fase de ajustes... aparência, coisa e tal...

Agradeço a ajuda...

Será, muito complicado, inserir formatação nos TextBox?
Veja um exemplo:

CNPJ: 00.000.000/0000-00
Fone: (00)0000 00000
Insc Estadual: 00/0000000
CEP: 00.0000-000

No momento apenas tenho essa formatação nas células da planilhia. Seria interessante que essa formatação, para fins de vizualização, tbm seja assumida nos textbox.

Até mais,

Luciano Ghinzelli

[webmaster]

Luciano,

Use a função format. Por exemplo:

Código: Selecionar todos

TextBoxCPF.Text = Tormat(cpf, "###.###.###-##")

Mais informações do próprio Help do VBA:

Exemplo da função Format
Este exemplo mostra os diversos usos da função Format para formatar valores, usando formatos nomeados e formatos definidos pelo usuário. Para o separador de data (/), separador de hora (:) e literal AM/ PM, o resultado real formatado, exibido pelo sistema, depende das configurações da localidade em que o código está sendo executado. Ao exibir datas e horas no ambiente de desenvolvimento, são usados os formatos de hora e data abreviados da localidade do código. Quando exibidas pelo código em execução, são usados os formatos de hora e data abreviados da localidade do sistema, que podem ser diferentes da localidade do código. Neste exemplo, foi considerado o inglês dos Estados Unidos.

MyTime e MyDate são exibidas no ambiente de desenvolvimento, usando as configurações de hora e data abreviadas do sistema atual.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' Retorna a hora atual do sistema no formato longo de hora definido pelo sistema.
MyStr = Format(Time, "Hora longa")

' Retorna a data do sistema atual no formato longo de data definido pelo sistema.
MyStr = Format(Date, "Data longa")

MyStr = Format(MyTime, "hs") ' Retorna "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Retorna "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' Retorna "Quarta-feira,
' Jan 27 1993".
' Se o formato não for especificado, será retornada uma seqüência de caracteres.
MyStr = Format(23) ' Retorna "23".

' Formatos definidos pelo usuário.
MyStr = Format(5459.4, "##,##0.00") ' Retorna "5.459,40".
MyStr = Format(334.9, "###0.00") ' Retorna "334,90".
MyStr = Format(5, "0.00%") ' Retorna "500,00%".
MyStr = Format("OLÁ", "<") ' Retorna "olá".
MyStr = Format("Isto é tudo", ">") ' Retorna "ISTO É TUDO".

Abraços

[Luciano Ghinzelli]

Olá,
Tomás, a formatação do ListBox funcionou perfeitamente com este código:

Exemplo:
Formatação CNPJ: Assume quando vc passa para um outro campo.

Private Sub txtCNPJ_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtCNPJ.Text = Format(txtCNPJ.Text, "00\.000\.000\/0000\-00")
End Sub

E no ListBox...
Em que ponto escrevo o código, no modelo que vc elaborou, para que a coluna "x" assuma a formatação, por exemplo: (xx)xxxx xxxx, no caso telefone?

Até mais,

Luciano

[webmaster]

Luciano,

Dê uma boa olhada neste tópico:

viewtopic.php?f=5&t=35&start=10#p226

Abraços

[Silmar Carvalho]

Silmar,

Consegui fazer a planilha funcionar no Excel 97. Segue em anexo para dar uma olhada.

Abraços

Tomaz ,
Desculpe a demora no retorno.

Funcionou perfeitamente parabés, muito bom mesmo, muito grato, diga estou colocando um foto no cadastro consigo incluir e excluir , porem quando roda a ficha de cadastro a foto não muda, fica uma foto para todos os cadastrados.
tens como ajudar.

Abraços

silmar

[webmaster]

Silmar,

Não me recordo do contexto da foto. Pode dar mais detalhes? Se for o caso, abra um outro tópico para tratar do assunto.

Abraços