Página 1 de 1
formulario com VBA
Enviado: 02 Mar 2016 às 12:36
por 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
Re: Duvida com VBA
Enviado: 02 Mar 2016 às 12:40
por 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
formulario com VBA
Enviado: 02 Mar 2016 às 12:46
por 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.
formulario com VBA
Enviado: 02 Mar 2016 às 12:54
por Kledison
Fábio,
Poste um exemplo de seu arquivo, fica mais fácil para compreendermos.
formulario com VBA
Enviado: 02 Mar 2016 às 13:07
por 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.
Re: formulario com VBA
Enviado: 02 Mar 2016 às 13:31
por alexandrevba
Boa tarde!!
Tente assim
Código: Selecionar todosDim 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 todosPrivate Sub TextBox1_Enter()
Set oRange = Worksheets("Plan1").Range("A35536").End(xlUp).Offset(1, 0)
End Sub
Código: Selecionar todosPrivate Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
oRange.ClearContents
End Sub
Att
formulario com VBA
Enviado: 02 Mar 2016 às 13:38
por fabiohvsilva
Ok, agradeço, mas esse codigo copio para userform, correcto?
Re: formulario com VBA
Enviado: 02 Mar 2016 às 15:04
por 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
Re: formulario com VBA
Enviado: 03 Mar 2016 às 07:09
por 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