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