Localizar la primera celda "no vacía"

Excel por default recorre primero por columnas y despues por filas :)

Hola Héctor Miguel,

Cuando en la pregunta inicial indicaba que "No importaría que empezase
buscando por filas o comlumnas." me refería justamente a ¿que haría
Excel en ese caso que indicas (incluso pensé [si, has leído bien,
"pensé"] que celda tomaría como primera en caso de estar rellenas A2
y B1 por si la "distancia" con respecto a la celda de arranque en la
busqueda (A1) fuese un parámetro interno de excel en las busquedas y
no fuese que "Excel por default recorre primero por columnas y despues
por filas")" y en la segunda pregunta [en la que expresaba algo mejor
lo que pretendía] indicaba "revisar en la primera columna a partir de
la celda A1, donde hay una celda con datos, y en caso de no existir en
toda la columna, que empiece a hacerlo en la columna B" (puesto que el
código que yo usaba iba a empezar la busqueda forzada por columnas).

He probado los 2 códigos que publicaron muy amablemente :-) Francisco
Mty y David QuitaEsto y con posterioridad el tuyo . No solo es más
rápido, sino que tiene menos "código" que introducir :-)). Además y
aunque se pretende el mismo resultado, la forma de "atacar" el problema
es totalmente diferente.
(" las opciones mas 'rapidas' [creo que] son las que usa excel 'por
omision' ")-> Despues de probarlo, estoy totalmente de acuerdo.

Muchas gracias por los comentarios y por el código ;-)) y SALU2.




Héctor Miguel wrote:

hola, Francisco !

> Excel por default recorre primero por columnas y despues por filas :)

es correcto :)) [sin embargo, creo que] la pregunta 'sigue en el aire' :))
- 'era' [mas bien] para conocer 'que es' lo que Mariano espera en 'devolucion'...

las opciones mas 'rapidas' [creo que] son las que usa excel 'por omision' [p.e.]

suponiendo una hoja [inicialmente] 'vacia' donde se introducen los siguientes datos...
[A15] -> cualquier dato
[C5] -> cualquier dato

si Mariano espera obtener como primer celda 'no vacia'...

a) la celda 'C5' [excel recorriendo columnas a la derecha]...
With Worksheets("hoja1")
MsgBox .Cells.Find(What:="*", After:=.[a1]).Address
End With

b) la celda 'A15' [forzando al excel a escanear primero las filas de cada columna]...
With Worksheets("hoja1")
MsgBox .Cells.Find(What:="*", After:=.[a1], SearchOrder:=xlByColumns).Address
End With

saludos,
hector.