Seleccionar un grupo de 10 celdas en la misma columna

En una consulta que he realizado para Seleccionar 10 celdas en la misma columna comenzando por la celda actual, se me olvidó especificar que las celdas sobre las cuales deben ser activadas las 10 de su respectivas columnas, pertenecen sólo a un rango (D4:H4)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
''Creada por FSerrano en 120315
''para Angeles88 en TodoExpertos.com
''Selecciona un grupo de 10 celdas, en la misma columna, comenzando el celda actual
Range(ActiveCell.Address & ":" & ActiveCell.Offset(9, 0).Address).Select
End Sub

¿Me podéis ayudar?

Gracias

1 respuesta

Respuesta
1

Te dejo el código modificado para lo que necesitas. Saludos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
''Creada por FSerrano en 120315
''para Angeles88 en TodoExpertos.com
''Selecciona un grupo de 10 celdas, en la[color=#666666] [/color]misma columna, comenzando en la celda actual
If Target.Row = 4 And Target.Column >= 4 And Target.Column <= 8 Then
    Range(ActiveCell.Address &":" & ActiveCell.Offset(9, 0).Address).Select
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas