none
O Método 'Range' do objeto '_WorkSheet' falhou RRS feed

  • Discussão Geral

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

    quinta-feira, 26 de dezembro de 2019 15:05

Todas as Respostas

  • 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)

    quinta-feira, 26 de dezembro de 2019 16:44
  • 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 ?

    sexta-feira, 27 de dezembro de 2019 14:25