CANAL SGP, agradeço pelos vídeos que tem compartilhado e tem me ajudado muito show de bola. Então, em relação a cabeçalho em listbox, tem um procedimento que fiz nos meus estudos que deu certo, pesquisei em alguns fóruns em consegui adaptar ao meu projeto. Segue o código: Dim sRngRowSource Dim UltLin As Long
'Ultima linha preenchida UltLin = Worksheets("movimento").Cells(Rows.Count, "A").End(xlUp).Row
'Definimos o Range sRngRowSource = "A2:B" & UltLin
'Qde de Colunas do ListBox ListBox1.columncount = 2
'Definimos o RowSource somente com as linhas preenchidas ListBox1.rowsource = sRngRowSource
ListBox1.ListIndex = 0 Só adaptar ao projeto de vocês usando em botão de comando ou no envento initialize, desde já agradeço pelo compartilhamento de conhecimento.
@@CanalSGP Professor, acho o seu canal muito bom. Utilizo algumas de suas soluções nos meus projetos. Parabéns! A minha opinião e experiência quanto ao ListView (vs) ListBox, é que o ListView tem muito mais recurso e é bem mais elegante na apresentação. Acredito que o ListBox, além de ser mais conhecido, é mais simples na hora de programar.
Boa tarde, nas versões mais antigas do Excel o listview dava problema e se perdia o objeto ao passar a planilha de uma versão Excel para outra, talvez por isso o listbox era mais utilizado.
vc também poderia fazer uma rotina com um laço de repetição onde vc apenas precisaria escrever poucas linhas de código sinalizando uma variável que iria se incrementar com as o valor das colunas da sua planilha. acho que tbm pode resolver.... tor aprendendo muito com vc e com o Alessandro trovatto de outro canal. Do While Activecell.value "" Activecell.Offset(0,1).select loop tipo assim.... vc é 10 parceiro.
@@CanalSGP vi essa dica em outro canal. Propriedades do ListBox ColumnHeads: deixa True Dim tabela As Range Set tabela = Plan1.Range(“A1”).CurrentRegion.Offset (1,0) Listbox1.RowSource = tabela.Address (, , , True) O offset considera a linha 2 como inicio do registro. Como posso usar esse recurso na transferência dos recordsets Access considerando o segundo como inicio do registro? Eu não consegui. :(
@@CanalSGP , farei a importação de Access para Excel e do Excel para ListBox até achar a solução. Obrigado pelo apoio. Tenho outras dúvidas, não do listbox. Você poderia prestar Suporte?
Boa dica. Mas não funciona se não tiver dados. Imagine que só tem apenas o cabeçalho. Não fica fixo. TEM COMO DEIXAR FIXO MESMO SEM DADOS? Só cabeçalho?
oi amigo, preciso muito de um código VBA que faça o seguinte procedimento " enviar de uma só vez todas linhas do listbox para a planilha" ou seja enviar mais que uma linha de dados
Falou uma verdade conhecimento não vale nada se não compartilhar
Obrigado.
Valeu, me ajudou bastante
Que bom que ajudou
CANAL SGP, agradeço pelos vídeos que tem compartilhado e tem me ajudado muito show de bola. Então, em relação a cabeçalho em listbox, tem um procedimento que fiz nos meus estudos que deu certo, pesquisei em alguns fóruns em consegui adaptar ao meu projeto. Segue o código:
Dim sRngRowSource
Dim UltLin As Long
'Ultima linha preenchida
UltLin = Worksheets("movimento").Cells(Rows.Count, "A").End(xlUp).Row
'Definimos o Range
sRngRowSource = "A2:B" & UltLin
'Qde de Colunas do ListBox
ListBox1.columncount = 2
'Definimos o RowSource somente com as linhas preenchidas
ListBox1.rowsource = sRngRowSource
ListBox1.ListIndex = 0
Só adaptar ao projeto de vocês usando em botão de comando ou no envento initialize, desde já agradeço pelo compartilhamento de conhecimento.
Olá, legal, vamos estudar esse código.
@@CanalSGP se possível coloque uns filtros para carregar e faça uma vídeo aula. Ainda não conseguir fazer.
Professor, boa estratégia essa. Acredito que não existe outra forma para ListBox. Já para ListView, existe plena possibilidade de fazer por código.
Boa tarde, em listview é possível via códigos.
@@CanalSGP Professor, acho o seu canal muito bom. Utilizo algumas de suas soluções nos meus projetos. Parabéns! A minha opinião e experiência quanto ao ListView (vs) ListBox, é que o ListView tem muito mais recurso e é bem mais elegante na apresentação. Acredito que o ListBox, além de ser mais conhecido, é mais simples na hora de programar.
Boa tarde, nas versões mais antigas do Excel o listview dava problema e se perdia o objeto ao passar a planilha de uma versão Excel para outra, talvez por isso o listbox era mais utilizado.
vc também poderia fazer uma rotina com um laço de repetição onde vc apenas precisaria escrever poucas linhas de código sinalizando uma variável que iria se incrementar com as o valor das colunas da sua planilha. acho que tbm pode resolver....
tor aprendendo muito com vc e com o Alessandro trovatto de outro canal.
Do While Activecell.value ""
Activecell.Offset(0,1).select
loop
tipo assim.... vc é 10 parceiro.
Olá, vou estudar o assunto e ver se tem algo que pode ser feito ou outras formas de carregar a listbox.
Tamos juntos parceiro.
Obrigado pela sua atenção!
Há como deixar o Cabeçalho Fixo do Listbox/Listview em negrito apenas?
Boa tarde, na listbox não encontrei forma de fazer isso ainda.
Professor, mas nesse método se eu descer a barra de rolagem o cabeçalho some, como reolver?
Boa noite, até o momento não encontrei forma de fazer isso, não sei dizer se é possível na listbox.
@@CanalSGP th-cam.com/video/Yy7PMDmBhFk/w-d-xo.html
Como congela o cabeçalho como fazemos no Excel ( congelamento da primeira linha)?
Boa noite, acredito que vai conseguir isso somente carregando os dados com Rowsurce.
@@CanalSGP vi essa dica em outro canal.
Propriedades do ListBox
ColumnHeads: deixa True
Dim tabela As Range
Set tabela = Plan1.Range(“A1”).CurrentRegion.Offset (1,0)
Listbox1.RowSource = tabela.Address (, , , True)
O offset considera a linha 2 como inicio do registro. Como posso usar esse recurso na transferência dos recordsets Access considerando o segundo como inicio do registro? Eu não consegui. :(
Bom dia, sem ser da planilha não sei se tem como utilizar o rowsource.
@@CanalSGP , farei a importação de Access para Excel e do Excel para ListBox até achar a solução. Obrigado pelo apoio. Tenho outras dúvidas, não do listbox. Você poderia prestar Suporte?
Boa tarde, qual a dúvida.
Boa dica.
Mas não funciona se não tiver dados.
Imagine que só tem apenas o cabeçalho. Não fica fixo. TEM COMO DEIXAR FIXO MESMO SEM DADOS? Só cabeçalho?
Boa tarde, até o momento não sei de procedimento capaz de fazer isso.
Como podemos deixar ele congelado para quando usar o scroll do mause ou barra de rolagem ele não desapareça
Olá, estamos estudando a tempos esta necessidade, mas sem êxito até o momento.
CANAL SGP Obrigado pelo fim de back
oi amigo, preciso muito de um código VBA que faça o seguinte procedimento " enviar de uma só vez todas linhas do listbox para a planilha" ou seja enviar mais que uma linha de dados
Olá, muitíssimo obrigado! Abraço.
Tem esse "Listbox" executado com texbox
th-cam.com/video/QvIQAad6LQg/w-d-xo.html
Bom dia.
@@CanalSGP Tenho o modelo deste Listbox executado com Listbox se interessar....
BOA NOITE PROFESSOR TUDO BEM ?
fiz a rotina porem o cabeçalho não entra na listbox
Private Sub Pesquisar_pertences()
Planilha10.Select
Dim Lin As Integer, LinBox As Integer
Dim Busca As Integer
Lin = 1
LinBox = 0
ListBox1.Clear
With ListBox1
.AddItem
.List(0, 0) = "MATRICULA"
.List(0, 1) = "NOME"
.List(0, 2) = "CAIXA"
.List(0, 3) = "COD DOC"
.List(0, 4) = "DATA DOCUMENTO"
.List(0, 5) = "ITENS"
Do While Lin < 32000
Busca = InStr(Cells(Lin, 1).Value, TextBox1)
If Busca > 0 Then
With ListBox1
.AddItem
.List(LinBox, 0) = Cells(Lin, 1)
.List(LinBox, 1) = Cells(Lin, 2)
.List(LinBox, 2) = Cells(Lin, 3)
.List(LinBox, 3) = Cells(Lin, 4)
.List(LinBox, 4) = Cells(Lin, 5)
.List(LinBox, 5) = Cells(Lin, 11)
End With
LinBox = LinBox + 1
End If
Lin = Lin + 1
Loop
End With
End Sub
algo de errado ele não da erro apenas não aparece na list box?
Bom dia, teste alterar a variável LinBox = 1