Excel Filtrar listbox baseado na Range

[Luciana Goes]

Pessoal,

Me deparei com uma dúvida.

 

Tenho dois formulários.

Quando clico nas células B4 à B15 abre o form1. Quando clico nas células C4 à C15 abre o form2.

Até aí tudo certo.

 

Será que tem alguma forma do form2 abrir somente os produtos baseados no grupo que inseri na coluna B?

Por exemplo:

Faz parte do "Grupo C": água, refri e cerveja. Então se eu inserir na coluna B o grupo C, então o form2 só abriria essas 3 opções e não a lista toda como está atualmente.

Alguém consegue me ajudar?

CADASTRO.zip

[Midori]

@Luciana Goes Os produtos que devem aparecer no Form1 são do grupo que estão na mesma linha? No exemplo da sua planilha, se clicar na célula C5 então devem aparecer os produtos do grupo D?

[Luciana Goes]

@Midori Isso mesmo. Se eu clicar na célula B5, por exemplo e escolher o grupo B, então quando eu clicar na célula C5 deverá aparecer no listbox do form2 somente os produtos do grupo B.

[Midori]

@Luciana Goes Veja se assim resolve,

Private Sub UserForm_Initialize()
    Dim Planilha As Worksheet
    Dim Area    As Range
    Dim Produto As String
    Dim Linha   As Long
    Dim Grupo   As String
    
    Set Planilha = ThisWorkbook.Sheets("PRODUTOS")
    Linha = 2
    
    While Planilha.Cells(Linha, 1).Value <> ""
        Produto = Planilha.Cells(Linha, 2).Value
        Grupo = Planilha.Cells(Linha, 1).Value
        
        If ActiveCell.Offset(0, -1) = Grupo Then
            If Linha > 1 Then
                Set Area = Planilha.Range("B1:B" & Linha - 1).Find( _
                    What:=Produto, LookIn:=xlValues, LookAt:=xlWhole)
            End If
        
            If Area Is Nothing Then
                Call ListBox1.AddItem(Produto)
            End If
        End If
        Linha = Linha + 1
    Wend
End Sub

 

[Luciana Goes]

@Midori Resolveu! Perfeito. Exatamente o que preciso. Muitíssimo obrigada! você já me ajudou várias vezes.