Cambio de color

He probado el siguiente código y me funciona (el ejemplo controla todo el
rango A:B). No se si se me escapa algún supuesto.

En el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 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.Interior.ColorIndex = 33
End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' impide acceder a la columna B.
If Target.Column = 2 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

Saludos desde Tenerife.
************************
escribió en el mensaje
news:
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.

Saludos cordiales,
Juank

On 24 ene, 12:45, "AnSanVal" wrote:

He probado el siguiente código y me funciona (el ejemplo controla todo el
rango A:B). No se si se me escapa algún supuesto.

En el módulo de la hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 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.Interior.ColorIndex = 33
    End If
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ' impide acceder a la columna B.
  If Target.Column = 2 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

Saludos desde Tenerife.
************************
escribió en el mensajenews:
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.

Saludos cordiales,
Juank

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

Saludos
Juank

¿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

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

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 mensaje
news:
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