Excel VBA intermediário 13, criação de formulário ( listbox ) P6

excel vba formulário com caixa de texto e caixa de listagem - aprenda excel vba com códigos simples em nosso blog

NOSSO EBOOK EXCEL VBA GRÁTIS:

CURSO EXCEL BÁSICO GRÁTIS E COMPLETO ( SEM VBA ):

CURSO EXCEL VBA BÁSICO GRÁTIS - NOVA SÉRIE:

CÓDIGOS MENCIONADO NESTE VÍDEO:
Private Sub ListaA_Click()

NuPes = ListaA.List(ListaA.ListIndex, 0)
Call Botao_Pesquisa_Click

End Sub
-------------------------------------------------
Private Sub UserForm_Activate()

Dim Lin As Integer
Dim LinBox As Integer

Dim Aba As Worksheet
Set Aba = Plan4

Me.ListaA.Clear

Lin = 8
LinBox = 0

With Aba
Do Until Aba.Cells(Lin, 1).Value = Empty
With ListaA
.AddItem
.List(LinBox, 0) = Aba.Cells(Lin, 1)
.List(LinBox, 1) = Aba.Cells(Lin, 2)
End With
Lin = Lin + 1
LinBox = LinBox + 1

Loop

End With

End Sub
-------------------------------------------------
Call UserForm_Activate
-------------------------------------------------
ListaA = ListaA.List(NuPes - 1, 0)

[explorarexcel]

Venham conferir o nosso inteligente formulário ( userform ) no Excel para transformar seu trabalho Excel em uma ferramenta afiada. Conheçam também o nosso blog "ExplorarExcel.com" hoje com mais de 80 vídeos sobre Excel em diferentes níveis. Estamos a sua espera!