colorear celda al ingresar un dato

¡Importante!: Colabora con el grupo.Contesta a este mensaje
y dinos si te sirvió o no la respuesta dada. Muchas gracias.

Mírate lo de Formato Condicional


SALUDOS.
Julián-Valencia-España
http://ijulian.iespana.es/


"gustavo" escribió en el mensaje
news:

Hola estoy buscando un macro que al ingresar un dato en alguna
celda de un rago establecido, la celda se pinte de un color

muchas gracias

gracias, pero necesito por medio de una macro. Necesito que al
ingresar un dato a la celda se coloree por mas que ya tenia un dato.
En lo posible que al ingresar el dato, salga un mensaje que le
pregunte si quiere que se coloree la celda o no.

deberias de exponer mejor tu caso..

en teoria usar el formato condicional te soluciona. si solo necesitas 3
colores.

como te digo expone mejor tu caso haber en que se te puede ayudar...


un Saludo

Lord Voldemort
Visual Basic 2005

Página de inicio del grupo: http://mx.groups.yahoo.com/group/vb2005Mysql
Dirección de correo del grupo:

"gustavo" escribió en el mensaje
news:

gracias, pero necesito por medio de una macro. Necesito que al
ingresar un dato a la celda se coloree por mas que ya tenia un dato.
En lo posible que al ingresar el dato, salga un mensaje que le
pregunte si quiere que se coloree la celda o no.

gracias por responder voy a tratar de detallar lo que intento
hacer en la hoja.

si el usuario ingresa un numero en el rango ("D18:D20, G18:G20,
E2:E3"), que se pinte la celda de color
Y luego si ingresa un valor en el rago ("E2"), se borren los
formatos(color que se pinto cuando ingreso el numero), en el rago
("D18:D20").

Esta es la formula que estoy usando, pero recien estoy aprendiendo a
usar las macros y no se en que le estoy errando
Muchas gracias si me pueden ayudar, y mis disculpas si no supe
expresar lo que necesito.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim vrange As Range
Set vrange = Range("E2")
If Union(Target, vrange).Address = vrange.Address Then
Range("D18:D20").ClearFormats
End If

If Intersect(Target, Range("D18:D20, G18:G20, E2:E3")) Is Nothing
Then Exit Sub
If Target <> "a" Then
Target.Interior.ColorIndex = 4
End If
End Sub

yo me encuentro en una situación similar, yo quisiera ver la
posibilidad de saber cual es la macro que pueda hacer la funciòn de si
anoto en una celda un número , me coloree la celda del color que le
corresponda, esto es del 1-10 cada número tiene un color distinto

Por su atención
GRACIAS