none
Erro de tempo de execução 424 RRS feed

  • Pergunta

  • Está acontecendo o seguinte problema no meu sistema

    Tenho uma tabela, ou uma das abas do excel do excel que se chama Cadastro de Recibo correto?

    Ai eu tenho um formulário ao qual eu insiro os dados e após clicar no botão ele deveria gravar nesta aba acima. Porém, como diz o título, estou com este erro.

    Meu código fonte é o seguinte

          

    Private

    MInha tabela Sub CommandButton5_Click()
       Dim ultimalinha As Object
       Set ultimalinha = cadastroderecibo.Range("b994").End(xlUp)
       ultimalinha.offsite(1, 0).Value = nrecibo.Text
       ultimalinha.offsite(1, 1).Value = valor.Text
       ultimalinha.offsite(1, 2).Value = receb.Text
       ultimalinha.offsite(1, 3).Value = referente.Text
       ultimalinha.offsite(1, 4).Value = cidade.Text
       ultimalinha.offsite(1, 5).Value = data.Text
       ultimalinha.offsite(1, 6).Value = beneficiado.Text
       ultimalinha.offsite(1, 7).Value = cnpj.Text

    End Sub

    **Obs**

    Minha tabela é possível digitar das céllulas (b3:i995). O que faço para resolver este problema?

    terça-feira, 11 de junho de 2019 02:24

Todas as Respostas

  • Kelvin

    altera pra isso:

    Sub CommandButton5_Click()
       
       Dim ultimalinha As Range
       Set ultimalinha = cadastroderecibo.Range("b994").End(xlUp)
       ultimalinha.Offset(1, 0).Value = nrecibo.Text
       ultimalinha.Offset(1, 1).Value = valor.Text
       ultimalinha.Offset(1, 2).Value = receb.Text
       ultimalinha.Offset(1, 3).Value = referente.Text
       ultimalinha.Offset(1, 4).Value = cidade.Text
       ultimalinha.Offset(1, 5).Value = Data.Text
       ultimalinha.Offset(1, 6).Value = beneficiado.Text
       ultimalinha.Offset(1, 7).Value = cnpj.Text
    
    End Sub


    Natan

    terça-feira, 11 de junho de 2019 10:57
  • Natan, agradeço a ajuda

    Eu preciso te dar um respaldo.

    O programa está dando erro

    Dim ultimalinha As Range
       Set ultimalinha = cadastroderecibo.Range("b994").End(xlUp) - aquele mesmo erro nesta linha, pois na verdade esta tabela é assim. Cadastro de Recibo.
       ultimalinha.Offset(1, 0).Value = nrecibo.Text
       ultimalinha.Offset(1, 1).Value = valor.Text
       ultimalinha.Offset(1, 2).Value = receb.Text
       ultimalinha.Offset(1, 3).Value = referente.Text
       ultimalinha.Offset(1, 4).Value = cidade.Text
       ultimalinha.Offset(1, 5).Value = data.Text
       ultimalinha.Offset(1, 6).Value = beneficiado.Text
       ultimalinha.Offset(1, 7).Value = cnpj.Text

    quarta-feira, 12 de junho de 2019 00:46
  • Tenta assim então:

     Set ultimalinha = sheets("Nome da Planilha").Range("B1048576").End(xlUp)


    Natan

    quarta-feira, 12 de junho de 2019 12:04
  • Ainda nesta linha que me passou o comando está dando erro 9. Subscrito fora do intervalo
    quarta-feira, 12 de junho de 2019 23:32
  • Kelvin, 

    você precisa renomear com o nome da sua planilha.


    Natan

    quinta-feira, 13 de junho de 2019 13:05