ejecutar codigo hasta el final de los datos

[dragonfire33]

como puedo ejecutar este codigo para ejecutar hasta donde este el ultimo dato numerico

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

 

[James006]

ampliar rango de ejecucion del codigo

buenas expertos como puedo ampliar el rango de ejecucion del codigo siguiente; en los demas cuadros bordados de linea roja Sub macroHV() 'Por Dante Amor Dim i As Long, j As Long, k As Long, m As Long, n As Long Dim p As Long, q As Long, x As Long, y As Long Dim a() As Variant, c As...

www.mrexcel.com

¿ sin respuesta ?​

 

[Tech Hacks]

como puedo ejecutar este codigo para ejecutar hasta donde este el ultimo dato numerico

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

Si estás hablando de la última fila con datos pues podrías aplicar un xlDown, es similar al xlUp solo que hacia abajo y te coloca en la última fila con algún dato. También si quieres optimizar un poco la macro, en vez de rangos podrías optar por nombrar grupo de celdas.
Tal vez si explicaras mejor el tema podría ayudarte mejor, creo que estas funciones se pueden optimizar mucho.