estou a precisar de uma ajuda, pois nao estou a conseguir terminar este codigo.
tenho um formulario de pesquisa que esta a pesquisar por datas(data de inicio e data de fim) e depois com esse resultado, que aparece numa listview, consigo colocar uma combobox com valores(neste momento sao matriculas dos carros) e ele elimina os resultados anteriores ficando na listview oas dados referentes á matricula nas datas indicadas.
o codigo está feito para se a combobox estiver vazia ele consegue fazer a pesquisa atraves dos dados que estao nas textboxs das datas, mas eu queria adapta-lo, para poder so colocar o valor na combobox(matricula carro) e ele fazer a pesquisa na mesma, mas ele não esta a dar por que diz que as textboxs datas estao vazias.
já tentei colocar " if txt_fechaini or txt_fechafin <>"" then
goto fim (e colocar o "fim", onde começa o codigo que pesquisa por as matriculas, mas esta sempre a dar erro.
Podiam me dar uma ajuda para perceber onde posso adaptar o codigo.
Obrigado
Código: Selecionar todos
Private Sub Butao_Pesquisar_Click()
Dim Fila As Long
Dim DatosA As Long
Dim conteo As Integer
Dim Fecha_Ini As Date
Dim Fecha_Fin As Date
Dim Lv
Dim I
Folha1.Activate
DatosA = Range("A" & Rows.Count).End(xlUp).Row + 1
Fila = 2
Fecha_Ini = Me.Txt_FechaIni
Fecha_Fin = Me.Txt_FechaFin
Me.ListView3.ListItems.Clear
Do Until Folha1.Cells(Fila, 1) = ""
If Cells(Fila, 4) >= Fecha_Ini And Cells(Fila, 4) <= Fecha_Fin Then
Set Lv = ListView3.ListItems.Add(Text:=Folha1.Cells(Fila, 1))
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 2)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 3)
Lv.ListSubItems.Add Text:=CDate(Folha1.Cells(Fila, 4))
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 5)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 6)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 7)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 8)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 9)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 12)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 13)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 14)
Lv.ListSubItems.Add Text:=Format(Folha1.Cells(Fila, 15), "#,##0.00")
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 16)
Lv.ListSubItems.Add Text:=Folha1.Cells(Fila, 17)
If ComboBoxMatriculasPesquisa.Value <> "" Then
Dim Tmp As Long
Dim A As Long
Dim sContratante
Tmp = UserForm_Menu.ListView3.ListItems.Count
sContratante = ComboBoxMatriculasPesquisa.Text
Tmp = UserForm_Menu.ListView3.ListItems.Count
For A = 1 To Tmp
With ListView3
If .ListItems(A).SubItems(2) = sContratante Then
Tmp = Tmp '- 1
If A = Tmp Then Exit For
Tmp = UserForm_Menu.ListView3.ListItems.Count
Else
UserForm_Menu.ListView3.ListItems.Remove A
A = A - 1
Tmp = Tmp - 1
If A = Tmp Then Exit For
Tmp = UserForm_Menu.ListView3.ListItems.Count
End If
End With
Next
End If
conteo = conteo + 1
End If
Fila = Fila + 1
Loop
Set Lv = Nothing
Me.Lbl_registros = conteo
End Sub