24/10/2008, 06:29
|
| | | Fecha de Ingreso: septiembre-2007 Ubicación: Badajoz City
Mensajes: 126
Antigüedad: 17 años, 4 meses Puntos: 0 | |
| Respuesta: Seleccionar rango por color de fondo
Mira a a ver así: Cita: Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngFechas As Range
Set rngFechas = Range("D:D, F:F")
If (Union(Target, rngFechas).Address = rngFechas.Address) And ((Target.Interior.ColorIndex = 2) Or (Target.Interior.ColorIndex = 5)) Then _
Call abrir_calendario
End Sub |