![sin imagen de perfil sin imagen de perfil](/img/anonymouse.png)
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
![foto](/usr/188000/188490/55e5fa6441304-foto.jpg)
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](/usr/188000/188490/55e5fa6441304-foto.jpg)
Valora esta pregunta
![Me gusta: Está pregunta es útil y esta clara Me gusta: Está pregunta es útil y esta clara](/img/img.png?11.51)
![NO me gusta: Está pregunta no esta clara o no es útil No me gusta: Está pregunta no esta clara o no es útil](/img/img.png?11.51)
0