Este fórum está sendo desativado

[fabiohvsilva]

Boa tarde pessoal,

Tenho a seguinte duvida: Criei um formulario para adicionar dados na minha base de dados, mas o problema é que tenho montes de dados que tem o mesmo nome, mas estão em sitios diferentes. A minha duvida é como poderei adicionar algo a aquele formularia que no campo "nome" aparece os nomes que já usei. Será que fiz me entender?! lol

ABC

[Kledison]

Boa tarde,

fineza atentar para as regras,

Regra nº 2B:
Não utilize textos como "AJUDA", "HELP", "DÚVIDA", "URGENTE" ou similares nos títulos. O título deve ser condizente com o conteúdo da sua pergunta.

Gentileza trocar o título do tópico.

Com relação ao que precisa, poste um arquivo de exemplo pois facilita a compreensão.

Att

[fabiohvsilva]

Agradeço desde já a atenção. preciso de saber como posso adicionar preenchimento automatico num formulario, como aqui o google faz, nas paginas onde preenchemos algo.

[Kledison]

Fábio,

Poste um exemplo de seu arquivo, fica mais fácil para compreendermos.

[fabiohvsilva]

queria que no campo que diz "name" aparece automaticamente todos os nomes que ja tinham sido inseridos. Isto é, se tocar na letra L preenche-se automaticamente o nome luisa.

EDIT: usei esta imagem da net, porque nao sei se da para colocar o meu arquivo aqui.

[alexandrevba]

Boa tarde!!

Tente assim

Código: Selecionar todos

Dim oRange As Range

Dim iCharCount As Integer

Private Sub TextBox1_Change()
  Dim sAuto As String
  Dim sTemp As String

  Application.ScreenUpdating = False
  Application.EnableEvents = False

  sTemp = Me.TextBox1.Text
  oRange.Value = Me.TextBox1.Text
  sAuto = oRange.AutoComplete(Me.TextBox1.Text)

  If Len(sAuto) > 0 Then
    With Me.TextBox1
      .Text = sAuto
      .SelStart = Len(sTemp)
      .SelLength = Len(sAuto)
    End With
  End If

  Application.EnableEvents = True
  Application.ScreenUpdating = True

End Sub

Código: Selecionar todos

Private Sub TextBox1_Enter()
  Set oRange = Worksheets("Plan1").Range("A35536").End(xlUp).Offset(1, 0)
End Sub

Código: Selecionar todos

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  oRange.ClearContents
End Sub

Att

[fabiohvsilva]

Ok, agradeço, mas esse codigo copio para userform, correcto?

[alexandrevba]

Boa tarde!!

Dentro objeto de controle TextBox (dê dois clicks no seu textbox), cole o código.

obs: na hora de adaptar, certifique se que os nomes dos objetos e controles estão corretos.
Ex vc tem um TexBox com o nome TexBox1 ou txtJoana etc..

Att

[fabiohvsilva]

Será que alguem pode me mandar uma mensagem privada com o seu email, para que eu posso enviar o documento para me ajudarem neste caso?
Tenho que terminar este projecto até ao dia de amanha e estou estagnado aqui neste problema.

Cumps