Notifications
Clear all

Erro ao comparar valores de vetor com celula

2 Posts
2 Usuários
0 Reactions
854 Visualizações
(@teteuvec)
Posts: 0
New Member
Topic starter
 

Prezados boa noite,
Preciso comparar o valor de uma determinada posição da matriz com células para encontrar em qual linha se contra o valor da matriz. Pedindo para escrever o valor dentro da posição da matriz em qualquer célula para averiguar se o valor realmente se encontra entre as células onde estou procurando, o valor escrito é exatamente igual ao valor que se encontra entre o conjunto de células.
O erro que aparece é o seguinte: Erro em tempo de execução "1004": Erro de definição de aplicativo ou definição de objeto

Gostaria da ajuda de vocês para contornar este erro, abaixo segue o código onde aponta o erro:
Obs:
Se trocar o sinal de = para <> na condição do loop, funciona correto, identificando que é diferente. Porém preciso que identifique o que é igual.

    Dim i As Integer
    Dim vet(7, 1) As Variant
    Dim k As Long

'...


'...
    For i = 0 To 7
        Do
            k = k + 1
        Loop Until Sheets("B. Cell Validation").Cells(k, 25 + i) = vet(i, 0)      'A DEPURAÇÃO APONTA O ERRO NESTA LINHA
        vet(i, 1) = k
        k = 0
    Next i
'...
 
Postado : 14/05/2017 10:17 pm
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

teteuvec,

Bom dia!

Muito difícil de resolver dessa forma. Apenas com trechos do código. Anexe seu arquivo aui no fórum de forma compactada com .ZIP.

 
Postado : 15/05/2017 4:08 am