none
Erro em tempo de execução ‘13’ : Tipos Incompatíveis RRS feed

  • Pergunta

  • Pessoal, preciso de ajuda!

    Estou fazendo um código para copiar as informações de um cadastro e colar em uma planilha, ocorre que algumas dessas informações estão em células mescladas e acredito que este seja o erro. Eu não sei como prosseguir, podem me ajudar?

    Código Fonte:

    Sub BotaoCadastrarPropriedades()

    perg = MsgBox("Deseja cadastrar essas propriedades na base de dados?", vbExclamation + vbYesNo, "Informação")
         If perg = vbNo Then
            MsgBox "Item não incluso na base!", vbInformation, "Informação"
            Exit Sub
         End If

    lin = 2
    Do Until Sheets("CadastrodeTratamentos").Cells(lin, 1) = ""
        lin = lin + 1
    Loop

    data_cadastro = Now()
    Sheets("CadastrodeTratamentos").Cells(lin, 1) = data_cadastro

    Sheets("CadastrodeTratamentos").Cells(lin, 4) = Sheets("CadastroTratamentoTermico").Range("D5") * 1
    Sheets("CadastrodeTratamentos").Cells(lin, 5) = Sheets("CadastroTratamentoTermico").Range("D9") * 1

    Sheets("CadastrodeTratamentos").Cells(lin, 7) = Sheets("CadastroTratamentoTermico").Range("D12") * 1
    Sheets("CadastrodeTratamentos").Cells(lin, 8) = Sheets("CadastroTratamentoTermico").Range("D14") * 1
    Sheets("CadastrodeTratamentos").Cells(lin, 9) = Sheets("CadastroTratamentoTermico").Range("D18") * 1
    Sheets("CadastrodeTratamentos").Cells(lin, 10) = Sheets("CadastroTratamentoTermico").Range("D20") * 1
    Sheets("CadastrodeTratamentos").Cells(lin, 11) = Sheets("CadastroTratamentoTermico").Range("D22") * 1

    """AQUI ESTÃO OS COMANDOS QUE APRESENTAM O ERRO - TODOS CÉLULAS MESCLADAS:

    'Sheets("CadastrodeTratamentos").Cells(lin, 2) = Sheets("CadastroTratamentoTermico").Range("P26:R26") * 1
    'Sheets("CadastrodeTratamentos").Cells(lin, 6) = Sheets("CadastroTratamentoTermico").Range("G12:R14") * 1
    'Sheets("CadastrodeTratamentos").Cells(lin, 12) = Sheets("CadastroTratamentoTermico").Range("H18:J18") * 1
    'Sheets("CadastrodeTratamentos").Cells(lin, 13) = Sheets("CadastroTratamentoTermico").Range("H20:J20") * 1
    'Sheets("CadastrodeTratamentos").Cells(lin, 14) = Sheets("CadastroTratamentoTermico").Range("H22:J22") * 1

    Sheets("CadastroTratamentoTermico").Range("P26:R26") = ""
    Sheets("CadastroTratamentoTermico").Range("D4") = ""
    Sheets("CadastroTratamentoTermico").Range("D8") = ""
    Sheets("CadastroTratamentoTermico").Range("G12:R14") = ""
    Sheets("CadastroTratamentoTermico").Range("D12") = ""
    Sheets("CadastroTratamentoTermico").Range("D14") = ""
    Sheets("CadastroTratamentoTermico").Range("D18") = ""
    Sheets("CadastroTratamentoTermico").Range("D20") = ""
    Sheets("CadastroTratamentoTermico").Range("D22") = ""
    Sheets("CadastroTratamentoTermico").Range("H18:J18") = ""
    Sheets("CadastroTratamentoTermico").Range("H20:J20") = ""
    Sheets("CadastroTratamentoTermico").Range("H22:J22") = ""
    Sheets("CadastroTratamentoTermico").Range("B1:S1").Select

    MsgBox "Item incluso na base com sucesso!", vbInformation, "Informação"


    End Sub

    Grata.

    Li

    quinta-feira, 25 de outubro de 2018 00:58

Todas as Respostas

  • Olá, boa noite.

    O endereço de células mesclas sempre corresponde ao endereço da primeira célula do intervalo, não importando quantas linhas ou colunas o intervalo contenha. Creio que se considerar desta forma não terá problema nas linhas indicadas acima.

    Peço que teste por favor.

    Abraço.


    Filipe Magno

    quinta-feira, 25 de outubro de 2018 02:17