GuilhermeDR

Boa tarde!

 

 Estou na seguinte situação:

 

1) Tenho um Banco de dados com 22 colunas, com nome/código de clientes e produtos, por exemplo.

2) Em uma Useform faço uma pesquisa relacionando os produtos vendidos para clientes. A informação da pesquisa é mostrada em um LISTBOX;

 

Portanto eu posso pesquisar quantos produtos Y eu forneci para o cliente X.

E posso realizar outras várias pesquisas também.

 

Desta forma, tenho um número indeterminado de linhas na minha pesquisa que será mostrado na Listbox.

 

A programação que faz essa pesquisa eu já tenho e funciona, o meu problema é a quantidade de linhas que ela ocupa na LISTBOX.

 

Gostaria que vocês me ajudassem a modificar a programação a fim de que seja mostrado na LISTBOX somente o que foi consultado. As linhas em branco não precisam estar na LISTBOX (que é o que acontece). -- Percebam que a Array é bem grande "Dim MyArray(4000, 22)"

 

Segue programação abaixo: (ela não está completa pois ficaria muito grande, mas dá para visualizar).

Private Sub PreencheLista()    Dim ws As Worksheet    Dim i As Integer    Dim x As Integer        Dim ClienteCelula As String    Dim ProdutoCelula As String    Dim RefCelula As String        Dim ClienteDigitado As String    Dim ProdutoDigitado As String    Dim RefDigitado As String        Dim MyArray(4000, 22)        Qtdlinhas = ThisWorkbook.Sheets("BD_DOC").Cells(Rows.Count, 1).End(xlUp).row        ListBox1.ColumnWidths = "30;20;20;50;40;100;20;100;100;30;30;30;30;30"    '---    i = 1    x = 0    linha = j    C = j + 2    linhac = C'-- Pesquisa Cliente Vs Produto If (Me.MultiPage1.Value = 0) Then    ListBox1.Clear    ClienteDigitado = cbPesqCodCliente.Text    ProdutoDigitado = cbPesqCodProduto.Text        With ThisWorkbook.Worksheets("BD_DOC")    '---        While .Cells(i, 1).Value <> Empty                  ProdutoCelula = .Cells(i, j).Value          ClienteCelula = .Cells(i, C).Value                    If ((checkPrimeira.Value = False) And (checkPadrao.Value = False)) Then                      'Pesquisa Clientes             If ((cbPesqCodCliente.Text <> "") And (cbPesqCodProduto.Text = "")) Then             If (ClienteCelula = ClienteDigitado) Then                   For j = 1 To 22                     MyArray(x, j - 1) = .Cells(i, j).Value                   Next j                   x = x + 1                   C = linhac             End If             i = i + 1             End If       End If    End With            ListBox1.List() = MyArray                        Label36.Caption = x            If (Label36 = 0) Then MsgBox "Nenhum item encontrado. Tente outro valor."

Avisando que estou programando no Visual Basic e o banco de dados é uma planilha do EXCEL.

 

Acredito ter colocado a programação ali em cima com formato errado. Ficou estranho.. kkkk'

Aos poucos vou aprendendo.

Boa tarde Galera,

 

 Estou na seguinte situação e estou precisando de ajuda.

 

 A situação é que há tempos se fazia registro de produtos através de planilhas.

 Ou seja, cada produto que era vendido possuía uma planilha dedicada que armazenava dados do produto, da venda, etc.

 

 Com o passar do tempo a empresa foi crescendo e se viu a necessidade de implementar um sistema melhor. Ou seja, um banco de dados (ainda no excel).

 

 O fato é que os registros anteriores estão em planilhas individuais e os novos estão em um banco de dados (linha por linha).

 Minha intenção é importar as documentações antigas (das planilhas individuais) para este novo Banco de Dados (BD).

 

 Preciso de ajuda para criar uma rotina no VBA que faça isso:

 - Vá até a pasta onde as planilhas de documentação estão (só há elas na pasta);

 - Abra a planilha, copia os dados das células: B5,B6,B7 .... B16, e B20.

 - Cole nas linhas do Banco de Dados

 - Feche a planilha da documentação individual

 - Abra a planilha seguinte, repita a operação até que todas as planilhas da pasta sejam abertas.

 

 

Informação:

 As planilhas de documentação antigas, possuem formato padrão. Ou seja, na célula B5, de todas as planilhas, terá a mesma espécie de informação (Exemplo: DATA).

 

Fico no aguardo.