Excel - Color de letra y Color para fondo de Celda

   
Vista:

Color de letra y Color para fondo de Celda

Publicado por Freddy (1 intervención) el 17/10/2011 01:12:28
Si alguien que este ONLINE, por favor necesito de su valiosa y generosa ayuda, lo que quiero es si alguine de ustedes sabe algunas lineas de programacion de macro para excel en donde cuando yo condicione algo esta celda calbie de color de fondo y cambie de color de letra. por favor les ruego que me manden un ejemplo cualquiera, de ante manos les agradesco su ayuda,

salu2
Freddy
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

Color de letra y Color para fondo de Celda

Publicado por Armando Fuenmayor patusnalgason@hotmail.com (1 intervención) el 17/10/2011 23:43:35
' si quieres me envias tu correo y te mando un archivo de excel con el ejemplo
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets("Hoja2").PageSetup.LeftHeader = "Realizado por: Armando Fuenmayor, patusnalgason@hotmail.com"

With Worksheets("Hoja2").Cells(1, 1)
.Value = "Si la cantidad que introduzcas es menor que cero entonces los Color fuente rojo y el interior de la celda es marron "
.Font.Size = 15 ' tamaño de letra
.Font.Bold = True ' Fuente en negrita
.Font.ColorIndex = 1 ' Color fuente = blanco
End With

Worksheets("Hoja2").Cells(7, 1).Value = " Nº "
Worksheets("Hoja2").Cells(7, 2).Value = " Cantidad "
cuantos = 0
x = 1
con = 8
cuenta = 0
While Worksheets("Hoja2").Cells(con, 2).Value <> ""

cuenta = cuenta + 1

Worksheets("Hoja2").Cells(con, 1).Value = x

con = con + 1
x = x + 1
cuantos = x
Wend

con = 7
For i = 1 To cuantos - 1
If (Worksheets("Hoja2").Cells(i + con, 2).Value < 0) Then
With Worksheets("Hoja2").Cells(i + con, 2)
.Font.Bold = True
.Font.ColorIndex = 3
.Interior.ColorIndex = 9
End With
Else

With Worksheets("Hoja2").Cells(i + con, 2)
.Font.Bold = True
.Font.ColorIndex = 7
.Interior.ColorIndex = 4
End With
End If

Next i



End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar