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

PROMOÇÃO DIDÁTICOS SABEREXCEL



Adquira já o Acesso Imediato
à Area de Membros

Compra Grantida --- Entrega Imediata

Aprenda Excel VBA com Simplicidade de 
códigos e Eficácia, Escrevendo Menos e
Fazendo Mais.

'-------------------------------------'
Entrega Imediata:
+  500 Video Aulas MS Excel VBA
+  35.000 Planilhas Excel e VBA
+  Coleção 25.000 Macros MS Excel VBA
+  141 Planilhas Instruções Loops
+  341 Planilhas WorksheetFunctions(VBA)
+    04 Módulos Como Fazer Excel VBA
+  Curso Completo MS Excel VBA
+  Planilhas Inteligentes


Pesquisa Google SaberExcel

Publicidade Google

<script type="text/javascript"><!--

google_ad_client = "ca-pub-2317234650173689";

/* retangulo 336 x 280 */

google_ad_slot = "0315083363";

google_ad_width = 336;

google_ad_height = 280;

//-->

</script>

<script type="text/javascript"

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

Publicidade

RSFirewallProtected


Google Associados

Depoimentos

Muito obrigado pelo rápido envio do produto. Gostaria de parabenizá-lo por seu trabalho. Ao consultar brevemente os arquivos que me enviou fiquei absolutamente impressionado. Um trabalho fantástico. Parabéns! E mais uma vez obrigado! Willian - São Paulo(SP)...

Willian M.
20 May 2011
Muito obrigado. Vou fazer muita propaganda do seu trabalho, muito bom, tudo que conseguir eu te encaminho.Se tiver mais alguns trabalhos no sentido de facilitar o aprendizado estarei a disposição para estar adiquirindo. Fiquei muito feliz com o material recebido ate agora. Valeu, muito obrigado...

Eder - Gerência Orçamento de Gastos
Curitiba-PR
20 April 2011

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