Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

SelectionChange cuando sólo parte de la selección cumple una condición

  • Autor del tema Autor del tema mais17
  • Fecha de inicio Fecha de inicio

mais17

New member
Registrado
26 Sep 2011
Mensajes
24
Buenos días.

Tengo una macro que asigna un valor a las celdas de un rango al seleccionar celdas de otro rango y en función del formato de las celdas de este segundo rango. Las celdas tienen un...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Así creo que funciona:
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Celda As Range
If Not Intersect(Target, Range("A1:D17")) Is Nothing Then
   For Each Celda In Target
       If Celda.DisplayFormat.Interior.Color = vbWhite Then
          Celda.Offset(0, 6).Value = 1
       End If
   Next
End If
If Target.Address = "$G$20" Then Range("G1:J17").ClearContents
End Sub
Hola Fernando.

Ante todo, muchas gracias por tu rápida respuesta. Ha funcionado en parte. Ya no me pone unos en las celdas de color.

Pero tiene un comportamiento un poco extraño. Si el rango...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

  • Selec. 3 columnas.webp
    Selec. 3 columnas.webp
    23 KB · Visitas: 0
  • Selec. 4 columnas.webp
    Selec. 4 columnas.webp
    23,1 KB · Visitas: 0
  • Selec. 5 columnas.webp
    Selec. 5 columnas.webp
    34 KB · Visitas: 0
Así creo que funciona:
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Celda As Range
If Not Intersect(Target, Range("A1:D17")) Is Nothing Then
   For Each Celda In...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
  • Me gusta
Reacciones: FGV
Volver
Arriba