Fóruns
Microsoft Excel - 2...
Formulários
transferindo valore...
 
Notifications
Clear all

transferindo valores do textbox para o listbox

 
Formulários
Post Recente por rabaloco 6 anos atrás
3 Posts
3 Usuários
0 Reactions
4,370 Visualizações
RSS
 guimelo
(@guimelo)
Posts: 2
New Member
Topic starter
 

Boa noite a todos tudo bem? estou montando uma planilha e me encontro preso em uma situação. Ao abrir o formulário e digitar o código do produto, clicando no botão buscar, ele retorna os valores dentro dos textbox, porém agora gostaria de adicionar esses valores dentro da minha listbox. clicando no botão adicionar, quero com que todos os valores das textobox se transfiram para o listbox, e apague os dados da textbox, para que eu possa continuar realizando pesquisas e adicionando os valores no list. ao iniciar o formulário fiz com que puxasse o nome de alguns labels, para usar como cabeçalho. Abaixo segue meu código, se alguém puder me ajudar por favor.

Private Sub UserForm_Initialize()
  
    With list_produtos
    .AddItem
    .List(0, 0) = Me.Label1
    .List(0, 1) = Me.Label2
    .List(0, 2) = Me.Label3
    .List(0, 3) = Me.Label4
    End With
    

    
End Sub
 
Postado : 26/06/2018 7:53 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

guimelo,

Bom dia!

Pedimos, por gentileza, ao postar códigos VBA, utilizar a ferramenta CODE existente logo acima da caixa de mensagens (quinto botão da esquerda para a direita).

Quando a sua dúvida, anexe seu arquivo compactado com .ZIP.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 27/06/2018 5:35 am
 rabaloco
(@rabaloco)
Posts: 5
Active Member
 

Bom dia!

Para gerar o Cabeçalho(CollumHeads), use um IF para verificar a quantidade de itens que já componham sua Listbox.
Coloque isso no botão que mencionou:

If ListBox1.ListCount = 0 Then
        With ListBox1
            .AddItem
            .List(0, 0) = Me.Label1.Caption
            .List(0, 1) = Me.Label2.Caption
            .List(0, 2) = Me.Label3.Caption
            .List(0, 3) = Me.Label4.Caption
        End With
    Else
        With ListBox1
            .AddItem
            .List(.ListCount -1, 0) = Me.TextBox1.Value
            .List(.ListCount -1, 1) = Me.TextBox2.Value
            .List(.ListCount -1, 2) = Me.TextBox3.Value
            .List(.ListCount -1, 3) = Me.TextBox4.Value
        End With
    End If

O código acima, faz com que ele sempre verifique a quantidade de entradas no Listbox, caso seja 0 (não tenha registros) ele "gera" um cabeçalho, caso exista, ele vai gravando novos dados.

Para fazer a limpeza dos campos, existem alguns modos, mas o mais simples seria um = Empty

 
Postado : 14/07/2018 6:42 am
Forum Jump:
  Tópico Anterior
Próximo Tópico