Como remplazar un rango de celdas con una variable
Hola Amigos
Quiero ordenar automáticamente unas columnas cuando se carguen o modifiquen datos en alguna de ellas, las columnas pueden ser 10, 100 o 1000, esto es lo que voy a usar:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("k2:k218")) Is Nothing Then
Range("k2:k218").Sort key1:=Range("k2"), order1:=xlAscending, Header:=xlNo, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Sub
Mi pregunta es: como sustituyo ese rango Range("k2:k218") con una variable utilizando la celda modificada, me explico si no fue en la columna K sino en la columna AA o ZZ, las celdas 2 a la 218 nunca cambiaran y como concatenaría esa variable.
Gracias
Respuesta de Luis Mondelo
1
Ok, utiliza la macro así:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, activesheet.usedrange) Is Nothing Then
Range("k2:k218").Sort key1:=Range("k2"), order1:=xlAscending, Header:=xlNo, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End If
End Subrecuerda finalizar la consulta
