Penso que não obtive respostas porque está confuso de entender, por isso coloquei um exemplo em anexo que deve facilitar o entendimento. Desde já agradeço qualquer ajuda.

Abraço

Seria Isso?

Olá Edgar,

Valeu pela intenção meu caro, mas minha necessidade é bem diferente disso.

Não quero apenas copiar os dados da Planilha 1.

Primeiramente no LIstbox (e não Listview) eu vou carregar horários de 08:00 às 18:00, com intervalo de 30 minutos.

Porém se na planilha 1 houver algum horário de, por exemplo 10:00, na linha do LISTBOX onde seria exibido 10:00, deverá ser exibido a linha da planilha que corresponde as 10:00, juntamente com o nome e o telefone.

Mas valeu pela boa vontade meu caro.

Abraço

Para nortear:

Private Sub CommandButton1_Click()
Dim lItem As Double
For lItem = 0 To ListBox1.ListCount - 1
MsgBox ListBox1.List(lItem, 0)
Next
End Sub

Opa,

Foi aqui. Simples assim:

Private Sub CommandButton2_Click()
   Dim i As Long
   Dim lItem As Double
   
 For lItem = 0 To ListBox1.ListCount - 1
   For i = 1 To Plan1.Range("A65536").End(xlUp).Row
       If Plan1.Range("A" & i).Value = ListBox1.List(lItem, 0) Then
          ListBox1.List(lItem, 1) = Plan1.Range("B" & i).Value
          ListBox1.List(lItem, 2) = Plan1.Range("C" & i).Value
       End If
   Next i
 Next
End Sub

Um detalhe, essencial, a coluna A deve ter formato texto. Segue o arquivo em anexo.

Ohh José !!!

Rapaz, a idéia é essa mesma. Brigadão !

A partir do seu exemplo comecei a criar o que eu pretendia (VIDE ANEXO). Que seria uma espécie de agenda com os horários ocupados e os horários disponíveis. Porém na adaptção que fiz notei que apenas o primeiro item foi filtrado, o restante não foi. Se puder me ajudar a descobrir a causa ficarei imensante grato.

Abraço

...Porém na adaptção que fiz notei que apenas o primeiro item foi filtrado, o restante não foi...

Na verdade nem entendi como o 1º item foi carregado. Você não executou a instrução que filtra os dados, tente no evento Initialize do form carregar a macro.

Call MECHAMA

Então José,

O MECHAMA é sujeira que deixei no formulário. Pois estava testando algumas coisas antes de pedir ajuda.

A adaptação que fiz está no módulo. Adaptei a rotina que você desenvolveu para que seja filtrada com 2 outra condições.

Veja a rotina:

Public Sub Busca_AT1(VALOR As String)

Dim i As Double
Dim Acum As Double
Dim VR As Date
Dim Plan As Worksheet
Dim ATEND As String

ATEND = Sheets("CAD").Range("A2")

Dim exemplo As String
exemplo = FORMAG.MES.Text

Set Plan = Sheets(exemplo)
Sheets(exemplo).Activate



   Dim ii As Long
   Dim lItem As Double
   i = 2
  
'AQUI EU ADAPTEI SUA ROTINA
 For lItem = 0 To FORMAG.ListBox1.ListCount - 1
   For ii = 2 To Plan.Range("A65536").End(xlUp).Row
       If Plan.Range("A" & ii).Value = FORMAG.ListBox1.List(lItem, 0) And Format(Range("B" & i).Value) = VALOR And Range("C" & i).Value = ATEND Then
          FORMAG.ListBox1.List(lItem, 1) = Range("C" & ii).Value
          FORMAG.ListBox1.List(lItem, 2) = Range("D" & ii).Value
          
       End If
        i = i + 1
   Next ii
  
 Next
 
End Sub

Na variável ii em alguns lugares vc utilizou apenas i, mas acredito que não seja apenas isso

Não entendi essa parte, meu cobrão.

And Format(Range("B" & ii).Value) = VALOR And Range("C" & i).Value = ATEND

Oque seria VALOR e ATEND??

Eita José... num é que deu ?

Eu até havia colocado aquelas variáveis diferentes propositalmente, achei que não funcionária se fossem as mesmas, e foi exatamente o contrário....rs.

Valeu José. Te devo essa.

Deve nada. Afinal é graças à essas ideias que aprendemos um pouco mais. Jamais imaginei uma situação dessas.

Estava verificando o seu arquivo e adaptei alguma coisa. No caso quando o form é ativado vai para plan do mês corresponde baseado na data atual. Sugiro que adapte para mudar de acordo com o mês clicado no calendário e a opção de nome seja por combobox.