O Método 'Range' do objeto '_WorkSheet' falhou

Question

Estou desenvolvendo cadastro de cliente, no entanto na hora de salvar os dados do cadastro aparece o seguinte erro.

O Método 'Range' do objeto '_WorkSheet' falhou

'cadastro de informações
Public Sub Cadastrar()
Call EfeitoMenuAcao
linha = 30
Do Until shtDados.Cells(linha, "A") = ""
linha = linha + 1
Loop

For a = 0 To 35
shtDados.Cells(linha, "A").Offset(0, a) = shtCadastro.Range("Cad_" & a).Value
Next
MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Cadastro de Informações"

End Sub

O erro consta na linha em negrito. Alguém poderia me ajudar?

Answer 1

Boa tarde.

Offset(0, a)

Esse a no seu offset é uma variável? Pois se não for, já está errado ai.

Pois, você não está passando o a como o texto, que se for o caso, deveria estar entre aspas.

A mesma coisa acontece em shtCadastro.Range("Cad_" & a)

Answer 2

Public linha As Integer

'cadastro de informações
Public Sub Cadastrar()
Call EfeitoMenuAcao
linha = 30
Do Until shtDados.Cells(linha, "A") = ""
linha = linha + 1
Loop

For a = 0 To 15
shtDados.Cells(linha, "A").Offset(0, a) = shtCadastro.Range("Cad_" & a).Value
Next
MsgBox "Dados Cadastrados com Sucesso", vbInformation, "Cadastro de Informações"

End Sub

Como então devo fazer para salvar estes dados ?