Excel VBA - Listbox com valores repetidos

[Luciana Goes]

Pessoal, não estou encontrando o erro neste código.

Percebi que o código está carregando valores repetidos. 

Alguém consegue me ajudar?

 

CADASTRO.zip

[Midori]

@Luciana Goes Os loops é só para tirar os repetidos? Se for isso acho mais fácil fazer uma busca com Find antes de adicionar o elemento na list, p.ex,

 

Sub PreencheListaTipoMaterial()
    Dim Planilha As Worksheet
    Dim Area    As Range
    Dim Produto As String
    Dim Linha   As Long
    
    Set Planilha = ThisWorkbook.Sheets("PRODUTOS")
    Linha = 1
    
    While Planilha.Cells(Linha, 1).Value <> ""
        Produto = Planilha.Cells(Linha, 1).Value
        
        If Linha > 1 Then
            Set Area = Planilha.Range("A1:A" & Linha - 1).Find( _
                What:=Produto, LookIn:=xlValues, LookAt:=xlWhole)
        End If
        
        If Area Is Nothing Then
            Call ListBox1.AddItem(Produto)
        End If
        Linha = Linha + 1
    Wend
End Sub

 

[Luciana Goes]

@Midori Ótimo! Deu certo!

Muito obrigada!