Re: Macro para cambiar color celda si valor = 0

[thiele]

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

[el1...@gmail.com]

pone el codigo dentro de:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

que es un "procedimiento" del "objeto" "Worksheet" y no dentro del boton con click como haces.
cada vez q se haga un cambio se actualiza
tambien podes proar ponerlo en "change" o en otro procedimiento del objeto Worksheet... siempre dentro de "Worksheet" y no del botton.

espero que te sirva
saludos
david