none
Tenho o seguinte código, que está dando o erro "Erro em tempo de execução '424' : O objeto é obrigatório" RRS feed

  • Pergunta

  • Sub preencherlistbox()

    Dim ultimalinha As Long
    Dim Linha As Integer


    ultimalinha = Plan1.Range("A65000").End(xlUp).Row

    For Linha = 2 To ultimalinha

    UserForm.ListBox1.AddItemPlan1.Range ("A" & Linha)

    UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Plan1.Range("C" & Linha) = Plan1.Range("D" & Linha) = Plan1.Range("E" & Linha) = Plan1.Range("F" & Linha) = Plan1.Range("G" & Linha) = Plan1.Range("H" & Linha)



    Next


    End Sub
    terça-feira, 13 de novembro de 2018 11:46