Excel VBA ListBox Planilha lançamentos cavalos e cavaleiros

Planilha Excel VBA ListBox lançamentos cavalos e cavaleiros

PROMOÇÃO ESPECIAL – EXCEL VBA Adquirir o Material Didático Escola SaberExcel VBA Estudos

Excel VBA ListBox Planilha

lançamentos cavalos e cavaleiros

Com esses procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), vamos fazer dois formulários com objetos ComboBox e ListBox para múltipla escolha de Cavalo x Cavaleiro, observe que medida em que for sendo escolhido cavaleiro x cavalo, é baixado o nome da ComboBox que Carrega a ListBox, por fim descarregaremos as múltiplas escolhas na folha de planilha. Fique com Deus, Bons Estudos. Expedito Marcondes.

FORMULÁRIO frmCAVALO1

Private Sub UserForm_Initialize()
Me.ComboBox1.List = [cavaleiros].Value
Me.ComboBox2.List = [cavalos].Value
End Sub

Private Sub CommandButton1_Click()
If Me.ComboBox1.ListIndex = -1 Then
MsgBox “Escolha um cavaleiro”
Exit Sub
End If
If Me.ComboBox2.ListIndex = -1 Then
MsgBox “Escola um cavalo”
Exit Sub
End If
Me.ListBox1.AddItem
i = Me.ListBox1.ListCount – 1
Me.ListBox1.List(i, 0) = Me.ComboBox1
Me.ListBox1.List(i, 1) = Me.ComboBox2
Me.ComboBox1.RemoveItem Me.ComboBox1.ListIndex
Me.ComboBox2.RemoveItem Me.ComboBox2.ListIndex
If Me.ComboBox1.ListCount > 0 Then
Me.ComboBox1.ListIndex = 0
Else
MsgBox “Mais cavaleiro…”
Me.ComboBox1.ListIndex = -1
End If
If Me.ComboBox2.ListCount > 0 Then
Me.ComboBox2.ListIndex = 0
Else
MsgBox “Mais cavalos …..”
Me.ComboBox2.ListIndex = -1
End If
End Sub

Private Sub B_ok_Click()
If ComboBox1.Value = “” Or ComboBox2.Value = “” Then
MsgBox (“Escolha cavalo e cavaleiro…”), vbInformation, “Escola Saberexcel VBA Estudos®”
ComboBox1.SetFocus
SendKeys “%{down}”
End If
x = Saber3.Cells(Rows.Count, “a”).End(xlUp).Row + 1
Saber3.Range(Saber3.Cells(2, “a”), Saber3.Cells(x, “b”)).ClearContents
Saber3.[A2].Resize(Me.ListBox1.ListCount, 2) = Me.ListBox1.List
End Sub

FORMULÁRIO frmCAVALO2
Private Sub UserForm_Initialize()
Me.ComboBox1.List = [cavaleiros].Value ‘ ComboBox carrega range dinâmico nomeado
Me.ComboBox2.List = [cavalos].Value ‘ComboBox carrega range dinâmico nomeado
End Sub

Private Sub CommandButton1_Click()
If Me.ComboBox1.ListIndex = -1 Then
MsgBox “Escolha um cavaleiro….”
Exit Sub
End If
If Me.ComboBox2.ListIndex = -1 Then
MsgBox “Escolha um cavalo…”
Exit Sub
End If

Me.ListBox1.AddItem
i = Me.ListBox1.ListCount – 1
Me.ListBox1.List(i, 0) = Me.ComboBox1
Me.ListBox1.List(i, 1) = Me.ComboBox2
Me.ComboBox1.RemoveItem Me.ComboBox1.ListIndex
Me.ComboBox2.RemoveItem Me.ComboBox2.ListIndex
If Me.ComboBox1.ListCount > 0 Then
Me.ComboBox1.ListIndex = 0
Else
MsgBox “Mais cavaleiros…”
Me.ComboBox1.ListIndex = -1
End If
If Me.ComboBox2.ListCount > 0 Then
Me.ComboBox2.ListIndex = 0
Else
MsgBox “Mais Cavalos”
Me.ComboBox2.ListIndex = -1
End If
End Sub

Private Sub B_ok_Click()
x = Saber4.Cells(Rows.Count, “a”).End(xlUp).Row + 1
Saber4.Range(Cells(2, “a”), Cells(x, “b”)).ClearContents
Saber4.[A2].Resize(Me.ListBox1.ListCount, 2) = Me.ListBox1.List
End Sub