MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Ajuda com UserForm

    Compartilhe

    sossego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 16/01/2017

    Ajuda com UserForm

    Mensagem  sossego em Seg 16 Jan 2017, 15:35

    Bom Dia

    Gostaria de adaptar este codigo para quando clico na linha G16 Planilha 01(MENU)
    mostra os itens que tem na Planilha 02(BD_Produtos) na coluna 2


    Option Explicit
    Private TextoDigitado As String
    Private Sub ListBox1_Click()
    ActiveCell.Value = ListBox1.Value
    Unload Me
    End Sub

    Private Sub TextBox1_Change()
    TextoDigitado = TextBox1.Text
    Call PreencheLista
    End Sub

    Private Sub UserForm_Initialize()
    Call PreencheLista
    End Sub

    Private Sub PreencheLista()
    Dim ws As Worksheet
    Dim i As Integer
    Dim TextoCelula As String
    Set ws = ThisWorkbook.Worksheets(2)
    i = 1
    ListBox1.Clear
    With ws
    While .Cells(i, 2).Value <> Empty
    TextoCelula = .Cells(i, 1).Value
    If UCase(Left(TextoCelula, Len(TextoDigitado))) = UCase(TextoDigitado) Then
    ListBox1.AddItem .Cells(i, 1)
    End If
    i = i + 1
    Wend
    End With
    End Sub
    Anexos
    Projeto.xlsm
    Você não tem permissão para fazer download dos arquivos anexados.
    (328 Kb) Baixado 6 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3637
    Registrado : 20/04/2011

    Re: Ajuda com UserForm

    Mensagem  Silvio em Seg 16 Jan 2017, 15:58

    Olá, boa tarde.

    O MaximoAccess é um fórum destinado ao desenvolvimento de produtos para o MS Access.

    Sugiro buscar algum fórum para o MS Excel.

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e boa sorte !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    sossego
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 16/01/2017

    Re: Ajuda com UserForm

    Mensagem  sossego em Seg 16 Jan 2017, 16:01

    ok

    obrigado
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6433
    Registrado : 05/11/2009

    Re: Ajuda com UserForm

    Mensagem  Alexandre Neves em Dom 22 Jan 2017, 17:13

    Boa tarde, e bem-vindo ao fórum
    Se resolveu, marque o botão "Resolvido"


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Ter 17 Out 2017, 19:56