Altere o codigo conforme abaixo:
Private Sub CommandButton1_Click()
j = CDate(TextBox1.Value)
k = CDate(TextBox2.Value)
'determina qtas linhas na coluna k estão preenchidas
f = Sheets("Plan1").Range("R65536").End(xlUp).Row
cont = 0
With Me.ListBox1
.Clear
.ColumnCount = 2
MyList = Sheets("Plan1").Range("R1:S" & f) 'determina o range de procura
For i = 1 To UBound(MyList)
If Sheets("Plan1").Cells(i, 18) >= j And Sheets("Plan1").Cells(i, 18) <= k Then 'compara as datas da range com as dos textbox
n = Range("E" & i).Value
m = Range("S" & i)
ListBox1.AddItem n
ListBox1.List(cont, 1) = m
cont = cont + 1
End If
Next i
.ListIndex = 0
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/08/2012 6:00 am