Como hacer que el código se ejecute hasta el final de los datos
Que líneas de código debo agregar para que se ejecute hasta el final de los datos y no hasta los últimos 100 datos como esta el código
Sub LosQueMasSalen()
Application.ScreenUpdating = False
Range("AP3:AW12").ClearContents
For x = 0 To 9
Range("AP" & x + 3) = x
Range("AR" & x + 3) = x
Range("AT" & x + 3) = x
Range("AV" & x + 3) = x
Next
'--
For x = Range("A" & Rows.Count).End(xlUp).Row - 99 To Range("A" & Rows.Count).End(xlUp).Row
Range("AQ" & 3 + Range("A" & x)) = Range("AQ" & 3 + Range("A" & x)) + 1
Range("AS" & 3 + Range("B" & x)) = Range("AS" & 3 + Range("B" & x)) + 1
Range("AU" & 3 + Range("C" & x)) = Range("AU" & 3 + Range("C" & x)) + 1
Range("AW" & 3 + Range("D" & x)) = Range("AW" & 3 + Range("D" & x)) + 1
Next
'--
Range("AP3:AQ12").Sort Key1:=Columns("AQ"), Key2:=Columns("AP"), Order1:=xlDescending
Range("AR3:AS12").Sort Key1:=Columns("AS"), Key2:=Columns("AR"), Order1:=xlDescending
Range("AT3:AU12").Sort Key1:=Columns("AU"), Key2:=Columns("AT"), Order1:=xlDescending
Range("AV3:AW12").Sort Key1:=Columns("AW"), Key2:=Columns("AV"), Order1:=xlDescending
End Sub
1 respuesta
Respuesta de Elsa Matilde
1
Leo en el código que se está ejecutando DESDE el fin de rango -99 HASTA el fin de rango.
Si tu rango llega hasta la fila 350, se ejecuta desde la fila 251 (350-99) hasta la 350, es decir solo las últimas 100 filas.
Si necesitas que se ejecute desde el inicio, cambia ese inicio en la siguiente instrucción:
ini = 5
For x = Range("A" & ini To Range("A" & Rows.Count).End(xlUp).RowCambia el valor 5 por el que corresponda a tu hoja.
