Ubicarme en la ultima fila con informacion

hola, 'anonimo/a' !

... necesito ubicarme en las dos ultimas filas con informacion en la columna A y borrarlas o eliminarlas
... un libro... puede tener n filas, y es alli en donde no se como encontrar la cnatidad de filas con informacion ...

una forma es *partir* de la fila mas alejada que conozcas/supongas/... que esta vacia [p.e. "a65536"]
[desde ahi]... *subir* hasta la ultima fila *con datos*
[desde ahi]... *subir* una fila mas
[luego]... *extender* la anterior a la ultima con datos una celda mas [asumiendo que ambas tienen datos]
[finalmente]... *eliminar* las filas de las dos celdas *identificadas* [p.e.]

Range("a65536").End(xlUp).Offset(-1).Resize(2).EntireRow.Delete

si no estan consecutivas la ultima y penultima celdas con datos en la columna 'A' -?-
-> elimina la parte con el -> .Offset(-1).Resize(2)
y ejecuta dos veces la linea resultante:
-> Range("a65536").End(xlUp).EntireRow.Delete

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Gracias Hector muy oportuna y acertada tu respuesta como siempre. Voy a
probrar y luego te comento.

¿Por que escribes anonimo, aca veo mi nombre...?, jejeje.

Gracias.

Héctor Miguel escribió:

hola, 'anonimo/a' !

... necesito ubicarme en las dos ultimas filas con informacion en la columna A y borrarlas o eliminarlas
... un libro... puede tener n filas, y es alli en donde no se como encontrar la cnatidad de filas con informacion ...

una forma es *partir* de la fila mas alejada que conozcas/supongas/... que esta vacia [p.e. "a65536"]
[desde ahi]... *subir* hasta la ultima fila *con datos*
[desde ahi]... *subir* una fila mas
[luego]... *extender* la anterior a la ultima con datos una celda mas [asumiendo que ambas tienen datos]
[finalmente]... *eliminar* las filas de las dos celdas *identificadas* [p.e.]

Range("a65536").End(xlUp).Offset(-1).Resize(2).EntireRow.Delete

si no estan consecutivas la ultima y penultima celdas con datos en la columna 'A' -?-
-> elimina la parte con el -> .Offset(-1).Resize(2)
y ejecuta dos veces la linea resultante:
-> Range("a65536").End(xlUp).EntireRow.Delete

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola, (...) ?

Por que escribes anonimo, aca veo mi nombre...?, jejeje.

1) [yo] *tengo un... problema*... -> me gusta *mirar a los ojos* de mi interlocutor :-(

2) si me confirmas que tu nombre es el *nick* con el que posteas...
me aceptarias un cheque [por cualquier cantidad] para deposito en cuenta a nombre de... [tu nick]?

3) si tu intencion es NO *exponer* tu nombre real... que diferencia hace 'anonimo/a'... de... [un nick] ?
sigo *respetando* tu anonimato :))

saludos,
hector.

:-)


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

hola, (...) ?

Por que escribes anonimo, aca veo mi nombre...?, jejeje.

1) [yo] *tengo un... problema*... -> me gusta *mirar a los ojos* de mi
interlocutor :-(

2) si me confirmas que tu nombre es el *nick* con el que posteas...
me aceptarias un cheque [por cualquier cantidad] para deposito en
cuenta a nombre de... [tu nick]?

3) si tu intencion es NO *exponer* tu nombre real... que diferencia hace
'anonimo/a'... de... [un nick] ?
sigo *respetando* tu anonimato :))

saludos,
hector.