Seleccionar celdas no adyacentes

Hola Ricardo:

Si es en VB la solución sería:

Range("A3:C3,l3:l3").Select

Saludos

Hola,quisiera que me ayudarais aun problema
necesito que cuando se seleccione de cualquier fila el
rango A?:C? se seleccione tambien automaticamente la celda
L de esa fila para poder borrar el contenido de dicho
rango.Gracias
Ricardo
.

hola, Ricardo !

... que cuando se seleccione de cualquier fila el rango A?:C?
... seleccione tambien automaticamente la celda L de esa fila para ... borrar [...]

=>en ningun caso<=... rangos 'discontinuos' en la seleccion 'principal' [A?:C?']
copia las siguientes lineas en el modulo de codigo de 'esa' hoja 'dependiendo' de...
_______
opcion 1 = cuando la 're-seleccion' deba ser por =>una sola fila<Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column > 1 Then Exit Sub
If .Rows.Count = 1 And .Columns.Count = 3 _
Then Union(Selection, Cells(.Row, 12)).Select _
Else Selection.Areas(1).Select
End With
End Sub
_______
opcion 2 = si se podran '[des-]extender' a mas de una linea para la 're-seleccion'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column > 1 Then Exit Sub
If .Columns.Count = 3 Then
Application.ScreenUpdating = False
Selection.Areas(1).Select
Union(Selection, Range(Cells(.Row, 12), Cells(.Row + .Rows.Count - 1, 12))).Select
Else: Selection.Areas(1).Select
End If
End With
End Sub

Muchas Gracias Hector,hasta otra.Saludos
Ricardo

hola, Ricardo !

... que cuando se seleccione de cualquier fila el rango

A?:C?

... seleccione tambien automaticamente la celda L de

esa fila para ... borrar [...]

=>en ningun caso<=... rangos 'discontinuos' en la

seleccion 'principal' [A?:C?']

copia las siguientes lineas en el modulo de codigo

de 'esa' hoja 'dependiendo' de...

_______
opcion 1 = cuando la 're-seleccion' deba ser por =>una

sola fila<>Private Sub Worksheet_SelectionChange(ByVal Target As
Range)

With Target
If .Column > 1 Then Exit Sub
If .Rows.Count = 1 And .Columns.Count = 3 _
Then Union(Selection, Cells(.Row, 12)).Select _
Else Selection.Areas(1).Select
End With
End Sub
_______
opcion 2 = si se podran '[des-]extender' a mas de una

linea para la 're-seleccion'

Private Sub Worksheet_SelectionChange(ByVal Target As

Range)

With Target
If .Column > 1 Then Exit Sub
If .Columns.Count = 3 Then
Application.ScreenUpdating = False
Selection.Areas(1).Select
Union(Selection, Range(Cells(.Row, 12), Cells(.Row

+ .Rows.Count - 1, 12))).Select

Else: Selection.Areas(1).Select
End If
End With
End Sub
.