Coleção 25.000 Macros MS Excel VBA

   Mega_Colecao Macros de Macros MS Excel VBA
      

Curso Completo MS Excel VBA

Excel VBA Video Aulas

 Aprenda Excel VBA - SaberExcel VBA - Video Aulas       
Com Simplicidade e Facilidade,
Escrevendo menos e fazendo mais
Linha de raciocínio de fácil entendimento...

 

35.000 Planilhas MS Excel VBA

 35.000 Planilhas Microsoft Excel VBA, treinamentos, busca, pesquisas, desenvolvimento a partir de exemplos prontos, estudos e pratica com planilhas prontas.
Comprar - Aquisição direto no PagSeguro

Planilha Excel VBA Validacao dados combobox multipla escolha

Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções

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.
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.




 u - Procedimentos de Aquisição dos produtos Didáticos SaberExcel
 Baixe o exemplo de planilha contendo os macros acima:
  icon SBI Excel VBA Validacao dados combobox multipla escolha (46.73 kB)