Filtro Por Cor

[fahledu]

tem como fazer um filtro por cor?

[Lisandro Oliveira]

tem como fazer um filtro por cor?

Em VBA dá, é só você colocar dentro dos ifs o codigo para fazer o filtro.

Verifica se a cor do fundo da célula A1 é amarela

Sub cor()

Range("a1").Select

If Selection.Interior.ColorIndex = 6 And Selection.Interior.Pattern = xlSolid Then

Range("d1").Value = "OK, a cor de fundo é amarela"

Else

Range("d1").Value = "A cor de fundo não é amarela"

End If

End Sub

Verifica se a cor da fonte da Célula A1 é amarela.

Sub lis()

Range("a1").Select

If Selection.Font.ColorIndex = 6 Then

Range("d1").Value = "OK, a cor da fonte é amarela"

Else

Range("d1").Value = "A cor da fonte não é amarela"

End If

End Sub

Qualquer coisa retorne,

Abraços

Lisandro Oliveira.

[fahledu]

Valeu Lisandro,

Agora estou com um probleminha, mais uma duvida do que problema...

peguei a função que me passou e tentei adaptar com uma outra que por mera coicidencia do destino você que me passou...rs

veja:

Sub ConverterMaiuscula()

Dim lis As Range

Dim a As Integer

a = 1

For Each lis In Selection

If lis.Value = Selection.Interior.ColorIndex = 6 And Selection.Interior.Pattern = xlSolid Then

Range("D" & a).Value = "M"

a = a + 1

GoTo aa

End If

a = a + 1

aa:

Next

End Sub

Eu não manjo praticamente nada de vba, mas minha intenção era fazer marcar com "m" da celula "D" se o campo "A" fosse amarelo, até que funcionaou, mas so na primeira linha e era pra ir marcando em todas as que estivesse selecioadas. Onde esta meu erro?

valeu

Abraços

[Lisandro Oliveira]

Valeu Lisandro,

Agora estou com um probleminha, mais uma duvida do que problema...

peguei a função que me passou e tentei adaptar com uma outra que por mera coicidencia do destino você que me passou...rs

veja:

Sub ConverterMaiuscula()

Dim lis As Range

Dim a As Integer

a = 1

For Each lis In Selection

If lis.Value = Selection.Interior.ColorIndex = 6 And Selection.Interior.Pattern = xlSolid Then

Range("D" & a).Value = "M"

a = a + 1

GoTo aa

End If

a = a + 1

aa:

Next

End Sub

Eu não manjo praticamente nada de vba, mas minha intenção era fazer marcar com "m" da celula "D" se o campo "A" fosse amarelo, até que funcionaou, mas so na primeira linha e era pra ir marcando em todas as que estivesse selecioadas. Onde esta meu erro?

valeu

Abraços

E ae fahledu, beleza??

Tente agora com esse código:

Sub ConverterMaiuscula()

Dim lis As Range

Dim a As Integer

a = 1

For Each lis In Selection

lis.Select

If Selection.Interior.ColorIndex = 6 And Selection.Interior.Pattern = xlSolid Then

Range("D" & a).Value = "M"

a = a + 1

GoTo aa

End If

a = a + 1

aa:

Next

End Sub

Qualquer coisa retorne

Abraços

Lisandro Oliveira

[fahledu]

Humm, tava incompleto...

beleza agora ficou redondo, vlw

Abraços

[Lisandro Oliveira]

Humm, tava incompleto...

beleza agora ficou redondo, vlw

Abraços

Falow, abraços.