Ultima fila ocupada

Aporta tus macros y códigos Excel de interés para la comunidad.

Reglas del Foro
Este foro no es para hacer preguntas!
Este foro solo es para que aportes algo de interés para la comunidad.
(para preguntas vuelve al índice y busca los foros de "Tus Preguntas a la Comunidad")
Compartir en:
     

Ultima fila ocupada

Notapor TodoExcel » 15 Mar 2010 09:17

Existen varias formas de determinar la última fila ocupada de una hoja.
Sin embargo la mayoría no dan resultados exactos siempre.
Primero ponemos los q dan problemas y al final ponemos la que no falla nunca!

LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
(no es muy exacta)

LastRowColA = Range("A65536").End(xlUp).Row
(solo evalúa columna A y no considera q Excel 2.007 tiene más filas)

LastRow = ActiveSheet.UsedRange.Rows.Count
(no es muy exacta)

LastRow = MiHoja.Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row
(esta no falla nunca!)
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
TodoExcel
Manager Exceluciones
Manager Exceluciones
 
Registrado: 05 Jun 2004 16:05

Re: Ultima fila ocupada

Notapor Adrian » 15 Mar 2010 10:00

Buena Aportación y/o acotación, pero me atrevo a realizar una obervación, en cuanto:

LastRowColA = Range("A65536").End(xlUp).Row
(solo evalúa columna A y no considera q Excel 2.007 tiene más filas)

Debido a que puede ser una sola columna que se desea evaluar, para mi es subjetivo destacar cual es más o menos eficaz.

En cuanto a:
LastRow = MiHoja.Cells.Find("*",SearchOrder:=xlByRows,SearchDirection:=xlPrevious).Row
(esta no falla nunca!)

No la sabia, tratatré de interpretarla, busca en la hoja "todo" (esto es el "*" comodín), por fila, es como un Do While Not EOF en una BD.

Salu2.xlsm
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: Ultima fila ocupada

Notapor Tinno » 10 Nov 2010 16:51

Tomando en cuenta la ver 12.0 o las que vengan

Range("A" & Rows.Count ).End(xlUp).Row

Seguro no Falla y como mencionan anteriormente, solo seria para la columna A

Okas...
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Tinno
Miembro Frecuente
Miembro Frecuente
 
Registrado: 09 Nov 2010 19:03
Ubicación: México D.F. la Magdalena


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros, programación y códigos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados