locked
Combox RRS feed

  • Pergunta

  • Boa tarde!!!

    Em plan1 tenho um cadastro de fornecedores (código e descrição).

    Tem como eu "jogar" este cadastro para uma combo, sem usar vba?

    Me desculpem, mas talvez a questão para vocês seja muito simples, mas eu que estou iniciando no excel, ta um sufoco.

    Att

    Luciano

    terça-feira, 23 de novembro de 2010 18:19

Todas as Respostas

  • Bom dia Felipe!!!

    Grato pela atenção!!!

    Fazer com 2 colunas, como estou acostumado ao access, é possivel fazer, veja como necessito :

    001|Fornecedor1

    002|Fornecedor2

    Att

    Luciano

    quarta-feira, 24 de novembro de 2010 13:30
  • Boa tarde!!!

    Outra dúvida.

    Selecionei células de A1:A20, porém, nem todas estão preenchidas no cadastro ainda, e na combox o cursor fica na primeira posição nula, não tem como, se possível, deixar em ordem alfabética e o cursor no primeiro item na lista?

    Att

    Luciano

    quarta-feira, 24 de novembro de 2010 18:37
  • Não entendi sua pergunta em relação às duas perguntas.

    Sobre sua última pergunta, é possível fazer um ComboBox com filtros. No entanto, esse objeto não poderá ser um Controle de Formulário, como você inseriu, mas um Controle ActiveX. Ao criá-lo, cole o código:

    Const strInvervaloEntrada As String = "A1:A20"
    Const strVínculoCélula As String = "B1"
    
    Private Sub ComboBox1_GotFocus()
      
      Dim rng As Range
      Dim rLast As Long
      
      With ActiveSheet
        ComboBox1.Clear
        For Each rng In .Range(strInvervaloEntrada)
          If rng <> vbNullString Then
            ComboBox1.AddItem rng
          End If
        Next rng
      End With
    
    End Sub
    
    Private Sub ComboBox1_Change()
      With ActiveSheet.Range(strVínculoCélula)
        On Error Resume Next
        .Value = WorksheetFunction.Match(ComboBox1.Value, ActiveSheet.Range(strInvervaloEntrada), 0)
        If Err.Number > 0 Then
          .Value = 0
          Err.Clear
        End If
        On Error GoTo 0
      End With
    End Sub


    http://www.ambienteoffice.com.br
    quinta-feira, 25 de novembro de 2010 23:11