Rango dinámico

Solo consultas sobre macros y código VBA Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
AlexRB
Miembro Frecuente
Miembro Frecuente
Mensajes: 9
Registrado: 28 Jun 2018 14:16

Rango dinámico

Mensaje por AlexRB » 04 Oct 2018 19:53

Buenas tardes, tengo la siguiente macro, pero necesito que el rango (en negritas) sean dinámicos ya que continuamente estoy cargando datos.

Sub Ordenar()
ActiveWorkbook.Worksheets("Seguimientos").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Seguimientos").Sort.SortFields.Add(Range("H3:H252") _
, xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(255 _
, 255, 204)
ActiveWorkbook.Worksheets("Seguimientos").Sort.SortFields.Add Key:=Range( _
"A3:A252"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"2,3,4,1", DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Seguimientos").Sort
.SetRange Range("A2:Q252")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub



Responder