Excel VBA Validação dados Planilha ComboBox múltipla escolha



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
excel-vba-treinamento-pagseguro
 Material Didático: Curso Excel VBA Expert 
excel vba treinamentos planilhas
 Baixe o exemplo de planilha contendo os macros acima:
iconSBI 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 >>

    iconSBI Excel VBA Validação dados ComboBox múltipla escolha

    Deixe um comentário

    O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *