none
Vincular Textbox ao Combobox selecionado RRS feed

  • Pergunta

  • Pessoal me auxiliem nessa dúvida, quero fazer um controle de utilização de armários, existem 200 armários e o uso é alternado.

    Já inseri na planilha os armários e criei o combobox para selecionar o número, abaixo existe o textbox para inserir o número de chapa da pessoa que irá utilizar aquele armário.

    Não estou conseguindo passar o nome da pessoa para o número correspondente ao selecionado no combobox. 

    Segue o código usado até aqui:

    Private Sub TextBox1_Change()

    End Sub

    Private Sub btnvincular_Click()
        Dim iLin As Long
        Dim WS As Worksheet
        Set WS = Worksheets("Armários")
    'Verifica se o usuário foi digitado
        If Trim(Me.TxtNC) = "" Then
            MsgBox "Informe o Número da Credencial"
            Me.TxtNC.SetFocus
            Exit Sub
        End If
    'Escreve os dados na planilha
        WS.Cells(1, 2).Value = Me.TxtNC.Value
        WS.Columns("A:B").AutoFit
        
    'Limpa as caixas de texto e direciona o foco para txtarmario
        Me.TxtNC.Value = ""
    End Sub

    Private Sub txtarmario_Change()

    End Sub

    Private Sub UserForm_Click()

    End Function

    quinta-feira, 29 de outubro de 2020 19:40

Todas as Respostas

  • Olá Bruno, 

    Seu código não está fazendo muito sentido para mim, mas acho que você está faltando algo aqui:

       WS.Cells (1, 2) .Value = Me.TxtNC.Value
         WS.Columns ("A: B"). AutoAjuste

    Encontrei este site (em inglês) que fala sobre um projeto semelhante. Espero que ajude a guiá-lo na direção certa com seu projeto

    https://www.extendoffice.com/documents/excel/5015-excel-userform-populate-textbox-from-combobox.html

    sexta-feira, 30 de outubro de 2020 13:38
    Moderador
  • Muito obrigado Mauricio!

    Deu certo! Abraço

    sexta-feira, 30 de outubro de 2020 14:01