Então...
Da forma como está, eu abriria mais uma planilha para listar os dados lançados, com o mesmo cabeçalho que você fez para o listbox. Daria o nome de Lista para essa planilha. Depois incluiria a rotina abaixo dentro do botão que você usa para salvar seus lançamento. Assim, toda vez que fizer um lançamento vai atualizar seu Listbox.
With Sheets("Lista").UsedRange
ListBox1.ColumnCount = .Columns.Count
ListBox1.RowSource = .Address
End With
At
Assim foi feito. Mas não funcionou como sua explicação. Em ListBox1 ficou listado apenas o cabeçalho criado na Sheets("Lista").
Pensei o seguinte: os lançamentos são feitos em: Sheets(ADM FICHAS MERCADORIA), a primeira coluna é a sequencia de lançamento, a segunda coluna é a sequencia da ficha. Posso lançar 100 produtos com a sequencia de lançamento de 1 a 100 (primeira coluna), já na segunda coluna terei apenas um cod para todos os lançamentos(Seq Ficha). No caso Seq de Lançamento de 1 a 100 para a Seq Ficha numero 1 por exemplo. Dessa forma todos os lançamentos estaria ligados a esaa SEQ FICHA numero 1.
Então, baseado na Rotina proposta tem como delimitar os dados a ser listados utilizando a SEQ FICHA? E de repente até delimitar apenas algumas colunas.
Segue o Modelo de como esta funcionando com a Rotina proposta.
Ulisses Eleodoro dos Santos
---------------------------------------
Compartilha o conhecimento é a
forma mais valorosa na busca da
sabedoria.
---------------------------------------
Postado : 21/06/2013 8:04 am