Excel - pintar columnas segun letra en la cabecera

   
Vista:

pintar columnas segun letra en la cabecera

Publicado por djnilo (2 intervenciones) el 01/09/2015 21:21:12
buenas tardes
amigos del foro si alguien me puede ayudar por favor trato de pintar unas columnas o celda segun la letra ejemplo la F, H , S

pero el problema es que las cabezeras solamente tienen las letras y mas abajo deberia pintarla columnas o celdas

este es mi codigo el codigo funciona cuando las columnas o celdas tienen valor yo necesito cuando las cabezeras tengan la letra F,H,S pinte las columnas segun la letra que tenga las cabezeras



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub PonerColor()
 
    For i = 2 To ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
        For j = 1 To 40
            If UCase(Cells(i, j)) = "H" Or _
                (IsNumeric(Cells(i, j)) And _
                Cells(i, j) > 20 And Cells(i, j) <= 40) Then
                Cells(i, j).Interior.ColorIndex = 6  'AMARILLO
            '
            ElseIf UCase(Cells(i, j)) = "S" Or _
                (IsNumeric(Cells(i, j)) And _
                Cells(i, j) >= 50) Then
                Cells(i, j).Interior.ColorIndex = 3
            '
            ElseIf UCase(Cells(i, j)) = "F" Then
                Cells(i, j).Interior.ColorIndex = 1
            '
            ElseIf UCase(Cells(i, j)) = "H" Or _
                UCase(Cells(i, j)) = "H" Then
                Cells(i, j).Interior.ColorIndex = xlNone
            '
            ElseIf UCase(Cells(i, j)) = "F" Or _
                (IsNumeric(Cells(i, j)) And _
                Cells(i, j) <= 0.05) And _
                Cells(i, j) <> "" Then
                Cells(i, j).Interior.ColorIndex = 4
            End If
        Next
    Next
End Sub
foto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder