Macro para cambiar color celda si valor = 0

perecandia escribió el 21/12/2010 10:00 :

¡ Hola !
He creado una macro para cambiar el color de la celda si el valor es igual a 0.
Pero para que se ejecute tengo que seleccionar primero las celdas que quiero
que me compruebe.

He puesto un botón para que se ejecute. Y me gustaría que, sin
tener que seleccionar las celdas, al pulsar el botón me comprobara las
celdas (H11 hasta H100). Adjunto código:

Private Sub CommandButton1_Click()
Dim Celda As Range
For Each Celda In Selection
If Celda.Value Like "*0*" Then
Celda.Interior.ColorIndex = 3
ElseIf Celda.Value Like "*1*" Then
Celda.Interior.ColorIndex = 4
End If
Next
End Sub


Gracias de antemano.

Saludos

Coincido con los demás, para tu inquietud lo mejor es el formato condicional, para los que son nuevos en esto, el formato condicional lo encuentra en formato==> formato condicional, luego se despliega una ventana en la cual te muestra una condición, a la cual le puedes ir agregando más condiciones, en esta condición como se busca cambiar el color de la celda (también se puede el color de la fuente) se escogerá "Valor de la celda" ==> a continuación escoges la prueba lógica por ejemplo "mayor que" ==> y en la siguiente completas la prueba lógica ej: "0" , y cuando la condición sea verdadera se ejecutará el formato seleccionado en "formato..." (Aquí modificas según tus necesidades el color, estilo, de fuente, color de celda, etc.) y para continuar con mas condiciones basta con que le des clic en "agregar" y continuas nuevamente con los pasos anteriores, y para poder hacer efecto este formato condicional, debes seleccionar el rango de celdas que quieres que entren en este criterio.

Espero haberme explayado de buena forma cualquier duda no dudes en consultar