Cambio de color

On 24 ene, 17:44, "AnSanVal" wrote:

Bueno... intentaré explicarte lo mejor que pueda.
En los pasos que has seguido te sobran los dos últimos
( -->Insertar>modulo). Ya que ese NO es el módulo de la hoja sino
un módulo ordinario.

El módulo de la hoja depende de que hoja quieres controlar. Como ahora ya
sabemos que es la Hoja1, ya en eleditor de VBA, haz doble clic en la hoja 1
del Explorador de proyectos. Esto hace que se muestre, a la derecha, una
hoja en blanco. En ella es donde debes pegar el código que te ofrecí.
Pruébalo y comenta.

Saludos desde Tenerife.
**********************************
escribió en el mensajenews:
On 24 ene, 14:09, "AnSanVal" wrote:





> ¿No hace nada? :-(( ... Yo lo he probado antes de ofrecértelo.

> Creo que el código no le has colocado en el módulo de la hoja.

> Detalla los pasos que has seguido, para poder ver en que puedes haberte
> equivocado.

> Yo tengo Office 2003.

> Saludos desde Tenerife.
> **********************

> Hola Ansanval, probe el codigo que mandaste pero no funciona, no
> corre, no hace nada ..que me equivoque otra vez.

> Saludos
> Juank

Ansanval

El codigo que me as enviado lo pego en el modulo de la hoja
hoja1-> alt+F11-->Insertar>modulo

y en la hoja1 tengo las columnas A y B con datos que no van a cambiar,
ya estan las celdas escritaspero en el futuro se van a
cambiar y justamente al cambiarse quiero que cambie de color si es que
son modificadas (ojo no hay formulas en estas columna) y si se
cambiaran mas de una vez que aparezca en la columna C un contador de
cuantas veces se cambio el color.

Saludos
Juank- Ocultar texto de la cita -

- Mostrar texto de la cita -

Holas Ansanval

Le hice unas modificaciones al codigo que me enviaste por que quiero
que la columna A este intacta y cada vez que modifique la columna B
suceda cambie de color en la primera modificacion, pero esto sucede al
segundo intento..pro que? que esta mal y cuando regreso al texto
original sigue del mismo color..qe esta mal?

Saludos
Juabk


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
' impide borrar el dato.
If Target.Value = Empty And Target.Offset(, 1).Value <> "" Then
Application.Undo
Target.Offset(, 1).Value = Target.Offset(, 1).Value - 1
If Target.Offset(, 1).Value = 0 Then Target.Interior.ColorIndex
xlNone
Exit Sub
End If
If Target.Offset(, 1).Value = "" Then
' primera escritura.
Target.Offset(, 1).Value = 0
Else
' valor modificado.
Target.Offset(, 1).Value = Target.Offset(, 1).Value + 1
Target.Font.ColorIndex = 33
End If
End If
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' impide acceder a la columna A.
If Target.Column = 1 Then ActiveCell.Offset(, 1).Select
If Target.Cells.Count > 1 Then
Selection.Select
' impide selección de rango múltiple que incluya A o B.
If ActiveCell.Column < 3 Then ActiveCell.Select
End If
End Sub

Hola Juan.

En tu consulta original escribiste:
{Hola a todos, quisiera saber si es posible que teniendo una lista de
datos en la columna A8:A200 cambie de color (azul poe ejm) al
modificar por primera vez y cada vez que se modifique me indique en la
columna B las veces que se modifico (contador), ¿como uso el formato
condicional aqui, es necesario vb?desde ya gracias por su apoyo.}

Resumen:
1.- Datos modificables en A y contador en B.


Ahora cambias a:
{Le hice unas modificaciones al codigo que me enviaste por que quiero
que la columna A este intacta y cada vez que modifique la columna B
suceda cambie de color en la primera modificacion, pero esto sucede al
segundo intento..pro que? que esta mal y cuando regreso al texto
original sigue del mismo color..qe esta mal?}

Resumen:
1.- La columna A intacta y modificar la columna B (ya no hay contador y el
orden es a la inversa) ¿...?.
2.- Hablas de que cambie de color al modificar, ¿Estás teniendo en cuenta,
que cuando escribes un dato por primera vez en la celda, no lo estás
modificando sino creándolo, y que cuando modificas el valor "por primera
vez" (segunda entrada de datos en la misma celda), es cuando realmente lo
modificas?. Asi he interpretado yo tus palabras y para ello te construí el
código.
3.- Dices que cuando regresas al texto original sigue del mismo color. a) de
eso no hablaste en tu consulta original. b) ¿Cual debe tomar Excel como
"texto original"?, ¿El primero que se escribe en la celda, o cualquiera que
vuelva al valor anterior (p.e. modificación 4 a modificación 3)?.

