Este fórum está sendo desativado

[rit]

Bom dia preciso de um código que faça um combobox carregar outro combobox tipoum procv

alguem tem algo parecido com isso, de forma simples?

[Jimmy]

Bom dia Rit.

O problema deve ser muito melhor detalhado, com alguns exemplo, dizendo o que quer, quando, onde e porque, e uma planilha anexa para possamos seguir sua explicação.

Com o pouco que deu acho difícil ajudar.

Jimmy San Juan

[rit]

Preciso de algo que faça exatamente o que isso faz, porem na minha planilha existem espaços em branco e bem mais linhas e modelos então se repetem nos dois combobox, não é igual esse que para a linha corola temos alguns carros..

No meu caso teremos dois corolas e dois carros as vezes mais... (é apenas um exemplo)

Se alguem conseguir me ajudar ficaria agradecido.


Obrigado!

[rit]

Alguem pra dar uma luz :p??

[Jimmy]

Olá Rit,

Com o cenário completo fica mais fácil pra gente te ajudar. Se você mandar sua planilha, além de entendermos melhor o que quer dizer, não precisaremos criar uma planilha de testes do nada, inventando vários nomes, espaços em branco, etc, o que dá trabalho. Mesmo que fizéssemos isso, provavelmente , sua próxima mensagem seria "não é bem isso que preciso".

Sempre deve-se colocar o MÁXIMO de informações possível!!Com elas nosso trabalho fica mais fácil e mais assertivo.

[rit]

é que na verdade eu não posso colocar a planilha real aqui, por isso usei esse exemplo que achei aqui no forum.

é exatamente aquilo que preciso apenas com mais dados, gostaria apenas de saber como ignorar linhas em branco e colocar a seleção da combobox em um filtro..

Hoje meu código esta da seguinte maneira:

Eu consigo usar a combobox1 preenchida com meus dados para fazer o filtro agora queria utilizar a combobox dois para complementar o filtro.

Um exemplo basico é o seguinte imagina que tenhamos FIAT UNO 1.0 e FIAT UNO 1.4 preciso ter como diferenciar isso.. tipo dois filtros FIAT UNO e 1.4 ou FIAT UNO e 1.0 entende?

Não posso por minha planilha aqui..

Código: Selecionar todos

Private Sub UserForm_Initialize()
Dim OCOLLECTION As New Collection
Dim VARVALUE As Variant
Dim I As Long


On Error Resume Next
For Each VARVALUE In Plan1.Range("S2:S" & Plan1.Range("S65536").End(xlUp).Row)
OCOLLECTION.Add VARVALUE, VARVALUE

Next

For I = 1 To OCOLLECTION.Count
ComboBox1.AddItem OCOLLECTION.Item(I)

Next I

End Sub


Private Sub ComboBox1_Change() 'ao preencher(digitar) no objeto Combobox1
'Cells(ComboBox1.ListIndex + 2, 1).EntireRow.Select   'selecionando a linha correspondente na folha de planiha
'Set Area = Selection
'Numero_Linha = Area.Row

Dim nextMonth As Variant
Dim Forn As String

If ComboBox1 = "" Then
Unload Me
Else

Sheets("Lista de Faltas").Select

'Forn = "ComboBox1"

nextMonth = DateAdd("m", 1, Now)
    nextMonth = DateSerial(Year(nextMonth), Month(nextMonth), 1)
    
    
    ActiveSheet.Range("$A$1:$AE$2876").AutoFilter Field:=2, Criteria1:= _
        "Falta"
  
    
   ActiveSheet.Range("$A$1:$AE$2876").AutoFilter Field:=19, Criteria1:= _
        ComboBox1.Text
    'ActiveSheet.ListObjects("_ES0659").Range.AutoFilter Field:=20, Criteria1:= _
        "Atrasado"
        
        
        ActiveSheet.Range("$A$1:$AE$2876").AutoFilter Field:=20, Criteria1:="<" & Format(nextMonth, "mm/dd/yyyy"), Operator:=xlAnd

 Range("C1:T19887").Select
 Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
End If

'MsgBox "Selecionou a linha: [" & Numero_Linha & "]" & "  Selecionou ítem..: [ " & ComboBox1.Value & " ]", _
vbInformation, "Saberexcel - o site das Macros"
End Sub