Forums Últimos mensajes - Powered by IBM
 

Algun truco para...

28/10/2009 - 19:44 por !00000 | Informe spam
Tengo celdas con formulas que dan numeros y otras solo numeros, los que
cambian
me gustaria marcar de alguna manera sólo los numeros, para que cualquier
cambio sólo los pueda realizar aqui pero que cuando imprima no salga esa
marca.
Si pusiera rojo los que puedo cambiar en la impresora saldrian en rojo o una
especie negro pero no negro asi que el color no me vale

GRACIAS A TOD@S
 

Leer las respuestas

#1 Héctor Miguel
30/10/2009 - 06:39 | Informe spam
hola (...), ?????

Tengo celdas con formulas que dan numeros y otras solo numeros, los que cambian
me gustaria marcar de alguna manera sólo los numeros
para que cualquier cambio sólo los pueda realizar aqui pero que cuando imprima no salga esa marca.
Si pusiera rojo los que puedo cambiar en la impresora saldrian en rojo o una especie negro pero no negro asi que el color no me vale



utiliza los formatos condicionales para aplicar el color (p.e.) de relleno que prefieras a las celdas que se cambian y...
"condiciona" (por formula en el formato condicional) su aplicacion al valor de "x_celda"
(p.e. que la celda A1 contenga un valor =1) =$a$1=1
(podrias forzar y restablecer el valor de la celda_condicion en el evento '_beforeprint' del libro)
-> tip: para que no se vea el contenido de A1...
aplica un color de fuente blanco o un formato numerico personalizado de SOLO 3 punto y coma => ;;; <
te expongo un ejemplo al final suponiendo que se trata de la "Hoja1"...
si cualquier duda (o informacion adicional)... comentas?
saludos,
hector.

en el modulo de codigo del libro (ThisWorkbook) ==Private Sub Workbook_BeforePrint(Cancel As Boolean)
Worksheets("hoja1").Range("a1") = 1
Application.OnTime Now, "Quitar_color"
End Sub

en un modulo de codigo 'normal' ==Option Private Module
Sub Quitar_color()
Worksheets("hoja1").Range("a1").ClearContents
End Sub

Preguntas similares