Procurava uma pequena ajuda com codigo para fazer a pesquisa numa listview por data de inicio e data fim.
Nao sei o que se passa com o codigo,pois se colocar poucas linhas de dados na planilha , ele estava a funcionar, mas quando colei o codigo no meu ficheiro principal ele deixa de fazer a pesquisa correctamente
nao percebo se é o codigo ou dos dados da planilha.
Código: Selecionar todos
Private Sub CommandButton2_Click()
'Butao pesquisa por data inicial e data final'
On Error GoTo final
Dim Tmp As Long
Dim I As Long
Dim sDtIni As Date
Dim sDtFim As Date
Tmp = UserForm_Menu.ListView3.ListItems.Count
If TextBoxDataInicial = "" Then
MsgBox "Digite uma Data Valida", , "Data Inicial Obrigatória !!!"
TextBoxDataInicial.SetFocus
Exit Sub
ElseIf TextBoxDataFinal = "" Then
MsgBox "Digite uma Data Valida", , "Data Final Obrigatória !!!"
TextBoxDataFinal.SetFocus
Exit Sub
End If
sDtIni = TextBoxDataInicial.Value
sDtFim = TextBoxDataFinal.Value
For I = 1 To Tmp
With ListView3
If .ListItems(I).SubItems(3) < sDtIni Then
UserForm_Menu.ListView3.ListItems.Remove I
I = I - 1
Tmp = Tmp - 1
If I = Tmp Then Exit For
Tmp = UserForm_Menu.ListView3.ListItems.Count
End If
If .ListItems(I).SubItems(3) > sDtFim Then
UserForm_Menu.ListView3.ListItems.Remove I
I = I - 1
Tmp = Tmp - 1
If I = Tmp Then Exit For
Tmp = UserForm_Menu.ListView3.ListItems.Count
ElseIf .ListItems(I).SubItems(3) = sDtFim Then
Tmp = Tmp ' 1
If I = Tmp Then Exit For
Tmp = UserForm_Menu.ListView3.ListItems.Count
End If
End With
Next
final:
End Sub
Obrigado