Anónimo
Cambiar color en la medida que se cambie de celda
Al ingresar un código de producto en celda a1 que esta esté de color amarillo, luego tengo que ingresar el nombre del producto en b1 y que sea esta celda la tenga el color amarillo y a1 no. Luego al ingresar cantidad en c1, ésta celda quede en amarillo y no b1 y así sucesivamente. Agradecido por la respuesta y saludos.
1 Respuesta
. 13.03.17 #VBA cambio color celda
Buenas tardes, Mauricio
Si te hubiese entendido correctamente, la siguiente rutina hace lo que solicitas.
Haz click con el botón derecho del mouse sobre la pestaña de la hoja donde quieres que ocurra lo que solicitas. Elije la opción "Ver Código" y pega el siguiente código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'MAURICIO, modifica aquí el rango donde debe accionar la rutina: RangoIN = "A4:D1000" ' Cells.Interior.Pattern = xlNone Set ISECT = Application.Intersect(Range(RangoIN), Target) If Not ISECT Is Nothing Then Target.Interior.Color = 65535 Set ISECT = Nothing End Suba
Nota que, al inicio del código, dejé una variable para acotar el rango de esa hoja donde hacer lo que solicitaste. De esa manera puedes hacerlo tan amplio o ajustado como necesites.
Hasta donde probé hace lo que solicitas.
Espero que te haya ayudado.
Un abrazo
Fernando
.