Bom dia
Faço uso de um sistema VBA para lançamento de dados que são direcionados para uma planilha
Hoje tem 3000 linhas +-
Até consegui pela Janela Propriedades alimentar os dados da planilha na Listbox pela RowSource, e limitar as 6 colunas que preciso que apareça pela ColumnCount (embora a largura da coluna no ListBox esteja sendo apresentada errada também) . Porém não consegui trazer apenas a última informação cadastrada.
Teria espaço para apresentar apenas umas 2 ou 3 linhas de lançamentos. Mas a ideia aqui é o usuário já poder ter a certeza de que o lançamento foi feito assim que clicar em cadastrar, então a última linha com último lançamento atende a demanda
Agradeço a quem puder ajudar
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
AJUDA- COMO ALIMENTAR LISTBOX COM ÚLTIMO LANÇAMENTO
AJUDA- COMO ALIMENTAR LISTBOX COM ÚLTIMO LANÇAMENTO
- Anexos
-
- FORM LANÇAMENTO.jpg (70.16 KiB) Exibido 1571 vezes
-
- Acabou de chegar
- Mensagens: 7
- Registrado em: Sáb Nov 14, 2020 12:03 pm
Re: AJUDA- COMO ALIMENTAR LISTBOX COM ÚLTIMO LANÇAMENTO
Boa noite, Simoa!
Tudo bem?!
Então, você pode fazer o seguinte.
1° - Adicione um novo módulo
(Neste exemplo, usarei o nome da ListBox como "ListBox1", uma quantidade de 5 colunas para preencher a ListBox e a Planilha 1 como a base de dados.)
2° - Escreva o seguinte código abaixo:
Sub Preencher_ListBox
Dim Linha as Integer
Linha = Planilha1.Range("A1").CurrentRegion.Rows.Count
With UserForm1.ListBox1
.ColumnCount = 5
.ColumnHeads = True
.ColumnWidth = "30;50;70;90;110"
.RowSource = "Base!A" & Linha & ":E" & Linha
End With
End Sub
Lembre-se de chamar a macro no botão salvar!
Tem outras formas de fazer, mas creio que isso já te ajude.
Qualquer dúvida, estamos à disposição!
Abraços!
Tudo bem?!
Então, você pode fazer o seguinte.
1° - Adicione um novo módulo
(Neste exemplo, usarei o nome da ListBox como "ListBox1", uma quantidade de 5 colunas para preencher a ListBox e a Planilha 1 como a base de dados.)
2° - Escreva o seguinte código abaixo:
Sub Preencher_ListBox
Dim Linha as Integer
Linha = Planilha1.Range("A1").CurrentRegion.Rows.Count
With UserForm1.ListBox1
.ColumnCount = 5
.ColumnHeads = True
.ColumnWidth = "30;50;70;90;110"
.RowSource = "Base!A" & Linha & ":E" & Linha
End With
End Sub
Lembre-se de chamar a macro no botão salvar!
Tem outras formas de fazer, mas creio que isso já te ajude.
Qualquer dúvida, estamos à disposição!
Abraços!