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!

Rango dinámico

Notapor 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
AlexRB
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 9
Registrado: 28 Jun 2018 14:16

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: LGBUJAN y 5 invitados