Para esto último, tendras que: antes de modificar decirle a Excel cual es el
"texto original", para que luego pueda compararlo.

Espero que con esto quede más o menos claro, porque el código actua de una
manera y no de otra.

Para que el código haga lo que tu quieres que haga... antes debes tener
claro tú, que es lo que pretendes conseguir, y luego trasmitirme (o
transmitirnos) a mi (o a nosotros) la idea, con la mayor cantidad de datos
posibles.

Saludos desde Tenerife.
************************************

On 25 ene, 18:11, "AnSanVal" wrote:

Hola Juan.

En tu consulta original escribiste:
{Hola a todos, quisiera saber si es posible que teniendo una lista de
datos en la columna A8:A200 cambie de color (azul poe ejm) al
modificar por primera vez y cada vez que se modifique me indique en la
columna B las veces que se modifico (contador), ¿como uso el formato
condicional aqui, es necesario vb?desde ya gracias por su apoyo.}

Resumen:
1.-   Datos modificables en A y contador en B.

Ahora cambias a:
{Le hice unas modificaciones al codigo que me enviaste por que quiero
que la columna A este intacta y cada vez que modifique la columna B
suceda cambie de color en la primera modificacion, pero esto sucede al
segundo intento..pro que? que esta mal y cuando regreso al texto
original sigue del mismo color..qe esta mal?}

Resumen:
1.-   La columna A intacta y modificar la columna B (ya no hay contador y el
orden es a la inversa) ¿...?.
2.-  Hablas de que cambie de color al modificar, ¿Estás teniendo en cuenta,
que cuando escribes un dato por primera vez en la celda, no lo estás
modificando sino creándolo, y que cuando modificas el valor "por primera
vez" (segunda entrada de datos en la misma celda), es cuando realmente lo
modificas?. Asi he interpretado yo tus palabras y para ello te construí el
código.
3.- Dices que cuando regresas al texto original sigue del mismo color. a) de
eso no hablaste en tu consulta original. b) ¿Cual debe tomar Excel como
"texto original"?, ¿El primero que se escribe en la celda, o cualquiera que
vuelva al valor anterior (p.e. modificación 4 a modificación 3)?.

Para esto último, tendras que: antes de modificar decirle a Excel cual es el
"texto original", para que luego pueda compararlo.

Espero que con esto quede más o menos claro, porque el código actua de una
manera y no de otra.

Para que el código haga lo que tu quieres que haga... antes debes tener
claro tú, que es lo que pretendes conseguir, y luego trasmitirme (o
transmitirnos) a mi (o a nosotros) la idea, con la mayor cantidad de datos
posibles.

Saludos desde Tenerife.
************************************

Ansanval
Si tienes razon, lo que pasa que en el intento de desarrollar un
cronograma de actividades me toque con este problema, donde una
columna es lo programado pero con el tiempo van saliendo adicionales y
varia ademas como esta realizado por zonas y viendo la cantidad de
filas por que ya no eran hasta 200 sino creo hasta 670 me vino esa
idea pero e usado tu bloqueo de columnas y al costado en la columna C
(otro texto identico que A hice un copi ) y le puse formato
condicional poniendo para cualquier variacion se ponga de color
azul, ..listo pero ahora el problema es que cuando alguien lo habra
necesariamente tenga que habilitar macros sino igual van a poder
variar la columna A.
Lamento a ver variado el pedido inicial pero fue lo que se me vino a
la mente pero ya encaminado salieron otras cosas, creo que devi
avisar, disculpa y muchas gracias.

Saludos
Juank