Macro modificar Celda

Hola Croca,

Prueba lo siguiente como punto de partida:

1) haz clic-derecho sobre el nombre de tu hoja en una de las pestañas de la
parte de abajo de la ventana de la ventana.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
rng = "D2:F10"
If Intersect(Target, Me.Range(rng)) _
Is Nothing Then Exit Sub
For Each c In Intersect(Target, Me.Range(rng))
If Not IsEmpty(c) Then
c.Interior.ColorIndex = 3
Else
c.Interior.ColorIndex = 0
End If
Next c
End Sub


4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba modificar las celdas en el rango [D2:F10]

Saludos,
KL


"Croca" wrote in message
news:

Hola Gente: Quisiera ejecutar una macro cuando se modifica una celda, pero
esto lo quiero solo en las celdas que pertenecen a un determinado rango,
como puedo hacer esto.

Saludos Croca

¡¡Perfecto!!

Muchas gracias.

"KL" escribió en el mensaje
news:

Hola Croca,

Prueba lo siguiente como punto de partida:

1) haz clic-derecho sobre el nombre de tu hoja en una de las pestañas de

la

parte de abajo de la ventana de la ventana.
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) En la ventana mas grande a la derecha pega el codigo que te pongo a
continuacion.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
rng = "D2:F10"
If Intersect(Target, Me.Range(rng)) _
Is Nothing Then Exit Sub
For Each c In Intersect(Target, Me.Range(rng))
If Not IsEmpty(c) Then
c.Interior.ColorIndex = 3
Else
c.Interior.ColorIndex = 0
End If
Next c
End Sub


4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba modificar las celdas en el rango [D2:F10]

Saludos,
KL


"Croca" wrote in message
news:
> Hola Gente: Quisiera ejecutar una macro cuando se modifica una celda,

pero

> esto lo quiero solo en las celdas que pertenecen a un determinado rango,
> como puedo hacer esto.
>
> Saludos Croca
>
>