Color azul Automatico al Crear una Formula
oscarinn B@discussions.microsoft.com CP oscarinn B
Soy CP y manejo mucho Excel aplicando formulas a las operaciones para
simplificar el trabajo.
Tengo a 2 personas que me ayudan cuando tengo otros asuntos en que ocuparme
y les encargo la contabilidad, pero tengo miedo de que borren o modifiquen
por error las formulas, o yo mismo las puedo borrar si no me fijo que han
creado una formula ya que no se distinguen de las demas celdas a menos que se
coloque uno en la celda para verlo en la barra de formulas.
He estado aplicando a las formulas un color azul de fuente pero esto lo hago
manualmente y me quita tiempo y concentracion.
Mi pregunta es si existe algun truco o metodo para hacer que al introducir
formulas se pongan en color azul automaticamente.
No se de macros o algo similar pero si porfavor me explican los pasos a
seguir se los agradecere mucho
tengo office 2003 sp2
Atte. Oscar Bravo
Gustavo Marinoni
seleccionar la opción Avanzado y allí encontrarás una opción para seleccionar
solo celdas con formulas.
De esta forma puedes cambiarle el formato a todas las celdas con formula de
una sola vez y no tener que hacerlo una por una.
Espero te sirva.
Saludos,
Gustavo
http://masexcel.blogspot.com
"CP oscarinn B" escribió:
Ignacio
Si te atreves con las macros, menú Herramientas, submenú Macro, opción
Editor de Visual Basic, o simplemente Alt+F11.
En la ventana de código que se muestra, si no pulsa F7, pega este
código:
Sub DestacaFórmulas()
Dim i As Integer, j As Integer
For i = 1 To Range("A1").CurrentRegion.Rows.Count
For j = 1 To Range("A1").CurrentRegion.Columns.Count
If Cells(i, j).HasFormula Then
Cells(i, j).Interior.ColorIndex = 42
End If
Next
Next
End Sub
A continuación ejecuta el código pulsando F5. Si te sale la ventana de
macros selecciona DestacaFórmulas y pulsa el botón <Ejecutar>.
La macro pone de fondo azul las celdas con fórmulas dentro de la zona
hasta la primera fila y columna vacías.
Espero que te resulta de utilidad.
Un saludo,
Ignacio.
AnSanVal
De modo autom�tico (para futuras entradas con f�rmula):
En el m�dulo de la hoja que quieres controlar, copia/pega o escribe el
siguiente c�digo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula Then Target.Font.ColorIndex = 5
End Sub
Pasos:
1.- Pulsa Control + F11 (se muestra el editor de VBA).
2.- A la izquierda haz doble clic en el nombre de la hoja que quieres
controlar. Si no se ven los nombres de las hojas (Explorador de proyectos) ,
pulsa Control + R.
3.- A la derecha copia/pega o escribe el c�digo de arriba.
Saludos: Antonio.
********************
"CP oscarinn B" <CP oscarinn B...@discussions.microsoft.com> escribi� en el
mensaje news:EE39F239-3943-4847...@microsoft.com...
AnSanVal
Mi propuesta anterior pone de azul (tal como pides) el texto, pero si
quieres que sea el fondo; Cambia "Font" por el texto "Interior" (sin
comillas).
************************
"CP oscarinn B" <CP oscarinn B...@discussions.microsoft.com> escribi� en el
mensaje news:EE39F239-3943-4847...@microsoft.com...
CP oscarinn B
problema y bueno gracias por apoyarme, espero que esto lo puedan ver muchas
personas que tengan el mismo problema que yo tuve, o simplemente que lo tomen
en cuenta para facilitarles las cosas.
Gracias y buen día.
Atte Oscar Bravo
"AnSanVal" wrote:
>
> De modo automático (para futuras entradas con fórmula):
>
>
> En el módulo de la hoja que quieres controlar, copia/pega o escribe el
> siguiente código:
>
>
>
>
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If Target.HasFormula Then Target.Font.ColorIndex = 5
>
> End Sub
>
>
>
>
> Pasos:
>
> 1.- Pulsa Control + F11 (se muestra el editor de VBA).
>
> 2.- A la izquierda haz doble clic en el nombre de la hoja que quieres
> controlar. Si no se ven los nombres de las hojas (Explorador de proyectos) ,
> pulsa Control + R.
>
> 3.- A la derecha copia/pega o escribe el código de arriba.
>
>
>
>
> Saludos: Antonio.
>
> ********************
>
> "CP oscarinn B" <CP oscarinn B...@discussions.microsoft.com> escribió en el
> mensaje news:EE39F239-3943-4847...@microsoft.com...
> > Hola a todos los que integran este gran foro.
> > Soy CP y manejo mucho Excel aplicando formulas a las operaciones para
> > simplificar el trabajo.
> > Tengo a 2 personas que me ayudan cuando tengo otros asuntos en que
> > ocuparme
> > y les encargo la contabilidad, pero tengo miedo de que borren o modifiquen
> > por error las formulas, o yo mismo las puedo borrar si no me fijo que han
> > creado una formula ya que no se distinguen de las demas celdas a menos que
> > se
> > coloque uno en la celda para verlo en la barra de formulas.
> > He estado aplicando a las formulas un color azul de fuente pero esto lo
> > hago
> > manualmente y me quita tiempo y concentracion.
> > Mi pregunta es si existe algun truco o metodo para hacer que al introducir
> > formulas se pongan en color azul automaticamente.
> > No se de macros o algo similar pero si porfavor me explican los pasos a
> > seguir se los agradecere mucho
> > tengo office 2003 sp2
> > Atte. Oscar Bravo
> >
>
>
> .
>
H�ctor Miguel
(solo por no "dejarlo en el tintero", aunque ya existen otras consultas con esta propuesta)
no requiere de macros pero podria no funcionar si se copia/corta - pega desde celdas con formatos diferentes
1) selecciona la celda 'A1' y ve a (menu) insertar / nombre / definir...
-> define un nombre [p.e. TieneFormula]
-> usa la siguiente macro-funcion de excel4: =indicar.celda(48,!a1) y... 'acepta'
nota el signo '!' para indicar la celda como relativa y SIN referencia a la hoja <= OJO
2) selecciona "el rango" (otoda la hoja puedes usar, puedes usar alguno de los siguientes metodos...)
-> el recuadro de donde parten los encabezados de fila/columna
-> los atajos de teclado ctrl+espacio Y mayusc+espacio o... ctrl+mayusc+flecha_arriba+espacio
3) ve a (menu) formato / formato condicional...
-> selecciona condicion: formula
-> usa la siguiente formula: =tieneformula
-> aplica los formatos de tu preferencia... y 'acepta'
solo toma nota que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';'
y no pierdas de vista que existe un limite para el numero de celdas con formatos personalizados
(ademas) las macrofunciones de excel4 en nombres-definidos DEBEN escribirse en el idioma de la aplicacion <= OJO
si el excel donde se CREA es en ingles... -> cambia la formula a: =get.cell(48,!a1)
si cualquier duda... comentas ?
saludos,
hector.
CP oscarinn B
Que tal Hector gracias por tu aportación, nada mas que no se como aplicar la
formula =indicar.celda(48,!a1) y sobre que selda o rango por que me lase
funcion no valida.
Otra cuestion es para que rangos aplicaria ya que primero establesco nombre
a la celda en a1 y luego creo un rango, todoe sto ultimo no lo he podido
comprobar porque me sale Funcion no valida.
Perdona mi ignorancia pero no se que sea excel4
Seguimos en Contacto.
"Héctor Miguel" wrote:
> .
>
H�ctor Miguel
> ... no se como aplicar la formula =indicar.celda(48,!a1) y sobre que selda o rango por que me lase funcion no valida.
> Otra cuestion es para que rangos aplicaria ya que primero establesco nombre a la celda en a1 y luego creo un rango
> todoe sto ultimo no lo he podido comprobar porque me sale Funcion no valida.
> Perdona mi ignorancia pero no se que sea excel4
solo necesitas leer (quiza con mas detenimiento) y seguir las instrucciones en los pasos 1, 2 y 3
1) crear un nombre (AQUI es donde se utiliza la funcion: =indicar.celda(......)
2) seleccionar el rango para
3) aplicar formatos condicionales
ElProfe
En relación con la "macro-funcion de excel4" a que te refieres:
=indicar.celda(48,!a1)
1) Existen otras 47 anteriores que hacen alguna otra cosa?
2) Despues del 48 tambien hay más numeros?
3) Estas macro-funciones no figuran documentadas en las versiones 2003
o 2007 de Excel?
Saludos y gracias.
ElProfe
H�ctor Miguel
> En relacion con la "macro-funcion de excel4" a que te refieres: =indicar.celda(48,!a1)
>
> 1) Existen otras 47 anteriores que hacen alguna otra cosa?
> 2) Despues del 48 tambien hay m�s numeros?
> 3) Estas macro-funciones no figuran documentadas en las versiones 2003 o 2007 de Excel?
son "macro-funciones" del (viejo ???) excel version 4.0 :D
funcionan en "hojas de macro" (macro-sheets) o...
(algunas) ejecutadas desde vba son (incluso) mas rapidas que vba con el metodo ExecuteExcel4Macro
(algunas) integrandolas a funciones a traves de nombres definidos ;)
puedes descargar el archivo de ayuda sobre las funciones de las macros de MS Excel 4.0
desde cualquiera de las siguientes direcciones (son archivos en el viejo formato del winhelp)
XL97: Archivo disponible Macro97.exe en servicios en linea
http://support.microsoft.com/kb/e143466/
Archivo disponible Macrofun.exe en servicios en linea
http://support.microsoft.com/kb/e128185/
saludos,
hector.