Cadastrar informaçõ...
 
Notifications
Clear all

Cadastrar informações com combobox e textbox

6 Posts
2 Usuários
0 Reactions
1,377 Visualizações
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Pessoal, boa tarde.

tenho um form que contem uma combobox que carrega os dados da minha plan1 (A1) e tenho 3 textbox que uso para inserir dados referente aos valores carregados na minha combobox, o que não consegui é...

1º Carregar o combobox com o nome e inserir valores nas textbox e salvar na linha específica dele na Plan1

2º Carregar os textbox com as informações já inseridas a partir do meu combobox e caso eu queira .. eu posso alterar e gravar novamente

Anexei o modelo de teste zipado caso alguém possa me ajudar.

:geek:

Welington Gonçalves

 
Postado : 02/10/2014 10:37 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Ao menos poste seu arquivo modelo! :roll:

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/10/2014 10:39 am
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Alexandre, esta postado.

mas segue novamente

Welington Gonçalves

 
Postado : 03/10/2014 9:06 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Considerando seu excemplo, apague todos os códigos dentro dele e cole esses...

Public myRow As Long
Private Sub cmbcliente_Click()
    myRow = Application.Match(Me.cmbcliente.Value, Sheets("Plan1").Range("A:A"), 0)
    Me.txtcidade.Value = Application.Index(Sheets("Plan1").Columns(2), myRow)
    Me.txtbairro.Value = Application.Index(Sheets("Plan1").Columns(3), myRow)
    Me.txttelefone.Value = Application.Index(Sheets("Plan1").Columns(4), myRow)
End Sub
Private Sub CommandButton1_Click()

    NameOrig = txtcidade.Value
     
     
    With Worksheets("Plan1").Range("A:A")
        .Cells(myRow, 2).Value = txtcidade.Value
        .Cells(myRow, 3).Value = txtbairro.Value
        .Cells(myRow, 4).Value = txttelefone.Value
    End With
    'Unload Me
End Sub
Private Sub UserForm_Initialize()
    For Each c In Worksheets("Plan1").Range("A2", Range("A65000").End(xlUp))
        Me.cmbcliente.AddItem c.Value
    Next c
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/10/2014 9:46 am
wfranca
(@wfranca)
Posts: 297
Reputable Member
Topic starter
 

Alexandre, ficou show... mas vamos supor que na minha planilha eu já tenha todas cidades na coluna "cidade" e não seria preciso inserir.. já que tenho a informação.. ao selecionar o nome conseguimos fazer ele carregar a informação já existente?

Welington Gonçalves

 
Postado : 09/10/2014 2:42 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Alexandre, ficou show...

, por favor click na mãozinha!

.. já que tenho a informação.. ao selecionar o nome conseguimos fazer ele carregar a informação já existente?

Baseado no seu primeiro post, eu fiz como solicitado!

Tu queres carregar o texbox sem a combinação feita, pois ela automaticamente receberá todos os dados da coluna correspondente.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2014 5:24 am