Página 1 de 1

Variável com valor diferente do Array

Enviado: 31 Jul 2019 às 16:55
por italo013
Boa tarde!

Pessoal, não entendo muito de VBA to apanhando e aprendendo. Eu queria fazer uma macro que se o valor que estiver na variável (estado_civil) for diferente de algum dos valores do Array, então ele seguiria o If. Segue o código que eu montei até agora.

i = 34
indice = Array(1, 2, 3, 4, 5, 6, 9)

For j = 1 To tamanho

If tp_vinculo(j) = 1 Or tp_vinculo(j) = 2 Or tp_vinculo(j) = 3 Or tp_vinculo(j) = 0 Or tp_vinculo(j) = "" Then

If estado_civil(j) <> indice Then
falta(i) = falta(i) + 1
Sheets("Crítica Ativos").Cells(10 + falta(i), 35) = matricula(j)
End If

End If

Next j

Re: Variável com valor diferente do Array

Enviado: 31 Jul 2019 às 17:21
por eduardogrigull
Tenta assim:
Código: Selecionar todos
Dim indice As String

indice = "1,2,3,4,5,6,9"

i = 34


For j = 1 To tamanho
    If tp_vinculo(j) = 1 Or tp_vinculo(j) = 2 Or tp_vinculo(j) = 3 Or tp_vinculo(j) = 0 Or tp_vinculo(j) = "" Then
        verifica = InStr(indice, estado_civil(j))
        If verifica Is Not Null Then
            falta(i) = falta(i) + 1
            Sheets("Crítica Ativos").Cells(10 + falta(i), 35) = matricula(j)
        End If
    
    End If
Next j

Variável com valor diferente do Array

Enviado: 31 Jul 2019 às 17:30
por italo013
Não funcionou deu erro na parte If verifica Is Not Null Then
O que eu queria fazer é o seguinte, tem uma base de dados, na coluna 34 é o estado civil da pessoa e tem os estados que vai de 1 até 9, então se em alguma linha não tiver nenhum desses valores (1 até 9) ai ele dará continuidade ao If.

Variável com valor diferente do Array

Enviado: 01 Ago 2019 às 02:45
por eduardogrigull
Se é só isso, modifique o primeiro If pra isso: (No seu código)

If tp_vinculo(j) = 1 Or tp_vinculo(j) = 2 Or tp_vinculo(j) = 3 Or tp_vinculo(j) = 0 Or tp_vinculo(j) = "" and estado_civil(j) >0 and estado_civil(j) <10 Then

Re: Variável com valor diferente do Array

Enviado: 01 Ago 2019 às 09:24
por italo013
Obg...Ajudou, estava pensando algo mais complexo e era algo mais simples :D