Buscar data
Enviado: 08 Jul 2016 às 20:26
Boa Noite Pessoal
Estou desenvolvendo um pequeno projeto meu primeiro .... estou Buscando informação por data
sendo a data a partir da celula a1 a Busca da data da celula a1 ate onde tiver cadastro ta ok porem quero que aBra as demais colunas conforme aBaixo
DATA Código Descrição Produzido Devolvido Vendido
onde esta meu erro
Estou desenvolvendo um pequeno projeto meu primeiro .... estou Buscando informação por data
sendo a data a partir da celula a1 a Busca da data da celula a1 ate onde tiver cadastro ta ok porem quero que aBra as demais colunas conforme aBaixo
DATA Código Descrição Produzido Devolvido Vendido
onde esta meu erro
Código: Selecionar todos
Private Sub TextBox1_Change()
Dim guia As Worksheet
Dim linha As Integer
Dim coluna As Integer
Dim linhalistbox As Integer
Dim valor_celula As String
Dim valor_pesquisado As String
Dim conta_registros As Integer
Set guia = ThisWorkbook.Worksheets("Plan1")
valor_pesquisado = TextBox1.Text
linha = 2
coluna = 1
linhalistbox = 0
conta_registros = 0
ListBox1.Clear
With guia
While .Cells(linha, coluna).Value <> Empty
valor_celula = .Cells(linha, coluna).Value
If UCase(Left(valor_celula, Len(valor_pesquisado))) = UCase(valor_pesquisado) Then
With ListBox1
.AddItem
.List(linhalistbox, 0) = Sheets("Plan1").Cells(linha, 1)
linhalistbox = linhalistbox + 1
conta_registros = conta_registros + 1
End With
End If
linha = linha + 1
Wend
End With
Label1 = conta_registros & " Despesas Cadastradas"
End Sub
Private Sub UserForm_Initialize()
Call atualiza
End Sub
Sub atualiza()
Dim linha As Integer
Dim linhalistbox As Integer
Dim conta_registros As Integer
ListBox1.Clear
linha = 2
linhalistbox = 0
Sheets("Plan1").Select
Do Until Sheets("Plan1").Cells(linha, 1) = ""
With ListBox1
.AddItem
.List(linhalistbox, 0) = Sheets("Plan1").Cells(linha, 1)
End With
linhalistbox = linhalistbox + 1
linha = linha + 1
conta_registros = conta_registros + 1
Loop
Label1 = conta_registros & " Datas Cadastradas"
End Sub