Este fórum está sendo desativado

[glaubermoraes93]

Fala Galera Beleza,

É o seguinte tenho um form em que ele copia um determinado conteúdo de uma planilha e cola na outra assim preenchendo os campos necessários,agora preciso aplicar a formatação condicional via vba da seguinte maneira.

Tudo que tiver no intervalo B5:N6 possuir = "C/CABO DOWN" = Colorir a Célula de Vermelho
Tudo que tiver no intervalo B5:N6 possuir = "UP" = Colorir a Célula de Azul
Tudo que tiver no intervalo B5:N6 possuir = "SEM CABO" = Colorir a Célula de Cinza
Tudo que tiver no intervalo B5:N6 for diferente de = "C/CABO DOWN"; "UP" ; "SEM CABO" = Colorir a Célula de Verde

Como ficaria o código?
Não tenho a mínima ideia.

Valeuuu

[Startec]

segue um exemplo...

Código: Selecionar todos

Sub Forma_Condicional()

Dim rng As Range, rg As Range

Set rng = Range("B5:N6")

For Each rg In rng
If rg.Value = "C/CABO DOWN" Then
rg.Interior.Color = vbRed
ElseIf rg.Value = "UP" Then
rg.Interior.Color = rgbGrey
Else: rg.Interior.Color = vbGreen
End If

Next

End Sub