Saltar al contenido

marcar x en distintas columnas

publicado

Buen dia, Normalmente uso este codigo en un archivo que utilizo en el trabajo donde marco  con una "x " celdas a lo largo de toda la columna B:B, hoy intente agregar otras y creo que no lo estoy  haciendo correctamente porque no me aparecen, que necesito hacer para incluirlas correctanebte?

adjunto el codigo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Columns("B:B"), ("D:D"), ("F:F"), ("H:H"), ("J:J"), ("M:M"), ("O:O"), ("Q:Q"), ("S:S"), ("U:U")) Is Nothing Then Exit Sub
     If Target.Row < 5 Then Exit Sub
    If ActiveCell = "x" Then
        ActiveCell = ""
     Else
        ActiveCell = "x"
    End If
    
       End Sub
    


gracias

Featured Replies

publicado
  • Autor

@Toldeman Gracias por tu respuesta pero me da error de sintaxis, que puede estar faltando?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Intersect(Target, Range("B:B,D:D,F:F,H:H,J:J,L:L")) Is Nothing Then Exit Sub
     If Target.Row < 5 Then Exit Sub
    If ActiveCell = "x" Then
        ActiveCell = ""
     Else
        ActiveCell = "x"
    End If
    
       End Sub


 

publicado

Saludos,

con el debido permiso,...

Te falta el "If" supongo...

If Intersect(Target,.....

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.