Excel VBA Validação dados Planilha ComboBox múltipla escolha
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
ABRIR USERFORM E USAR COMBOBOX MULTISELEÇÃO:
Clique na coluna (A), ao selecionar, o Evento WorksheetSelectionChange() da folha de planilha, abrirá o Userform para a Multipla escola nos Objetos Combobox.
Bons Estudos. Fique com Deus. Expedito Marcondes..
‘—‘
//====’ codigos usados nos Objetos USF.
Dim f
Private Sub UserForm_Initialize()
Set f = Sheets(“bd”)
Set wDicionario = CreateObject(“Scripting.Dictionary”)
For Each c In f.Range(“b2:b” & f.[B65000].End(xlUp).Row)
wDicionario(c.Value) = “”
Next c
Me.ComboBox1.AddItem “(Geral)”
For Each c In wDicionario.keys
Me.ComboBox1.AddItem c
Next c
Me.ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Change()
Me.ComboBox2.Clear
For Each c In f.Range(“a2:a” & f.[a65000].End(xlUp).Row)
If c.Offset(0, 1) = Me.ComboBox1 Or Me.ComboBox1 = “(Geral)” Then
Me.ComboBox2.AddItem c
End If
Next c
End Sub
Private Sub ComboBox2_Change()
ActiveCell = Me.ComboBox2
ActiveCell.Offset(, 2).Value = Me.ComboBox1
Unload Me
End Sub
//====== FIZ UM MACRO DATADIF PARA AJUDÁ-LO NO SEU TREINAMENTO COM VBA.
em breve farei uma vídeo – aula a respeito é muito interessante e necessário aprender, publicarei na area de membros – Escola SaberExcel VBA Estudos
Sub sbx_calcula_anos()
Dim X As Integer For i = 2 To Cells(Rows.Count, “a”).End(xlUp).Row
Cells(i, “g”) = DateDiff(“yyyy”, CDate(Cells(i, “e”)), Date) & ” Anos”
Next i
End Sub
//=========’ limpar para realização do teste.
Sub sbx_limpar_teste()
Range(Cells(2, “g”), Cells(Cells(Rows.Count, “g”).End(xlUp).Row + 1, “g”)).ClearContents
End Sub
Fiquem com Deus,
Expedito Marcondes
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
| Compre pelo PagSeguro | Compre pelo PayPal | |
 |
 |
|
| Material Didático: Curso Excel VBA Expert |
 |
 Baixe o exemplo de planilha contendo os macros acima: |
 SBI Excel VBA Validação dados ComboBox múltipla escolha |
| << Email: verifique sua caixa de Itens excluídos, caso não estiver na sua Caixa de Entrada >> |
SBI Excel VBA Validação dados ComboBox múltipla escolha
