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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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