Este fórum está sendo desativado

[vellonalves]

Boa Noite!

Estou criando uma logica onde eu verificado o Match de uma coluna e jogo em uma variavel e faço um if onde se essa variavel do match for > 0 realiza uma logica porem esta dando um erro de type mismatch.
Segue o codigo

Dim zero As Double
zero = 0
i = 7

While i < 21

codigo = Worksheets("Interface").Range("G" & i)
onde = Application.Match(codigo, Worksheets("Estoque").Columns(5), 0)
If onde > zero Then
Worksheets("Estoque").Range("A" & onde).Copy
ActiveSheet.Paste Destination:=Worksheets("Interface").Range("G" & i)


Worksheets("Estoque").Range("B" & onde).Copy
ActiveSheet.Paste Destination:=Worksheets("Interface").Range("I" & i)


Worksheets("Interface").Range("F" & i) = "1"


Else
onde2 = Application.Match(codigo, Worksheets("Estoque").Columns(1), 0)

Worksheets("Estoque").Range("A" & onde2).Copy
ActiveSheet.Paste Destination:=Worksheets("Interface").Range("G" & i)


Worksheets("Estoque").Range("B" & onde2).Copy
ActiveSheet.Paste Destination:=Worksheets("Interface").Range("I" & i)



Worksheets("Interface").Range("F" & i) = "1"
End If

Wend

Agradeço desde já

[babdallas]

Anexa uma pasta de trabalho de exemplo, por favor.

[vellonalves]

A macro esta sendo executada porem da um erro de "type mismatch" será que tem como ignorar esse erro?