Inquiridor
Erro de tempo de execução 424

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?
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
-
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 -
-
-