Home Excel - Dicas Microsoft Excel VBA Excel VBA - Userforms e outros Excel planilha vba combobox carrega listbox

Excel planilha vba combobox carrega listbox

E-mail Imprimir PDF

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)

Última atualização em Qua, 16 de Novembro de 2011 14:21  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje3991
mod_vvisit_counterOntem5059
mod_vvisit_counterEsta Semana23497
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês37226
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10460055
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA