Colores de fondo en celdas

22/04/2005 - 18:04 por Age | Informe spam

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.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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

Responder a este mensaje

#2 Héctor Miguel

23/04/2005 - 09:33 | Informe spam

hola, chicos !

Age escribio en el mensaje ...
... matriz de objetivos... bitacora mes a mes de... cumplimientos... mas 20 proyectos.
... codigo... para que cuando yo escriba... en e3,f3,g3 y h3... e2,f2,g2 y h2... un color amarillo [...]

KL escribio en el mensaje ...
... en el modulo VBA de la hoja en cuestion: [...]

[solo] comentar que cuando se modifican las propiedades de rangos ->por codigo<-...
-> SE PIERDE el 'beneficio' del deshacer... undo... ctrl+z [la pila de niveles es 'vaciada'] :(
[creo que] para 'el caso' que se plantea [una especie de 'grafica de gantt']...
-> seria [igualmente] 'funcional' si se aprovechan los formatos condicionales [p.e.]
suponiendo que necesitas que el rango 'E2:H2' se pinte de amarillo cuando el rango 'E3:F3' NO este 'vacio'...
selecciona el rango 'E2:H2' [o hasta donde sea 'necesario'] y...
[menu] formato / formato condicional...
-> condicion1... ->formula<-
-> formula... =o(e3<>"",e3>0)
-> [boton] formato... => selecciona la 'trama/color' que necesitas... y 'acepta'

si cualquier duda... comentas?
saludos,
hector.
p.d. toma nota que 'mi' separador de argumentos es la coma ',' NO el punto y coma ';' ;)

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida