Pesquisa com data em duas colunas
Enviado: 27 Abr 2019 às 12:52
Bom, estou tentando fazer uma pesquisa com 2 colunas, preciso que fazer uma busca de data em 2 colunas diferente e que ele me retorne no listbox, o código que uso é esse.
Botão Localizar
Botão Localizar
Código: Selecionar todos
se alguem tiver alguma sugetão de como posso fazer.Dim Linha As Integer
Dim Linhalistbox As Integer
Dim data As Date
Dim Inicio As Date
Dim Fim As Date
Inicio = txt_datainicio
Fim = txt_datafinal
Linhalistbox = 0
Linha = 2
ListBox.Clear
With Plan13
While .Cells(Linha, 1).Value <> ""
data = .Cells(Linha, 36).Value
If data >= Inicio And data <= Fim Then
With ListBox
.AddItem
.list(Linhalistbox, 0) = Plan13.Cells(Linha, 1)
.list(Linhalistbox, 1) = Plan13.Cells(Linha, 2)
.list(Linhalistbox, 2) = Plan13.Cells(Linha, 3)
.list(Linhalistbox, 3) = Plan13.Cells(Linha, 4)
.list(Linhalistbox, 4) = Plan13.Cells(Linha, 5)
.list(Linhalistbox, 5) = Plan13.Cells(Linha, 6)
.list(Linhalistbox, 6) = Plan13.Cells(Linha, 7)
.list(Linhalistbox, 7) = Plan13.Cells(Linha, 8)
.list(Linhalistbox, 8) = Plan13.Cells(Linha, 9)
.list(Linhalistbox, 9) = Plan13.Cells(Linha, 10)
End With
Linhalistbox = Linhalistbox + 1
End If
Linha = Linha + 1
Wend
End With