Bom dia!!

Tente

Sub chama_dados()
Dim oneCell As Range
LR = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
With Listadados
    .ColumnCount = 4
    For Each oneCell In Worksheets("Sheet1").Range("A2:A" & LR).SpecialCells(xlCellTypeVisible)
        .AddItem CStr(oneCell.Value)
        .List(.ListCount - 1, 1) = oneCell.Offset(0, 1).Value
        .List(.ListCount - 1, 2) = oneCell.Offset(0, 2).Value
        .List(.ListCount - 1, 3) = oneCell.Offset(0, 3).Value
        .List(.ListCount - 1, 4) = oneCell.Offset(0, 4).Value
        .List(.ListCount - 1, 5) = oneCell.Offset(0, 5).Value
    Next oneCell
End With

End Sub

Bom dia alexandrevba então ja tentei fazer desta forma e temos 2 porem, 1 que ele duplica o resultado dentro do listbox e depois ele que por exmp: se dentro do listbox aparecer só os resultados "YES" mesmo quando clico nele ele seleciona um "NO" dentro da planilha.

Bom dia!!

Tente

Sub chama_dados()
Dim oneCell As Range
LR = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
With Listadados
    .ColumnCount = 4
    For Each oneCell In Worksheets("Sheet1").Range("A2:A" & LR).SpecialCells(xlCellTypeVisible)
        .AddItem CStr(oneCell.Value)
        .List(.ListCount - 1, 1) = oneCell.Offset(0, 1).Value
        .List(.ListCount - 1, 2) = oneCell.Offset(0, 2).Value
        .List(.ListCount - 1, 3) = oneCell.Offset(0, 3).Value
        .List(.ListCount - 1, 4) = oneCell.Offset(0, 4).Value
        .List(.ListCount - 1, 5) = oneCell.Offset(0, 5).Value
    Next oneCell
End With

End Sub

Boa tarde!!

Adiocione dentro de seu UserForm, essa linha

Private Sub UserForm_Initialize()
Sheets("Sheet1").Range("A1").AutoFilter Field:=5, Criteria1:="yes"
End Sub

Att

Isso mesmo Alexandre, eu acabei de faze essa mesma formula no excel mas mesmo assim valeu mesmo, o problema que eu to tendo agora e com os resultados sendo dublicados cada vez que eu mando abrir os "YES" e o problema de selecionar na planilha o resultado a linha que eu seleciono nem sempre é a mesma do listbox

Boa tarde!!

Adiocione dentro de seu UserForm, essa linha

Private Sub UserForm_Initialize()
Sheets("Sheet1").Range("A1").AutoFilter Field:=5, Criteria1:="yes"
End Sub

Att

Boa noite!!

Mas pelo que eu percebi, esse problema já diferente (outro botão do UserForm), da postagem.

Tente explicar de uma forma como se estivesse falando com uma pessoa que nunca usou sua planilha, para que o pessoal possa ajuda lo, de uma forma mais rápida.

Pois durante a semana, eu não consigo arrumar tempo, para ajuda as pessoas aqui no fórum!

Att

Que isso alexandre esquenta a cuca com isso não, pode deixa eu vo monta um novo teste aqui e explica-lo dentro do vba pra ficar mais facil o entendimento.ai eu irei postar ele aqui.

Boa noite!!

Mas pelo que eu percebi, esse problema já diferente (outro botão do UserForm), da postagem.

Tente explicar de uma forma como se estivesse falando com uma pessoa que nunca usou sua planilha, para que o pessoal possa ajuda lo, de uma forma mais rápida.

Pois durante a semana, eu não consigo arrumar tempo, para ajuda as pessoas aqui no fórum!

Att

regis147, veja se é isto o que pretende:

[]s