Macro "X"

[juanmanuel85]

Buenas noches,

Tengo una macro que actualmente utilizo para marcar con una "x" o no segun haga click en una celda, actualmente lo hace sobre toda la columna J como se va a ver en el codigo.

Mi pregunta es como deberia declararlo para decirle que actue  solo en un conjunto de determinadas celdas deseadas , Ej: "(J17;J18;J22;j28)  y no sobre toda la columna como hace actualmente

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Columns("J:J")) Is Nothing Then Exit Sub
    If Target.Row < 2 Then Exit Sub
    If ActiveCell = "x" Then
        ActiveCell = ""
    Else
        ActiveCell = "x"
    End If
End Sub

Muchas gracias

[Manuel_Mendoza]

Tan solo modifica Columns por Range() y pones todas las celdas que participen en la selección deseada.

El primer If ya no será necesario puesto a que estas especificando el rango donde si va a ejecutarse la función.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("J4,J7")) Is Nothing Then Exit Sub
    If ActiveCell = "x" Then
        ActiveCell = ""
    Else
        ActiveCell = "x"
    End If
End Sub

 

[juanmanuel85]

Ya esta, Mil Gracias!!!