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

Question

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

Answer 1

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