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
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 40If 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
Valora esta pregunta
0