[Resolvido] Preencher Listbox com as linhas do intervalo de horas.

Sub Insere_Dados_ListBox()

Dim guia As Worksheet, ran As Range

Dim linha As Integer, linhalistbox As Integer, lin As Integer

Dim v As Date, v2 As Date



Set guia = Worksheets("Planilha1&quot

Set ran = Worksheets("Planilha1&quot.Range("I2&quot



v = "07:00"

v2 = Format(TimeValue(v) + 2 / 24, "hh:mm&quot



linhalistbox = 0

lin = 2



With guia

With UserForm1.ListBox1

Do While ran.Value <> ""

If TimeValue(ran.Value) >= TimeValue(v) And TimeValue(ran.Value) <= TimeValue(v2) Then

ran.Select

lin = ActiveCell.Row

With UserForm1.ListBox1

.AddItem

.List(linhalistbox, 0) = guia.Cells(lin, 1)

.List(linhalistbox, 1) = guia.Cells(lin, 2)

.List(linhalistbox, 2) = guia.Cells(lin, 6)

.List(linhalistbox, 3) = guia.Cells(lin, 7)

End With

linhalistbox = linhalistbox + 1

lin = lin + 1

End If



Set ran = ran.Offset(1, 0)

ran.Select

Loop

End With

End With

End Sub

Dim ran2 As Range

Dim sDate As String



Set ran2 = Worksheets("Planilha1&quot.Range("F2&quot



sDate = Date



'este trecho do código é colocado depois do "Do While.." e antes do 1º "If.."

If ran2.Text = sDate Then



'este trecho abaixo é colocado depois "lin = lin + 1" e "End If"

ElseIf ran.Value = "" And ran2.Value = "" Then

Exit Sub

End If





'este "Set.." é colocado depois do "Set ran = ..."

Set ran2 = ran2.Offset(1, 0)



'acrescente no fim de tudo este "Set ran2.."

Set ran2 = Nothing