Combox

Question

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

Answer 1

Duas formas:

http://www.ambienteoffice.com.br/excel/validacao_de_dados/

ou

http://www.ambienteoffice.com.br/excel/vincular_caixa_de_combinacao_a_uma_lista/

---

http://www.ambienteoffice.com.br

Answer 2

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

Answer 3

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

Answer 4

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