erro de tempo de execução 13 tipos incompatíveis

Question

seguinte toda vez que estou tentando gravar uma informação ele apresenta o erro de tempo de execução 13

o erro aprresentado esta nessa linha em negrito

'Adicionando o Registro

For i = 2 To ultimalinhaREGISTRO

**If wkFORM.Cells(3, 26).Value = wkREGISTRO.Cells(i, 1).Value And (wkFORM.Cells(2, 26).Value = wkREGISTRO.Cells(i, 20).Value And wkFORM.Cells(6, 26).Value = wkREGISTRO.Cells(i, 22) And wkFORM.Cells(5, 26).Value = wkREGISTRO.Cells(i, 23)) Then** 

    wkFORM.Cells(7, 25).Value = 1 

    wkFORM.Cells(8, 25).Value = wkREGISTRO.Cells(i, 24) 

End If 

Next i

wkREGISTRO.Unprotect "248369"

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Eu não recebi erro do seu código.

View>Immediate Window>Em seguida, use F8, execute seu código passo a passo.

Debug.Print wkFORM.Cells(3, 26).Value  

Debug.Print wkFORM.Cells(2, 26).Value  

Debug.Print wkFORM.Cells(6, 26).Value  

Debug.Print wkFORM.Cells(5, 26).Value  

Debug.Print wkREGISTRO.Cells(i, 1).Value  

Debug.Print wkREGISTRO.Cells(i, 20).Value  

Debug.Print wkREGISTRO.Cells(i, 22).Value  

Debug.Print wkREGISTRO.Cells(i, 23).Value 

Answer 2

APRESENTAÇÃO PEF 2024-- MA.1.xlsm

Answer 3

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Você poderia compartilhar um arquivo de teste para depurar seu código?

Para compartilhar uma pasta de trabalho de exemplo, carregue-a no OneDrive ou em qualquer outra unidade de nuvem. Então poste um link aqui.