Notifications
Clear all

Erro ao comparar valores de vetor com celula

2 Posts
2 Usuários
0 Reactions
860 Visualizações
(@teteuvec)
Posts: 6
Active 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 15/05/2017 4:08 am