none
Preenchimento Automatico com VBA via formulario. RRS feed

  • Pergunta

  • Olá, estou escrevendo o seguinte código, porém, quando eu não insiro o que está em negrito o código da erro, ou seja, eu necessito escrever duas linhas na planilha a mão para depois o formulário começar a funcionar. Não sei pq está dando esse erro, o formulário deveria funcionar na linha 1 já. Por favor, estou aberto a soluções.

     Sub DINAMICO()
        
        Dim LINHA As Byte, PREENCHIMENTO As String, PREENCHIMENTOTWO As Currency, PREENCHIMENTOTRES As String
        
        Range("A1") = "PRODUTO"
        Range("B1") = "VALOR"
        Range("C1") = "SOBRENOME"
        Range("A2") = "-"
        Range("B2") = "-"
        Range("C2") = "-"
        
        LINHA = Range("A1").End(xlDown).Row + 1
            
        PREENCHIMENTO = InputBox("NOME")
        PREENCHIMENTOTWO = InputBox("VALOR")
        PREENCHIMENTOTRES = InputBox("SOBRENOME")
        
        Range("A" & LINHA) = PREENCHIMENTO
        Range("B" & LINHA) = PREENCHIMENTOTWO
        Range("C" & LINHA) = PREENCHIMENTOTRES
        
        End Sub
    segunda-feira, 6 de julho de 2020 03:26

Todas as Respostas

  • Danilo,

    com as informações que você nos deu não é possível verificar o erro.

    Pegando seu código e jogando em um arquivo novo ele executa normalmente, o que me faz concluir que o ambiente atual é diferente.

    Verifique se a planilha está ativa e não está bloqueada para edição.

    Se não conseguir, nos envie mais informações sobre o ambiente.

    Abraço!


    Natan

    terça-feira, 7 de julho de 2020 12:01