Excel transferir dados entre listbox

[Miguelriedel]

Olá,

 gente, preciso fazer o seguinte, no USERFORM2 preciso que ao clicar no botão: BTSalvarInsumos, ele envie os dados da listbox2 para a listbox1 do userform1

 

 

Alguém sabe como posso fazer?

Produção.rar

[Márcio Rodrigues]

Olá Miguelriedel,

 

Veja se atende,

 

Té +,

transferir dados entre listbox.rar

[Miguelriedel]

@Márcio Rodrigues deu certo, porém quando aplico junto de outros dados da planilha ele insere uma linha em branco e os dados abaixo e não puxa as outras colunas, como no print:

 

como posso resolver isso será?

[Márcio Rodrigues]

Olá Miguelriedel,

 

Mande o arquivo para que possamos analisar.

 

Té +

[Miguelriedel]

@Márcio Rodrigues Segue abaixo planilha

Produção.rar

[Márcio Rodrigues]

Olá Miguelriedel,

 

Não consegui gerar a tela que você mencionou.

Dá erro porque não tem os UserForm5, UserForm4 e UserForm3 no arquivo.

Explique como faço para chegar no resultado que você comentou.

 

Té +

[Miguelriedel]

@Márcio Rodrigues Ah, eu retirei eles para resumir a planilha

 

segue o caminho

é so preencher os campos ali dos produtos > botão "Adc. Item" > dois cliques em cima do item adicionado para exibir o userform2 > preencher as informações no userform2 e adc item > Botão "Salvar" (userform2), e então será adicionado ao userform1

[Miguelriedel]

@Márcio Rodrigues Olá, consegui resolver esse problema, era um código que estava errado. Sabe como transfiro todas as colunas, com seu exemplo é transferida somente a primeira coluna...

[Márcio Rodrigues]

Olá Miguelriedel,

 

você pode usar algo assim:

 

Private Sub CommandButton1_Click()
    
    UserForm1.ListBox1.ColumnCount = 3
    
    For i = 0 To ListBox2.ListCount - 1
    
         With UserForm1.ListBox1
    
            .AddItem
            .List(.ListCount - 1, 0) = ListBox2.List(i, 0)
            .List(.ListCount - 1, 1) = ListBox2.List(i, 1)
            .List(.ListCount - 1, 2) = ListBox2.List(i, 2)
        
        End With
    
    Next i
    
    UserForm1.Show
    
End Sub

 

Veja se é por aí!!!!

transferir dados entre listbox v2.rar

[Miguelriedel]

@Márcio Rodrigues Boa tarde,

Deu certo!

 

Agradeço a ajuda!