Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Colores de fondo en celdas

22/04/2005 - 18:04 por Age | Informe spam
Ayuda Hacer una pregunta
Genere una matriz de objetivos la cual repsentara la bitacora mes a mes de
sus cumplimientos, la cual cuenta com mas 20 proyectos.

en las celdas:

D1 tengo texto
D2 Tengo texto
D3 Tengo Texto

En las celdas de la e2:h2 tengo en avance proyecatado es decir el
cumplimineto
las cueles tieen un color para identificar los mese de cumplimiento de
proyecto inicio y final.

En las celda e3,f3,g3 y h3, escribo el avance realizado por mes es decir e3
representa enero y si cumpli con mi vanece le pongo 100%.

aqui va la pregunto, cual seria el codigo VBA, para que cuando yo escriba
algo en e3,f3,g3 y h3, por separado, se ponga de fondo en la celdas e2,f2,g2
y h2, segun vaya insertado un adato el la filas 3 de dichas columnas, se
sobre de un color amarillo.

es decir si yo escribo algo en e3, e2 tenga un fondo amarillo!! y asi en
cada celda que se inster un dato.

Gracias.
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 KL
22/04/2005 - 18:25 | Informe spam
Hola Age,

Prueba poner el codigo que te pòngo a continuacion en el modulo VBA de la
hoja en cuestion:

Saludos,
KL

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rng As Range
On Error Resume Next
Set rng = Intersect(Target, Me.Rows(3))
Dim celda As Range
If rng Is Nothing Then Exit Sub
For Each celda In rng
If celda <> "" Then
celda.Offset(-1, 0).Interior.ColorIndex = 6
Else
celda.Offset(-1, 0).Interior.ColorIndex = 0
End If
Next celda
End Sub

o esta que escaneara todas las celdas del rango y no solo las que han
cambiado:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim celda As Range
If Intersect(Target, Me.Rows(3)) Is Nothing Then Exit Sub
For Each celda In Me.Range("3:3")
If celda <> "" Then
celda.Offset(-1, 0).Interior.ColorIndex = 6
Else
celda.Offset(-1, 0).Interior.ColorIndex = 0
End If
Next celda
End Sub

Preguntas similares

 

Busqueda sugerida :