Erro de tempo de execução 424

Question

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?

Answer 1

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

Answer 2

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

Answer 3

Tenta assim então:

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

---

Natan

Answer 4

Ainda nesta linha que me passou o comando está dando erro 9. Subscrito fora do intervalo

Answer 5

Kelvin, 

você precisa renomear com o nome da sua planilha.

---

Natan