Fóruns
Microsoft Excel - 2...
Formulários
Ajuda com Vba formu...
 
Notifications
Clear all

Ajuda com Vba formulario

 
Formulários
7 Posts
2 Usuários
0 Reactions
2,498 Visualizações
RSS
 edgard.jr
(@edgard-jr)
Posts: 31
Eminent Member
Topic starter
 

Pessoal boa tarde,
estou desenvolvendo uma planilha para o meu moto taxi com ajuda de alguns amigos já está quase finalizada. pois bem,
como nao entendo muito de vba e macros preciso da ajuda de vcs.

nesse vba criei um campo de seleção chamado "Selecionar:" gostaria
de colocar nesse campo a opçao de selecionar "Origem"e "Destino" para que depois de ter feito a pesquisa do endereço
e selecionado origem ou destino desse para clicar no botao OK.
Nesse botao colocar duas regras;
1 opção se tiver selecionado origem, ao clicar em ok os dados seja repassado para a planilha no campo verde
2 opção se tiver selecionado Destino, ao clicar em ok os dados seja repassado para a planilha no campo vermelho

se alguem quiser ajudar agradeço

 
Postado : 24/11/2011 5:28 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

edgard, veja se é isto.

Qualquer duvida, retorne.

[]s

 
Postado : 24/11/2011 6:34 pm
 edgard.jr
(@edgard-jr)
Posts: 31
Eminent Member
Topic starter
 

Isso mesmo Mauro está perfeito

Só mais uma coisa dei uma inclementada na planilha, depois de selecionar a origem e for clickar em "OK" teria como o botão "ok" limpar os dados (TextBox1, TextBox2, TextBox3, TextBox4, TextBox5,txt_Procurar) e mudar automátcamente o ComboBox2 para "Destino" ? assim a pessoa nao se confunde na ordem de digitar as informações.

segue nova planilha

Valeu Maurão foi de grande ajuda até agora

 
Postado : 24/11/2011 11:42 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Edgard, aqui no serviço não temos o excel 2007, mas a rotina abaixo limpa os controles que citou e altera o valor no ComBobox, faça a chamada a mesma na última linha do Botõa "OK".

Private Sub LimpaControles()

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        txt_Procurar = ""
        
       ComboBox2.ListIndex = 1

End Sub

[]s

 
Postado : 25/11/2011 7:02 am
 edgard.jr
(@edgard-jr)
Posts: 31
Eminent Member
Topic starter
 

Mauro o codi é essse,


Private Sub CommandButton1_Click()

If ComboBox2.Value = "Origem" Then

If TextBox5.Text = "" Then
        MsgBox "Digite o número do endereço"
    Else
        sCriterioDaBusca = TextBox5.Text
    
    
    Range("i12").Value = TextBox3.Value
    Range("i13").Value = TextBox4.Value
    Range("n12").Value = TextBox1.Value
    Range("m13").Value = TextBox2.Value
    Range("l12").Value = TextBox5.Value
    
    End If
    
Else

If TextBox5.Text = "" Then
        MsgBox "Digite o número do endereço"
    Else
        sCriterioDaBusca = TextBox5.Text
    Range("i14").Value = TextBox3.Value
    Range("i15").Value = TextBox4.Value
    Range("n14").Value = TextBox1.Value
    Range("o15").Value = TextBox2.Value
    Range("l14").Value = TextBox5.Value

End If
End If
End Sub

agora so nao sei onde inserir o codigo que vc me mostrou

 
Postado : 25/11/2011 9:38 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!!

Neste caso creio eu que você deve ter um UserForm no mesmo crie um botão de comando para limpar e dentro dele use o código que o Mauro lhe passou..

 
Postado : 25/11/2011 9:45 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

edgard, se não me engano eu havia enviado o modelo com a rotina do Botão "OK" utilizando um Select Case, foram tantos arquivos que mexi ontem que posso estar enganado.

Mas de qualquer forma, adicione a rotina que indiquei "LimaparContgroles", creio que já deve ter copiado a mesma, e troque a rotina do CommandButton1 pela a abaixo :

Private Sub CommandButton1_Click()

    If ComboBox2.Value = "Origem" Then
    
        If TextBox5.Text = "" Then
            MsgBox "Digite o número do endereço"
            TextBox5.SetFocus
            Exit Sub
        Else
            sCriterioDaBusca = TextBox5.Text
        
            Range("i12").Value = TextBox3.Value
            Range("i13").Value = TextBox4.Value
            Range("n12").Value = TextBox1.Value
            Range("m13").Value = TextBox2.Value
            Range("l12").Value = TextBox5.Value
        
        End If
        
    Else
    
        If TextBox5.Text = "" Then
            MsgBox "Digite o número do endereço"
            TextBox5.SetFocus
            Exit Sub
            
        Else
            sCriterioDaBusca = TextBox5.Text
            
            Range("i14").Value = TextBox3.Value
            Range("i15").Value = TextBox4.Value
            Range("n14").Value = TextBox1.Value
            Range("o15").Value = TextBox2.Value
            Range("l14").Value = TextBox5.Value
    
    End If
    
    End If

    Call LimpaControles

End Sub

[]s

 
Postado : 25/11/2011 9:59 am
Forum Jump:
  Tópico Anterior
Próximo Tópico