none
INSERIR CONTEÚDO NO COMBOBOX1 RRS feed

  • Pergunta

  • Amigos boa tarde, tentei deixar uma rotina mais dinâmica e está dando erro poderiam me ajudar:

    Eu quero percorrer a coluna 1 da planilha 2 e colocar os valores no combobox1, mas de forma que se inserir mais linha na planilha ele atualize sozinho está rotina está dento  do evento initialize

    erro de execução 424 "o objeto é obrigatório"

    Dim r As range

     For Each r In ThisWorkbook.Worksheets("Planilha2").Cells(Rows.Count, 1).End(xlUp).Row
        Me.ComboBox1.AddItem r.Cells(1, 1)
      Next r

    sexta-feira, 15 de dezembro de 2017 13:26

Respostas

  • Private Sub UserForm_Initialize()
    
    Dim linhaFinal, linhaInicial As Long
    
    linhaFinal = ThisWorkbook.Worksheets("Planilha2").Cells(Rows.Count, 1).End(xlUp).Row
     For linhaInicial = 1 To linhaFinal
        Me.ComboBox1.AddItem (ThisWorkbook.Worksheets("Planilha2").Cells(linhaInicial, 1).Value)
      Next linhaInicial
    End Sub
    


    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 sexta-feira, 15 de dezembro de 2017 13:53
    • Marcado como Resposta CS_RODRIGO sexta-feira, 15 de dezembro de 2017 17:20
    sexta-feira, 15 de dezembro de 2017 13:53

Todas as Respostas

  • Private Sub UserForm_Initialize()
    
    Dim linhaFinal, linhaInicial As Long
    
    linhaFinal = ThisWorkbook.Worksheets("Planilha2").Cells(Rows.Count, 1).End(xlUp).Row
     For linhaInicial = 1 To linhaFinal
        Me.ComboBox1.AddItem (ThisWorkbook.Worksheets("Planilha2").Cells(linhaInicial, 1).Value)
      Next linhaInicial
    End Sub
    


    A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz diniabr2011@gmail.com

    • Sugerido como Resposta AndersonFDiniz2 sexta-feira, 15 de dezembro de 2017 13:53
    • Marcado como Resposta CS_RODRIGO sexta-feira, 15 de dezembro de 2017 17:20
    sexta-feira, 15 de dezembro de 2017 13:53
  • Obrigado!
    sexta-feira, 15 de dezembro de 2017 17:20