Tomás Vásquez Fórum

Reinaldo

Tentarei responder até amanha

Reinaldo

mandei o email em MP

Reinaldo

Bem pela linha do cabeçalho aparentemente alguns titulos são duplos. Mas acredito que a linha de dados não são duplas. Então conte a segunda (ou terceira linha). Assim talvez de melhor resultado. Seria algo assim( segunda linha): Sub Encs() Dim Texto As String Dim Counter As Long, cLin As Long Dim m...

Reinaldo

Pode-se efetuar uma rotina para cada quatde de colunas no arquivo. Então, sem muita analise, e levando em conta que a linha 1 do txt e o cabecalho, e que a separação dos titulos e é espaço. Pode-se "ler" a quantidade de colunas e assim executar uma ou outra rotina. Sub Encs() 'Seleção dos ...

Reinaldo

Não é necessário enfatizar os termos pois entendi o que deseja, apenas comentei que não considero um erro, aparentemente foi idealizado para assim ser. Ao realizar uma PESQUISA com o campo de CIDADE SELECIONADO, os demais campos de pesquisa não são levados em conta na pesquisa. Nesse modelo, ao real...

Reinaldo

Acho que a sintaxe utilizada está equivocada
experimente:

Código: Selecionar todos

Private Sub TxtNome_AfterUpdate()
TxtNome = TextConverte(TxtNome.Text)
End Sub

Reinaldo

Bem não consigo adivinhar o que fez, post seu modelo, e como está utilizando

Reinaldo

Se colocou a função em um modulo diferente do modulo do formulário, e como está como private deve se referir a função com o nome do modulo (Ex. Modulo1.TextConverte(...)
ou mover a função para o modulo do formulário ou ainda substituir Private por Public

Reinaldo

Veja se lhe auxilia, uma UDF,copie para o modulo desejado, no evento afterupdate do text desejado utilize: TextConverte(suaText.text) Function TextConverte(Texto) As String 'by RMARCO Dim aArray As Variant, stem As Boolean Dim nText As String, sCon(11) As String 'Determina termos que não são maiuscu...

Reinaldo

Não consegui entender o que deseja?

Pesquisa resultou em 1537 ocorrências

Re: Desafio "Delimitar Aquivos"

Re: Desafio "Delimitar Aquivos"

Re: Desafio "Delimitar Aquivos"

Re: Desafio "Delimitar Aquivos"

Re: Pequena falha no Modelo de Aplicativo de Cadastro em VBA

Re: Primeira letra Maiúscula exceto "de" "da" das" "do"

Re: Primeira letra Maiúscula exceto "de" "da" das" "do"

Re: Primeira letra Maiúscula exceto "de" "da" das" "do"

Re: Primeira letra Maiúscula exceto "de" "da" das" "do"

Re: Erro Public Function Id()