Boa tarde NERI S,

Fica um pouco difícil analisar dessa maneira, mas aparentemente não vejo nada de errado no código...
Tenta remover essa linha:

If Me.ListView1.ListItems(n).ListSubItems(4) = "" Then Exit For

Qualquer coisa da o grito.
Abraço

Bernardo
fiz uns testes trocando a palavra que ele nao achava por outra tipo "teste" e ele acha certo...
Deve ter algo na palavra.... será que é por repetir tipo assim:

Tem:
Periculosidade
e tem:
Periculosidade e ruido

Será que ele se perde por repetir?

Pode ser isso sim...
Se o "periculosidade" estiver depois ele vai pular... Mas se o "perixulosidade e ruido" estiver depois não...

Estou no celular agora... Mas tenta asssim:

If InStr("|" & texto & "|" Me.ListView1.ListItems(n).ListSubItems(4)) = 0 Then

Qualquer coisa da o grito.
Abraço

Pelos testes que fiz realmente deve ser isto.

Com a tua linha nao consegui resolver...
Vou fazendo testes. Se tiver mais uma sugestão, pode postar.

Abraço

Trocou a sua linha pela minha?
Não funcionou?
Aconteceu o que?

Bom dia Bernardo
deixei assim, abaixo: (não deu resultado, simplesmente não mostra).

Sub Preenchercbopericia()

Dim n As Long, texto As Variant
Dim i As Integer
Me.cbopericia.Clear

For n = 1 To ListView1.ListItems.Count
If Me.ListView1.ListItems(n).ListSubItems(4) = "" Then Exit For
If InStr("|" & texto & "|", Me.ListView1.ListItems(n).ListSubItems(4)) = 0 Then
texto = texto & "|" & Me.ListView1.ListItems(n).ListSubItems(4)
End If
Next
texto = Split(texto, "|")

For i = 1 To UBound(texto)
cbopericia.AddItem texto(i)
Next

Call Ordenarcbopericia

End Sub

Puts...
Inverti a ordem ali... Deixa assim:

    Sub Preenchercbopericia()

            Dim n As Long, texto As Variant
            Dim i As Integer
            Me.cbopericia.Clear
           
            For n = 1 To ListView1.ListItems.Count
                If Me.ListView1.ListItems(n).ListSubItems(4) = "" Then Exit For
                If InStr(texto, "|" & Me.ListView1.ListItems(n).ListSubItems(4) & "|") = 0 Then
                    texto = texto & "|" & Me.ListView1.ListItems(n).ListSubItems(4) '& "|"
                End If
            Next
                texto = Split(texto, "|")
           
            For i = 1 To UBound(texto)
                cbopericia.AddItem texto(i)
            Next
           
            Call Ordenarcbopericia
           
    End Sub

Qualquer coisa da o grito.
Abraço

Agora funciona, mas com um pequeno detalhe:

Cada tipo ele repete 2 vezes. Veja no anexo.

Estranho, mas nem todos se repetem. Tenta assim:

        Sub Preenchercbopericia()

                Dim n As Long, texto As Variant
                Dim i As Integer
                Me.cbopericia.Clear
               
                For n = 1 To ListView1.ListItems.Count
                    If Me.ListView1.ListItems(n).ListSubItems(4) = "" Then Exit For
                    If InStr(texto, "|" & trim(Me.ListView1.ListItems(n).ListSubItems(4)) & "|") = 0 Then
                        texto = texto & "|" & trim(Me.ListView1.ListItems(n).ListSubItems(4)) '& "|"
                    End If
                Next
                    texto = Split(texto, "|")
               
                For i = 1 To UBound(texto)
                    cbopericia.AddItem texto(i)
                Next
               
                Call Ordenarcbopericia
               
        End Sub

Bernardo,
ainda continua repetindo que nem antes..

Tenta assim:

Option Explicit

Sub Preenchercbopericia()
Dim texto   As Variant
Dim n       As Long
Dim i       As Integer

    Me.cbopericia.Clear
    texto = "|"
    
    For n = 1 To ListView1.ListItems.Count - 1
        If InStr(texto, "|" & Trim(Me.ListView1.ListItems(n).ListSubItems(4)) & "|") = 0 Then
            texto = texto & Trim(Me.ListView1.ListItems(n).ListSubItems(4)) & "|"
        End If
    Next
    
    texto = Split(texto, "|")
    
    For i = 1 To UBound(texto)
        cbopericia.AddItem texto(i)
    Next
    
    Call Ordenarcbopericia
       
End Sub

Bernardo,
Parece que está funcionando, pelo menos mostrou certo.

Poxa, desculpe tirar seu tempo. Muito Obrigado pela ajuda.
Abraço