CÓMO SELECCIONO LA ÚLTIMA FILA CON VB

hola, Faiverlgr !

Necesito eliminar la ultima fila de una hoja de calculo que contiene datos a traves del codigo VB.

suponiendo que se trata de la hoja 'activa', prueba con alguna de las siguientes instrucciones...

op1: si la ultima fila SIEMPRE tiene 'efectivamente' algun dato en alguna de las columnas...
-> Cells.SpecialCells(xlCellTypeLastCell).EntireRow.Delete

op2: si la ultima celda pudiera contener SOLO algun formato 'personalizado' y NO -realmente- algun dato...
Intersect( _
Cells.Find("*", [a1], xlValues, xlWhole, xlByRows, xlPrevious).EntireRow, _
Cells.Find("*", [a1], xlValues, xlWhole, xlByColumns, xlPrevious).EntireColumn) _
.EntireRow.Delete

saludos,
hector.

Muchas Gracias ! Hector Miguel. Esto era lo que necesitaba.


"Héctor Miguel" escribió en el mensaje
news:

hola, Faiverlgr !

Necesito eliminar la ultima fila de una hoja de calculo que contiene
datos a traves del codigo VB.

suponiendo que se trata de la hoja 'activa', prueba con alguna de las
siguientes instrucciones...

op1: si la ultima fila SIEMPRE tiene 'efectivamente' algun dato en alguna
de las columnas...
-> Cells.SpecialCells(xlCellTypeLastCell).EntireRow.Delete

op2: si la ultima celda pudiera contener SOLO algun formato
'personalizado' y NO -realmente- algun dato...
Intersect( _
Cells.Find("*", [a1], xlValues, xlWhole, xlByRows,
xlPrevious).EntireRow, _
Cells.Find("*", [a1], xlValues, xlWhole, xlByColumns,
xlPrevious).EntireColumn) _
.EntireRow.Delete

saludos,
hector.