Visual Basic Combobox para Listbox em outro Useform

[DaviCN]

Boa Tarde gente.

Gostaria de saber como adicionar itens de 3 ComboBox de uma UserForm para uma listbox de outro userForm através de um botão. No caso, cada item de uma combobox deveria ser adicionado em uma certa coluna da listbox. Desde já, agradeço.

[Basole]

Experimente: 

Cole o codigo abaixo no evento click do seu botao no userform1

 

 If Me.ComboBox1.Text <> "" And _
       Me.ComboBox2.Text <> "" And _
       Me.ComboBox3.Text <> "" Then
    
    With UserForm2.ListBox1
          .ColumnCount = 3
          .ColumnWidths = "50;50;50"
          .AddItem Me.ComboBox1.List(i, 0), 0
          
          .List(.ListCount - 1, 1) = Me.ComboBox2.List(0)
          .List(.ListCount - 1, 2) = Me.ComboBox3.List(0)
    End With
       
       UserForm2.Show
    
    Else
    
    MsgBox "Selecione dados em todas Listas", vbCritical, "aTENCAO"
   
   End If

 

[DaviCN]

Muito obrigado @Basole deu super certo. valeu mesmo pela ajuda

[DaviCN]

@basole uma dúvida que me surgiu. Se além das 3 combobox eu também tivesse um textbox pra adicionar itens, como ficaria nesse caso?

[Basole]

@DaviCN considerando que voce queira acrescentar em um novo campo do listbox: 

 

   If  Me.ComboBox1.Text <> "" And _
       Me.ComboBox2.Text <> "" And _
       Me.ComboBox3.Text <> "" And _
       Me.TextBox1.Text <> "" Then
    
       With UserForm2.ListBox1
          .ColumnCount = 4
          .ColumnWidths = "50;50;50;70"
          
          .AddItem Me.ComboBox1.List(i, 0), 0
          
          .List(.ListCount - 1, 1) = Me.ComboBox2.List(0)
          .List(.ListCount - 1, 2) = Me.ComboBox3.List(0)
          .List(.ListCount - 1, 3) = Me.TextBox1.Text
          
       End With
       
       UserForm2.Show
    
    Else
    
         MsgBox "Selecione dados em todas Listas", vbCritical, "aTENCAO"
   
    End If

 

[DaviCN]

Problema resolvido, muito obrigado amigo.

[DaviCN]

@Basole boa tarde, em relação ao problema que foi citado neste tópico gostaria de saber como fazer para que fosse adicionado uma certa quantidade de itens das 3 ComboBox e do textbox1 de uma UserForm para uma listbox de outro userForm através de um valor que fosse colocado em uma textbox2 seguindo o códig que foi fornecido por vez. Tipo, se eu colocasse o valor "3" na textbox2, os itens que eu colocasse nas 3 ComboBox e do textbox1 replicassem 3 vezes no outro listbox. Qualquer dúvida estou à disposição. Desde já agradeço!