varios formatos condicionales

Si, por favor mandame un ejemplo

Gracias

No tienes que ejecutarlo, el código se debería ejecutar

él sólo cada vez que se edite cualquier celda de la hoja.
Lo único que tienes que hacer es pegar el código en la
ventana de código (la más grande, a la derecha) que
aparece al abrirse el editor de VBA.

Si no consigues que te funcione, dímelo y te envío un

libro con un ejemplo.

Un saludo.


Fernando Arroyo
MS MVP - Excel

escribió en el mensaje

news:90a201c3ea45$9151dc50$

Muchas gracias,

pero como lo ejecuto?
al pegar en el módulo de la hoja (click derecho sobre su
etiqueta->Ver código):
me abre una ventana VBA, pero no se como ejecutarla.

Saludos.


.

Creo que ya entiendo cual es el problema. Supongo que quieres que las celdas que ya tienen datos cambien de color si cumplen alguna de las condiciones, y esto es algo que el código que he puesto no va a hacer puesto que sólo evalúa la celda que se acaba de editar.

Para evaluar las celdas que ya tienen datos, tendrías que ejecutar una sola vez el siguiente código, una vez que el otro código estuviera ya operativo:

Sub DarFormato()
Dim rngC As Range

Application.ScreenUpdating = False
For Each rngC In Worksheets("Hoja1").UsedRange 'Hoja1 tendrás que sustituirlo por el nombre de la hoja
rngC = rngC
Next rngC
Application.ScreenUpdating = True

Set rngC = Nothing
End Sub


teniendo en cuenta que el código anterior debe estar en un módulo creado por ti, para lo cual tendrás que:
- abrir el editor de VBA pulsando Alt+F11
- hacer Insertar->Módulo
- pegar el código en la ventana de código (la más grande, a la derecha)
- modificar el nombre de la hoja si no se llamara Hoja1 (en la instrucción For Each...)
- ejecutar el código con F5

Una vez ejecutado el código, puedes borrar el módulo si quieres porque en principio no lo tendrás que volver a ejecutar.

Si siguieras teniendo problemas te enviaría el libro con el ejemplo.

Un saludo.


Fernando Arroyo
MS MVP - Excel


escribió en el mensaje news:8c4201c3ea4d$871668c0$
Si, por favor mandame un ejemplo

Gracias

Si, exactamente eso.

Creo que ya entiendo cual es el problema. Supongo que

quieres que las celdas que ya tienen datos cambien de
color si cumplen alguna de las condiciones, y esto es
algo que el código que he puesto no va a hacer puesto que
sólo evalúa la celda que se acaba de editar.

Para evaluar las celdas que ya tienen datos, tendrías

que ejecutar una sola vez el siguiente código, una vez
que el otro código estuviera ya operativo:

Sub DarFormato()
Dim rngC As Range

Application.ScreenUpdating = False
For Each rngC In Worksheets

("Hoja1").UsedRange 'Hoja1 tendrás que sustituirlo por el
nombre de la hoja

rngC = rngC
Next rngC
Application.ScreenUpdating = True

Set rngC = Nothing
End Sub


teniendo en cuenta que el código anterior debe estar en

un módulo creado por ti, para lo cual tendrás que:

- abrir el editor de VBA pulsando Alt+F11
- hacer Insertar->Módulo
- pegar el código en la ventana de código (la más

grande, a la derecha)

- modificar el nombre de la hoja si no se llamara Hoja1

(en la instrucción For Each...)

- ejecutar el código con F5

Una vez ejecutado el código, puedes borrar el módulo si

quieres porque en principio no lo tendrás que volver a
ejecutar.

Si siguieras teniendo problemas te enviaría el libro con

el ejemplo.

Un saludo.


Fernando Arroyo
MS MVP - Excel


escribió en el mensaje

news:8c4201c3ea4d$871668c0$

Si, por favor mandame un ejemplo

Gracias


.

Me da un error que dice subindice fuera de rango.
Si puedes me mandas un ejemplo, pero ya te he
dado bastante la lata y no quiero molestarte mas.

Gracias por todo.

Si, exactamente eso.

Creo que ya entiendo cual es el problema. Supongo que

quieres que las celdas que ya tienen datos cambien de
color si cumplen alguna de las condiciones, y esto es
algo que el código que he puesto no va a hacer puesto

que

sólo evalúa la celda que se acaba de editar.

Para evaluar las celdas que ya tienen datos, tendrías

que ejecutar una sola vez el siguiente código, una vez
que el otro código estuviera ya operativo:

Sub DarFormato()
Dim rngC As Range

Application.ScreenUpdating = False
For Each rngC In Worksheets

("Hoja1").UsedRange 'Hoja1 tendrás que sustituirlo por

el

nombre de la hoja

rngC = rngC
Next rngC
Application.ScreenUpdating = True

Set rngC = Nothing
End Sub


teniendo en cuenta que el código anterior debe estar en

un módulo creado por ti, para lo cual tendrás que:

- abrir el editor de VBA pulsando Alt+F11
- hacer Insertar->Módulo
- pegar el código en la ventana de código (la más

grande, a la derecha)

- modificar el nombre de la hoja si no se llamara

Hoja1

(en la instrucción For Each...)

- ejecutar el código con F5

Una vez ejecutado el código, puedes borrar el módulo si

quieres porque en principio no lo tendrás que volver a
ejecutar.

Si siguieras teniendo problemas te enviaría el libro

con

el ejemplo.

Un saludo.


Fernando Arroyo
MS MVP - Excel


escribió en el mensaje

news:8c4201c3ea4d$871668c0$

Si, por favor mandame un ejemplo

Gracias


.

.