Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Ajuda com validação de dados condicionada e procv

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
Ir à página : Anterior  1, 2, 3  Seguinte
AutorMensagem
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qua Out 01, 2014 2:51 pm

Bom dia.

Deu para perceber o que pretendo?


Obrigado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qua Out 01, 2014 3:10 pm

Bom dia!!

Eu não tenho permissão de baixar e postar arquivos em sites de hospedagens, não tenho acesso ao meu email particular, no meu trampo, após sair do trampo, vou para a faculdade e chego muito tarde em casa (salvo quando não tem aula, ou final de semana).

Faça o seguinte, abra um arquivo novo, insira um userforme, adicione 3 comboboxs (cbx1, cbx2, cbx3).

Cole o código dentro.
Código:
Option Explicit
 
Private Sub UserForm_Initialize()
    AddFruit Range([A1], [A1].End(xlDown))
    cbx1.ListIndex = 0
End Sub
 
Sub AddFruit(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        On Error Resume Next
        d.Add cel.Text, cel.Text
    Next
    cbx1.List() = d.items
End Sub
 
 '********************************
Private Sub cbx1_Change()
    cbx2.Clear
    AddType Range([B1], [B1].End(xlDown))
    cbx2.ListIndex = 0
    cbx3.ListIndex = 0
End Sub
 
Sub AddType(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        If cel.Offset(, -1) = cbx1 Then
            On Error Resume Next
            d.Add cel.Text, cel.Text
        End If
    Next
    cbx2.List() = d.items
End Sub
 
 '********************************
Private Sub cbx2_Change()
    cbx3.Clear
    AddMake Range([C1], [C1].End(xlDown))
    If cbx2 <> "" Then cbx3.ListIndex = 0
End Sub
 
Sub AddMake(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        If cel.Offset(, -1) = cbx2 Then
            On Error Resume Next
            d.Add cel.Text, cel.Text
        End If
    Next
    cbx3.List() = d.items
End Sub
Considere essa lista em colunaA, B, C.
Citação :
Local Familia Equipmento
leste Tip1 Alicates 
leste Tip1 Calibre de raios, lâminas e roscas
leste Tip1 Chave de fenda 
leste Tip1 Chave de fenda 
leste Tip2 Cabo de força 
leste Tip3 Catraca 
leste Tip3 Chave em L 
norte Tip1 Chave estrela 
norte Tip1 Chave Torx 
norte Tip1 Chave Torx 
norte Tip1 Cocinetes para rocas externas 
norte Tip2 Chave hexagonais (Allen) 
norte Tip2 Desandador 
norte Tip3 Chaves combinadas 
sul Tip1 Goniômetro para torque ângulo 
sul Tip1 Manômetros 
sul Tip1 Paquímetros 
sul Tip2 Manivela 
sul Tip2 Micrometros 
sul Tip3 Macho para roscas internas 
sul Tip3 Martelos em geral 
oeste Tip1 Manômetros 
oeste Tip1 Soquetes 
oeste Tip1 Torquímetros 
oeste Tip2 Alicates 
oeste Tip3 Chave de Boca 
oeste Tip3 Chave estrela 
oeste Tip3 Chave estrela 
faça os testes!

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qua Out 01, 2014 5:56 pm

Já fiz alguns testes, mas ainda não consegui o que pretendo, partindo do exemplo que deste, se eu escolher o Norte, e tip1, nos equipamento aparece-me todos os equipamentos tip1 independentemente do seu local.

Ou seja o local não condiciona a escolha do equipamento.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qua Out 01, 2014 5:59 pm

Bom dia!!

Eu vou tirar um tempo e tentar ajustar esse detalhe.... scratch
study

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qua Out 01, 2014 6:05 pm

Obrigado mesmo.

Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qua Out 01, 2014 6:06 pm

Caso o anexo não esteja disponível manda mens privada que recebo notificação no email.


Mais uma vez obrigado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qua Out 01, 2014 10:04 pm

Boa tarde!!

Veja se ajuda.
Código:

Option Explicit
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub

Código:
Private Sub UserForm_Initialize()
    AddMake Range([A2], [A2].End(xlDown))
End Sub

Código:
Sub AddMake(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        On Error Resume Next
        d.Add cel.Text, cel.Text
    Next
    ComboBox1.List() = d.items
End Sub

Código:
Private Sub ComboBox1_Change()
    ComboBox2.Clear
  
    AddModel Range([B2], [B2].End(xlDown))
End Sub
Sub AddModel(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        If cel.Offset(, -1) = ComboBox1.Text Then
            On Error Resume Next
            d.Add cel.Text, cel.Text
        End If
    Next
    ComboBox2.List() = d.items
End Sub

Código:
Private Sub ComboBox2_Change()
    ComboBox3.Clear
    AddYear Range([C2], [C2].End(xlDown))
End Sub

Código:
Sub AddYear(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        If cel.Offset(, -1) = ComboBox2.Text And cel.Offset(, -2).Text = ComboBox1.Text Then
            On Error Resume Next
            d.Add cel.Text, cel.Text
        End If
    Next
    ComboBox3.List() = d.items
End Sub

Código:
Private Sub ComboBox3_Change()
    ComboBox4.Clear
    AddExtras Range([D2], [D2].End(xlDown))
End Sub

Código:
Sub AddExtras(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        If cel.Offset(, -1) = ComboBox3.Text And cel.Offset(, -2) = ComboBox2.Text _
            And cel.Offset(, -3) = ComboBox1.Text Then
            On Error Resume Next
            d.Add cel.Text, cel.Text
        End If
    Next
    ComboBox4.List() = d.items
End Sub

Código:
Private Sub ComboBox4_Change()
    ComboBox5.Clear
    AddValue Range([E2], [E2].End(xlDown))
End Sub

Código:
Sub AddValue(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
    If cel.Offset(, -1) = ComboBox4.Text And cel.Offset(, -2) = ComboBox3.Text _
        And cel.Offset(, -3) = ComboBox2.Text And cel.Offset(, -4) = ComboBox1.Text Then
            On Error Resume Next
            d.Add cel.Text, cel.Text
        End If
    Next
    ComboBox5.List() = d.items
    ListBox1.List() = d.items
    End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 03, 2014 12:11 pm

Bom dia.

Não percebi no codigo o facto de teres combbox 4 e 5?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 03, 2014 1:54 pm

Bom dia!!

Então retire as!!!!!!


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 03, 2014 3:35 pm

Retirando os codigos da combbox 4 e 5, não funciona...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 03, 2014 3:45 pm

Bom dia!!

tem como eu te mandar um arquivo via email?

me passe seu email via MP

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 03, 2014 4:05 pm

Bom dia!!

faça assim..

Em um arquivo em branco, adicione o Userform, mais 3 combobox.
nome do fórmulario:UserForm1
nome da combobox1:cbx1
nome da combobox2:cbx2
nome da combobox3:cbx3
Em uma guia do excel (Plan1), insira os dados.
Citação :
Local Familia Equipmento
leste Tip1 Alicates 
leste Tip1 Calibre de raios, lâminas e roscas
leste Tip1 Chave de fenda 
leste Tip1 Chave de fenda 
leste Tip2 Cabo de força 
leste Tip3 Catraca 
leste Tip3 Chave em L 
norte Tip1 Chave estrela 
norte Tip1 Chave Torx 
norte Tip1 Chave Torx 
norte Tip1 Cocinetes para rocas externas 
norte Tip2 Chave hexagonais (Allen) 
norte Tip2 Desandador 
norte Tip3 Chaves combinadas 
sul Tip1 Goniômetro para torque ângulo 
sul Tip1 Manômetros 
sul Tip1 Paquímetros 
sul Tip2 Manivela 
sul Tip2 Micrometros 
sul Tip3 Macho para roscas internas 
sul Tip3 Martelos em geral 
oeste Tip1 Manômetros 
oeste Tip1 Soquetes 
oeste Tip1 Torquímetros 
oeste Tip2 Alicates 
oeste Tip3 Chave de Boca 
oeste Tip3 Chave estrela 
oeste Tip3 Chave estrela 

Código....
Código:
Option Explicit
 
Private Sub UserForm_Initialize()
    AddLocal Range([A1], [A1].End(xlDown))
    cbx1.ListIndex = 0
End Sub
 
Sub AddLocal(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        On Error Resume Next
        d.Add cel.Text, cel.Text
    Next
    cbx1.List() = d.items
End Sub
 
  '***Combobox1 e subrotina***
Private Sub cbx1_Change()
    cbx2.Clear
    AddFamilia Range([B1], [B1].End(xlDown))
    cbx2.ListIndex = 0
    cbx3.ListIndex = 0
End Sub
 
Sub AddFamilia(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        If cel.Offset(, -1) = cbx1 Then
            On Error Resume Next
            d.Add cel.Text, cel.Text
        End If
    Next
    cbx2.List() = d.items
End Sub
 
 '***Combobox2 e subrotina***
Private Sub cbx2_Change()
    cbx3.Clear
    AddEquipamento Range([C1], [C1].End(xlDown))
    If cbx2 <> "" Then cbx3.ListIndex = 0
End Sub
Sub AddEquipamento(Data As Range)
    Dim d, cel As Range
    Set d = CreateObject("Scripting.Dictionary")
    For Each cel In Data
        If cel.Offset(, -1) = cbx2 And cel.Offset(0, -2) = cbx1 Then
            On Error Resume Next
            d.Add cel.Text, cel.Text
        End If
    Next
    cbx3.List() = d.items
End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 03, 2014 4:21 pm

Ja enviei mens privada com o email.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 03, 2014 4:27 pm

Bom dia!!
Com o exemplo que eu postei, você pode adaptar!

Veja seu email!!


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 03, 2014 7:06 pm

Boa tarde!!

Por gentileza, poste as dúvidas no fórum!

Eu postei algo próximo do que deseja em:
http://www.planilhando.com.br/forum/viewtopic.php?f=23&t=13092


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Seg Out 06, 2014 11:39 am

Pode postar aqui o exemplo que serviu de base para fazer o codigo, não tenho acesso a ver os anexos.

Obrigado
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Seg Out 06, 2014 2:44 pm

Já tentei registar-me no forum, mas não consigo, não recebo o email de activação..

Daí pedir, se possível enviar o anexo que serviu de base para tirar a duvida.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Não estou a conseguir   Qui Out 09, 2014 1:59 pm

Pegando no exemplo que me aconselhou não estou a conseguir, pois não sei como condicionar o preenchimento das TEXTBOX com o que escolho nas 3 COMBOBOX.

Segue em anexo o modelo como se encontra.
https://w*w*w.sen*ds*pace.*com/file/53yphh
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qui Out 09, 2014 2:01 pm

Apesar de ter tentado de varias formas não consegui preencher as TEXTBOX

Se poder ajudar a preencher só uma condicionada pela 3 escolhas que faço nas CombBox, que essas já consegui por a funcionar...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Qui Out 09, 2014 10:45 pm

Boa tarde!

Bruno, aqui no trampo eu tempo mais tempo, mas eu não consigo baixar o arquivo, faça me lembra no final de semana, minhas chances são maiores.

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 10, 2014 2:39 pm

OK.

Obrigado.

Amanha volto a postar aqui o arquivo para dares uma vista de olhos.

Obrigado mais uma vez.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Seg Out 13, 2014 11:25 am

Bom dia.

Lamentavelmente estive sem computador no fim de semana, e não consegui enviar novamente o arquivo.

Quando poder, eu volto a postar aqui o arquivo.

Obrigado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Seg Out 13, 2014 2:38 pm

Quando poder baixar o arquivo eu volto a por aqui.

É só avisar-me.

Mais uma vez obrigado.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
BrunoReis



Mensagens : 42
Data de inscrição : 24/07/2014
Localização : Coimbra

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Sex Out 17, 2014 6:44 pm

É possível dar uma vista de olhos este fim de semana?


Deixo aqui o arquivo

https://*w*w*w*.send*space.*com*/file*/xca0oa


Obrigado
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Dom Out 19, 2014 2:41 am

Boa noite!!!!

Eu fiz de uma forma bem primitiva...
https://www.sendspace.com/file/g1cere


Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Ajuda com validação de dados condicionada e procv   Hoje à(s) 10:14 pm

Voltar ao Topo Ir em baixo
 
Ajuda com validação de dados condicionada e procv
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 2 de 3Ir à página : Anterior  1, 2, 3  Seguinte
 Tópicos similares
-
» Ajuda Ndrive
» ajuda ajuda kies
» [Ajuda]Como fazer sistema de dinheiro "money"
» Como criar base de dados?
» Como inserir dados no MEIO de um arquivo txt

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Intermediário :: Excel Intermediário-
Ir para: