none
Ajuda Excel Formulario UserForms RRS feed

  • Pergunta

  • Prezado Evangelista,

    boa tarde!

    Estou precisando de ajuda para fazer um Formulário através de UserForms.
    Está dando erro, quando Clik em "Ok" para salvar,

    dá a mensagem de:

    Erro em Tempo de execução 424:

    O objeto é obrigatório
    Se você puder me ajudar, desde já fico muito agradecido.


    Abraços
    Luiz

    sexta-feira, 2 de julho de 2010 17:46

Respostas

  • O seu erro estava colocando o DDFunc como nome da Sheet que na verdade era Plan3

    Agora com o código abaixo está funcionando,

     

    Abraços,

     

     

    Private Sub CommandButton2_Click()
    Dim UltLin As Long
    With Plan3
    UltLin = .Cells(.Rows.Count, "b").End(xlUp).Row + 1
    End With
    Plan3.Cells(UltLin, 1).Value = TextBox1
    Plan3.Cells(UltLin, 2).Value = TextBox2
    Plan3.Cells(UltLin, 3).Value = TextBox3
    Plan3.Cells(UltLin, 4).Value = TextBox4
    Plan3.Cells(UltLin, 5).Value = TextBox5
    Plan3.Cells(UltLin, 6).Value = TextBox6
    Plan3.Cells(UltLin, 7).Value = TextBox7
    Plan3.Cells(UltLin, 8).Value = TextBox8
    Plan3.Cells(UltLin, 9).Value = TextBox9
    Plan3.Cells(UltLin, 10).Value = TextBox10
    Plan3.Cells(UltLin, 11).Value = TextBox11
    Plan3.Cells(UltLin, 12).Value = TextBox12
    Plan3.Cells(UltLin, 13).Value = TextBox13
    Plan3.Cells(UltLin, 14).Value = TextBox14
    Unload Me

    End Sub


    Baldini Fabio
    quinta-feira, 15 de julho de 2010 16:14

Todas as Respostas

  • Olá Luiz como vai,

     

    Você poderia disponibilizar o código depois que é apertado esse "Ok" para salvar,

     

    Abraços,


    Baldini Fabio
    • Sugerido como Resposta Baldini sexta-feira, 2 de julho de 2010 21:31
    sexta-feira, 2 de julho de 2010 21:26
  • Ola, Baldini...

    O Comando que estou usando para o Botão "Ok" é:

    Private Sub CommandButton2_Click()
    Dim UltLin As Long
    With DDFunc
    UltLin = .Cells(.Rows.Count, "b").End(xlUp).Row + 1
    End With
    DDFunc.Cells(UltLin, 1).Value = TextBox1
    DDFunc.Cells(UltLin, 2).Value = TextBox2
    DDFunc.Cells(UltLin, 3).Value = TextBox3
    DDFunc.Cells(UltLin, 4).Value = TextBox4
    DDFunc.Cells(UltLin, 5).Value = TextBox5
    DDFunc.Cells(UltLin, 6).Value = TextBox6
    DDFunc.Cells(UltLin, 7).Value = TextBox7
    DDFunc.Cells(UltLin, 8).Value = TextBox8
    DDFunc.Cells(UltLin, 9).Value = TextBox9
    DDFunc.Cells(UltLin, 10).Value = TextBox10
    DDFunc.Cells(UltLin, 11).Value = TextBox11
    DDFunc.Cells(UltLin, 12).Value = TextBox12
    DDFunc.Cells(UltLin, 13).Value = TextBox13
    DDFunc.Cells(UltLin, 14).Value = TextBox14
    Unload Me
    End Sub

    e está dando erro:

    Erro em Tempo de execução 424:
     
    O objeto é obrigatório

    Abraços

    Luiz

     

    terça-feira, 13 de julho de 2010 15:04
  • Olá Luiz como vai,

     

    Altere esse código para

     

    UltLin = .Cells(.Rows.Count,2).End(xlUp).Row + 1

     

    Ou se não apagaram a sheet "DDFunc"

     

    Abraços,


    Baldini Fabio
    • Sugerido como Resposta Baldini terça-feira, 13 de julho de 2010 15:09
    terça-feira, 13 de julho de 2010 15:09
  • Olá, Baldini, tudo bem,

    Fiz a alteração, mas continua dando o mesmo erro. A planilha com o nome de "DDFunc", ela existe, e neste mesmo arquivo existe outras planilhas mas com nome diferente. Teria como eu mandar o arquivo para você verificar!

    Abraços,

    Luiz

     

    quinta-feira, 15 de julho de 2010 14:35
  • Olá Cunha como vai, isso por gentileza você poderá enviar a sua planilha para o meu email, fabio.baldini@hotmail.com Abraços,
    Baldini Fabio
    • Sugerido como Resposta Baldini quinta-feira, 15 de julho de 2010 14:51
    quinta-feira, 15 de julho de 2010 14:50
  • O seu erro estava colocando o DDFunc como nome da Sheet que na verdade era Plan3

    Agora com o código abaixo está funcionando,

     

    Abraços,

     

     

    Private Sub CommandButton2_Click()
    Dim UltLin As Long
    With Plan3
    UltLin = .Cells(.Rows.Count, "b").End(xlUp).Row + 1
    End With
    Plan3.Cells(UltLin, 1).Value = TextBox1
    Plan3.Cells(UltLin, 2).Value = TextBox2
    Plan3.Cells(UltLin, 3).Value = TextBox3
    Plan3.Cells(UltLin, 4).Value = TextBox4
    Plan3.Cells(UltLin, 5).Value = TextBox5
    Plan3.Cells(UltLin, 6).Value = TextBox6
    Plan3.Cells(UltLin, 7).Value = TextBox7
    Plan3.Cells(UltLin, 8).Value = TextBox8
    Plan3.Cells(UltLin, 9).Value = TextBox9
    Plan3.Cells(UltLin, 10).Value = TextBox10
    Plan3.Cells(UltLin, 11).Value = TextBox11
    Plan3.Cells(UltLin, 12).Value = TextBox12
    Plan3.Cells(UltLin, 13).Value = TextBox13
    Plan3.Cells(UltLin, 14).Value = TextBox14
    Unload Me

    End Sub


    Baldini Fabio
    quinta-feira, 15 de julho de 2010 16:14
  • Ok, Baldini

    Está Funcionando mesmo, fico  muito agradecido por ter me ajudado. Agora só para eu entender a Plan3 que eu renomei para DDFunc, na hora de escrever o código não posso escrever DDFunc e sim Plan3, que é a original !!!

     

    Mais uma Pergunta, agora que está funcionando, surgiu mais uma dúvida quando estou inserindo os dados precisava que inserisse a partir da Coluna B, só que está inserindo partir da Coluna A, tem como resolver!!!

     

    Muito Obrigado

     

    Abraços

    Luiz

    quinta-feira, 15 de julho de 2010 17:29
  • Olá Cunha tem sim

    É só mudar o 1 para 2 em diante conforme o exemplo abaixo,

    Abração

    Private Sub CommandButton2_Click()
    Dim UltLin As Long
    With Plan3
    UltLin = .Cells(.Rows.Count, "b").End(xlUp).Row + 1
    End With
    Plan3.Cells(UltLin, 2).Value = TextBox1
    Plan3.Cells(UltLin, 3).Value = TextBox2
    Plan3.Cells(UltLin, 4).Value = TextBox3
    Plan3.Cells(UltLin, 5).Value = TextBox4
    Plan3.Cells(UltLin, 6).Value = TextBox5
    Plan3.Cells(UltLin, 7).Value = TextBox6
    Plan3.Cells(UltLin, 8).Value = TextBox7
    Plan3.Cells(UltLin, 9).Value = TextBox8
    Plan3.Cells(UltLin, 10).Value = TextBox9
    Plan3.Cells(UltLin, 11).Value = TextBox10
    Plan3.Cells(UltLin, 12).Value = TextBox11
    Plan3.Cells(UltLin, 13).Value = TextBox12
    Plan3.Cells(UltLin, 14).Value = TextBox13
    Plan3.Cells(UltLin, 15).Value = TextBox14
    Unload Me

    End Sub


    Baldini Fabio
    • Sugerido como Resposta Baldini quinta-feira, 15 de julho de 2010 21:00
    quinta-feira, 15 de julho de 2010 21:00
  • Olá Baldini,

    Valeu mesmo, mais uma vez muito obrigado, caso resolvido.

     

    Abraços

    Luiz

    sexta-feira, 16 de julho de 2010 14:58
  • Imagina, quando precisar estaremos a disposição, só coloque como resposta ali em cima hehe

    Abração!


    Baldini Fabio
    • Sugerido como Resposta Baldini sexta-feira, 16 de julho de 2010 15:27
    sexta-feira, 16 de julho de 2010 15:27