Guru do Excel e Power BI

Enviado: **30 Jul 2019 às 13:14**

Boa Tarde Senhores.

O tópico Validação de valores foi resolvido, porém na minha planilha eu importo informações e as limpo quando analiso, então quando é feita a nova importação e limpeza, a formatação condicional some.

Assim, gostaria de aplicar a mesma condição em vba para que eu a chame quando importar meus dados.

Diante disso eu tentei aplicar as funções criadas pelo Osvaldo, mas não chego ao resultado desejado.

Se possível, alguém poderia identificar onde errei na minha macro?

O que pretendo? Que se o valor inserido no intervalo de "B" da plan1 esteja no intervalo de "B" da plan2 a condição seja verdadeira e as células fiquem verde, senão em amarelo.

'=CONT.SE(Plan2!$B:$B;$B2)
'=CONT.SE(Plan2!$B:$B;$B2)=0

Enviado: **30 Jul 2019 às 16:26**

Use esse Script. Acho que está funcionando kkk...

Código: Selecionar todos

Sub Contar_Valores()
Dim var As Double

For i = 2 To Plan1.Range("B2").End(xlDown).Row
    With Plan1
        var = WorksheetFunction.CountIf(Sheets("Plan2").Range("B2:B20000"), .Cells(i, 2))
        If var = 0 Then
            .Cells(i, 4).Interior.ColorIndex = 6 ' célula em amarelo
        Else
            .Cells(i, 4).Interior.ColorIndex = 4 'célula em verde
        End If
    End With
Next

End Sub

Enviado: **30 Jul 2019 às 20:47**

Experimente:

Código: Selecionar todos

Sub AplicaFC()
 With Range("B2:B" & Cells(Rows.Count, 2).End(3).Row)
  .FormatConditions.Delete
  .FormatConditions.Add Type:=xlExpression, Formula1:="=CONT.SE(Plan2!$B:$B;$B2)"
  .FormatConditions(1).Interior.ColorIndex = 4
  .FormatConditions.Add Type:=xlExpression, Formula1:="=CONT.SE(Plan2!$B:$B;$B2)=0"
  .FormatConditions(2).Interior.ColorIndex = 6
 End With
End Sub

Enviado: **31 Jul 2019 às 07:38**

Muito obrigado Osvaldo e Eduardo.

Guru do Excel e Power BI

Validação de valores em VBA

Validação de valores em VBA

Validação de valores em VBA

Re: Validação de valores em VBA

Re: Validação de valores em VBA