Escola Saberexcel VBA Estudos - o site de quem precisa aprender sobre Macros MS Excel VBA
Esses procedimentos do aplicativo Microsoft Excel VBA, carrega objetos combobox ao abrir o userform,
e ao selecionar um ítem nesta combobox , montará uma listbox com os códigos dos lotes, inserindo o valor (código)
em uma textbox editavel, podendo mudar os valores do grupo de lotes na folha de planilha.
'- - - - - - - - - - - - - - - - -
Private Sub cbCODLOTE_Change()
Dim vArea As Excel.Range
Dim vIntervalo As Excel.Range
Dim vItem As Integer
Set vArea = Range("B2:B11")
Me.lstLISTA.Clear
For Each vIntervalo In vArea.Cells
If vIntervalo Like Me.cbCODLOTE Then
Me.lstLISTA.AddItem
Me.lstLISTA.List(vItem, 0) = vIntervalo.Offset(0, -1)
Me.lstLISTA.List(vItem, 1) = vIntervalo
Me.lstLISTA.List(vItem, 2) = vIntervalo.Offset(0, 1)
Me.lstLISTA.List(vItem, 3) = vIntervalo.Offset(0, 2)
vItem = vItem + 1
End If
Next
Me.TextBox1 = ""
End Sub
'- - - - - - - - - - - - - - - - -
Private Sub CommandButton1_Click()
Cells.Replace What:=cbCODLOTE.Value, Replacement:=TextBox1.Value, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
[c1].Select
Unload Me
frmLISTADADOS.Show
End Sub
'- - - - - - - - - - - - - - - - -
Private Sub lstLISTA_Click()
Me.TextBox1 = Me.lstLISTA.List(vItem, 1)
End Sub
'- - - - - - - - - - - - - - - - -
'isso poderá travar o formulário (loop)
'Private Sub TextBox1_Change()
'Dim VL As Range
'Set VL = [B2:B100]
'For Each VL In Selection
'If VL = Me.lstLISTA.List(vItem, 1) Then
' VL = Me.TextBox1.Value
'End If
'Next
'End Sub
'- - - - - - - - - - - - - - - - -
Private Sub UserForm_Initialize()
Me.cbCODLOTE = "SELECIONE UM CÓDIGO"
Me.TextBox1.Value = ""
SendKeys "%{down}"
End Sub
'- - - - - - - - - - - - - - - - -
Escola Saberexcel VBA Estudos Treinamentos com Macros, Fórmulas e Funções
'- - - - - - - - - - - - - - - - -
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.
Baixe o exemplo de planilha contendo os procedimentos acima:
Excel planilha vba pesquisa combobox e listbox (86.94 KB)
